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.

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