Word VBA教程:Title属性

该属性返回一个 String 类型的数值,该数值代表 Web 样式表的标题,可读写。

expression.Title

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

VBA示例

本示例为附加到活动文档的前三个 Web 样式表指定标题。本示例假定有三个样式表附加到活动文档。


Sub AssignCSSTitle()
    ActiveDocument.StyleSheets.Item(1).Title = "New Look Stylesheet"
    ActiveDocument.StyleSheets.Item(2).Title = "Standard Web Stylesheet"
    ActiveDocument.StyleSheets.Item(3).Title = "Definitions Stylesheets"
End Sub

本示例创建一个附加到活动文档的 Web 样式表的列表,并将该列表置于新文档中。本示例假定有一个或更多的 Web 样式表附加到活动文档。


Sub CSSTitles()
    Dim docNew As Document
    Dim styCSS As StyleSheet
    Set docNew = Documents.Add
    With docNew.Range(Start:=0, End:=0)
        .InsertAfter "CSS Name : Assigned to " & ThisDocument.Name _
            & vbTab & "Title"
        .InsertParagraphAfter
        For Each styCSS In ThisDocument.StyleSheets
            .InsertAfter styCSS.Name & vbTab & styCSS.Title
            .InsertParagraphAfter
        Next styCSS
        .ConvertToTable
    End With
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号