设置或返回一个 Variant 类型的值,该值代表段落和字符样式之间的链接。可读写。
expression.LinkStyle
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