Paragraph.IsStyleSeparator (Word)

True si un párrafo contiene una marca de párrafo especial oculta que permite a Microsoft Word unir párrafos de estilos diferentes.

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