如何用VBA取得Word文档中的标题前面的序号

最新推荐文章于 2023-08-29 10:13:46 发布

benwdm

最新推荐文章于 2023-08-29 10:13:46 发布

阅读量2.4k

点赞数 2

分类专栏： T_未分类文章标签： VBA

本文链接：https://blog.csdn.net/benwdm/article/details/83560253

版权

这篇博客介绍了如何利用VBA从Word文档中提取标题前面的序号，包括系统内置和用户自定义的编号样式。示例展示了从一级到三级标题的序号提取，并提供了一段将序号与标题内容结合的VBA代码。

摘要由CSDN通过智能技术生成

遇到一个小需求，需要提取Word文档标题前面的序号，例如：

/**************举例文档*******************/
1. 一级标题1   /*一级标题的编号+标题内容，编号可能是系统内置编号样式，也可能是用户
                         *自定义的样式*/
段落2              /*文档内容段落2，标题1占用一个段落，此处为2*/
段落3             /*文档内容段落3*/
1.1 二级标题1.1       /*多级符号+二级标题，编号样式为内置或用户自定义样式*/
段落5
段落6
1.2 二级标题1.2
段落8
2. 一级标题2
段落10
2.1 二级标题2.1
2.1.1 三级标题2.1.1
段落13
/**************举例文档结束**************/

需要提取到:

1.1

1.2

2.1

2.1.1

这些序号，搜索+研究了一下，找到了一方法，顺手记录一下，免得再次摔跤。

Sub test()
    Dim myRange As Range
    Dim num as String, title as String

    'Set ps = Selection.Bookmarks("\headinglevel").Range.Paragraphs
    Set ps = ActiveDocument.Bookmarks("\headinglevel").Range.