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 支持和反馈，获取有关如何接收支持和提供反馈的指南。