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

Objeto Paragraph

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.