Propriedade Paragraph.IsStyleSeparator (Word)
True se um parágrafo contém uma marca de parágrafo oculta especial que permite que o Microsoft Word apareça juntar parágrafos de estilos diferentes de parágrafo. Boolean somente leitura.
Sintaxe
expression. IsStyleSeparator
Expressão Uma expressão que retorna um objeto "Parágrafo".
Exemplo
Este exemplo formata todos os parágrafos nos quais houver um separador de estilo com o estilo "Normal" interno.
Sub StyleSep()
Dim pghDoc As Paragraph
For Each pghDoc In ActiveDocument.Paragraphs
If pghDoc.IsStyleSeparator = True Then
pghDoc.Range.Select
Selection.Style = "Normal"
End If
Next pghDoc
End Sub
Este exemplo adiciona um parágrafo após cada separador de estilo e exclui o separador de estilo.
Sub RemoveStyleSeparator()
Dim pghDoc As Paragraph
Dim styName As String
'Loop through all paragraphs in document to check if it is a style
'separator. If it is, delete it and enter a regular paragraph
For Each pghDoc In ActiveDocument.Paragraphs
If pghDoc.IsStyleSeparator = True Then
pghDoc.Range.Select
With Selection
.Collapse (wdCollapseEnd)
.TypeParagraph
.MoveLeft (1)
.TypeBackspace
End With
End If
Next pghDoc
End Sub
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de