VBA之Word应用：利用代码统计文档中的书签个数

《VBA之Word应用》（版权10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。

 这套教程是专门针对WORD VBA 的教程，是VBA中的稀缺资源，我给这套教程分归为中级教程，希望大家在VBA入门后再学习这套教程，这样会更加深入的理解面向对象编程的意义。

本套教程共三册十六章，今日内容为第二章部分：VBA之Word应用：利用代码统计文档中的书签个数

【分享成果，随喜正能量】心无挂碍，尽情享受当下便好。世事浮云何足问，不如高卧且加餐。生活中一切事，放平心态，不纠结、不执着，从容潇洒的走过，也是一种难得的人生智慧。。

第一节文档（Document）的书签

2利用代码统计文档中的书签个数

代码示例：下面的代码将提取当前文档中所有的书签，并提示给用户。

Sub mynz() '显示书签

    Dim A()

    Dim mybookmark As Bookmark

    If ActiveDocument.Bookmarks.Count >= 1 Then

        ReDim A(ActiveDocument.Bookmarks.Count - 1)

        i = 0

        For Each mybookmark In ActiveDocument.Bookmarks

            A(i) = mybookmark.Name

            uu = uu & " " & A(i)

            i = i + 1

        Next

    End If

    MsgBox "当前文档中的书签有：" & Chr(13) & uu

End Sub

代码截图：

3统计书签个数代码的讲解及测试

1）Dim A()定义一个动态数组记录书签名

2) Dim mybookmark As Bookmark定义书签变量

3) ActiveDocument.Bookmarks.Count当前文档书签的个数

4) ReDim A(ActiveDocument.Bookmarks.Count - 1)给数组扩容

5) For Each mybookmark In ActiveDocument.Bookmarks

            A(i) = mybookmark.Name

            uu = uu & " " & A(i)

            i = i + 1

        Next

End If

以上遍历所有书签，并将书签放在数组中，同时提取数据的名称。

6) MsgBox "当前文档中的书签有：" & Chr(13) & uu

提示给用户书签的所有名称。

代码的运行测试：

1）在当前文档中“Doc 002文件”中的书签如下截图：

截图可以看出，一共是四个书签，我们运行程序：

3）运行结果：

可见，程序的运行结果和我们期望是一致的。

4在文档中显示书签

为了下面内容讲解的方便，我要在文档中显示已经添加的书签。为了显示书签，可以采用下面的步骤，在“选项”窗口，找到“显示文档内容”，勾选“显示书签”

这个时候我们就可以在文档中显示书签了：

今日内容回向：

  1 文档的书签属性意义是什么？

2如何统计书签的个数？

   3 如何显示书签？

本讲内容参考程序文件：Doc 002文档.docm

分享成果，随喜正能量

我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：