Paragraph.IsStyleSeparator (Word)

True si un paragraphe comporte une marque de paragraphe spéciale masquée qui permet à Microsoft Word semble réunir des paragraphes dotés de styles différents.

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