Selection.InsertStyleSeparator (Word)

Insere uma marca de parágrafo oculta especial que permite que o Microsoft Word una parágrafos formatados usando estilos diferentes de parágrafo, para que títulos iniciais possam ser inseridos em um sumário.

Sub InlineHeading() 
 Dim intCount As Integer 
 Dim intParaCount As Integer 
 
 intCount = 1 
 
 With ActiveDocument 
 Do 
 'Look for all paragraphs formatted with "Heading 4" style 
 If .Paragraphs(Index:=intCount).Style = "Heading 4" Then 
 .Paragraphs(Index:=intCount).Range.Select 
 
 'Insert a style separator if paragraph 
 'is formatted with a "Heading 4" style 
 Selection.InsertStyleSeparator 
 End If 
 intCount = intCount + 1 
 intParaCount = .Paragraphs.Count 
 Loop Until intCount = intParaCount 
 
 End With 
End Sub