LinkStyle 属性

设置或返回一个 Variant 类型的值，该值代表段落和字符样式之间的链接。可读写。

expression   必需。该表达式返回一个 Style 对象。

说明

一旦将字符样式与段落样式链接起来，这两种样式就采取相同的字符格式。

示例

本示例创建并设置新字符样式的格式，并将字符样式与内置标题样式“Heading 1”链接起来，这样“Heading 1”样式就可以采用新创建样式的字符格式。

Sub LinkHeadStyle()
    Dim styChar1 As Style

    Set styChar1 = ActiveDocument.Styles.Add(Name:="Heading 1 Characters", _
        Type:=wdStyleTypeCharacter)
        With styChar1
            .Font.Name = "Verdana"
            .Font.Bold = True
            .Font.Shadow = True
            With .Font.Borders(1)
                .LineStyle = wdLineStyleDot
                .LineWidth = wdLineWidth300pt
                .Color = wdColorDarkRed
            End With
        End With
    ActiveDocument.Styles("Heading 1").LinkStyle = ActiveDocument _
        .Styles("Heading 1 Characters")

    With ActiveDocument.Content
        .InsertParagraphAfter
        .InsertAfter "New Linked Style"
        .Select
    End With

    Selection.Collapse Direction:=wdCollapseEnd
    Selection.Style = ActiveDocument.Styles("Heading 1")

End Sub