Word VBA教程:LinkStyle属性

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

expression.LinkStyle

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

说明

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

VBA示例

本示例创建并设置新字符样式的格式,并将字符样式与内置标题样式“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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号