Selection.InsertStyleSeparator 方法 (Word)

插入特定的隱藏段落標記，以便讓 Microsoft Word 連接使用不同段落樣式格式化的段落，如此導引標題就可以插入目錄中。

語法

expression. InsertStyleSeparator

需要 expression。 代表 Selection 物件的變數。

範例

這則範例會在使用內建「標題 4」樣式格式化的每個段落後面，插入一個樣式分隔符號。

注意事項

[!注意事項] 段落數位於 Do...Loop 內部，因為當 Word 插入樣式分隔符號時，這兩個段落就會成為一個段落，所以文件的段落數會隨著程序執行而變更。

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

另請參閱

Selection 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。