返回介绍

HeadingStyles 属性

发布于 2019-09-29 10:10:35 字数 746 浏览 1152 评论 0 收藏 0

返回一个 HeadingStyles 对象,该对象代表用于编译目录或图表目录的其他样式(标题 1 至标题 9 以外的样式)。只读。

示例

本示例将一个样式添至 HeadingStyles 集合,然后显示集合中所有样式名。

Dim hsLoop As HeadingStyle

If ActiveDocument.TablesOfContents.Count >=1 Then
 ActiveDocument.TablesOfContents(1).HeadingStyles.Add _
 Style:="Title", Level:=2
 For Each hsLoop In _
 ActiveDocument.TablesOfContents(1).HeadingStyles
 MsgBox hsLoop.Style
 Next hsLoop
End If

本示例将一个名为“Blue”的样式添至 Sales.doc 的目录中的 HeadingStyles 集合。

With Documents("Sales.doc")
 .Styles.Add Name:="Blue"
 .TablesOfContents(1).UseHeadingStyles = True
 .TablesOfContents(1).HeadingStyles.Add _
        Style:="Blue", Level:=4
End With

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文