《VBA之Word应用》（版权10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。
这套教程是专门针对WORD VBA 的教程，是VBA中的稀缺资源，我给这套教程分归为中级教程，希望大家在VBA入门后再学习这套教程，这样会更加深入的理解面向对象编程的意义本套教程共三册十六章，今日内容为第二章部分：VBA之Word应用第二章：给文档的某个段落添加书签。
【分享成果，随喜正能量】 愿意吃亏的人，终究吃不了亏吃亏多了，总有厚报爱占便宜的人，定是占不了便宜赢了微利，却失了大贵再好的东西，也可能长久拥有，不必计一时回赠，莫如常怀怜悯之情，常施援助之爱，得到人心，他物不缺。
莫要以为成败无因，今天的苦果，是昨天所播之种;当下的付出，是明日的善报第二节 书签集合（Bookmarks）对象（一）大家好，我们继续文档（Document）的书签讲解，这讲是上节的继续，是书签集合相关内容讲解。
1 Bookmarks对象的属性和方法Bookmarks集合，代表指定的所选内容、范围或文档中的书签使用Bookmarks (index)，其中index是书签名称或索引号，返回单个书签对象注意书签名称拼写必须是完全匹配（但不是一定是大小写）的。
1） Bookmarks.Count 属性 这个属性返回书签集合中项的数目2） Bookmarks.Add 方法 返回一个bookmark对象, 该对象代表添加到区域中的书签语法：expression.Add (Name, Range)。
其中expression代表一个Bookmarks集合.参数：Name 必需String 书签的名称 名称不能超过 40个字符或包含多个单词Range 可选Variant 书签标记的文本区域可将书签设置到一个指定的区域（插入点）。
3） Bookmarks.Exists 方法 这个方法确定指定的书签是否存在如果书签存在,则返回 True 语法：expression.Exists(Name)其中expression代表一个Bookmarks对象的变量。
参数：Name 必需 String 书签名称, 不超过40个字符或多于一个单词4） Bookmarks.Item 方法 这个方法返回集合中的单个Bookmark对象语法：expression.Item(Index)。
其中expression代表一个Bookmarks对象的变量参数：Index 必需 Variant要返回的单个对象可以是Long类型的值,指示序号位置或代表单个对象的名称的字符串2 向文档中光标所在位置添加书签。
如何利用代码向文档中指定的光标位置添加书签呢？我们先看下面的代码：Sub mynzB() 在光标选择位置添加书签Dim myString As StringmyString = "myBookmarkA"
ActiveDocument.Bookmarks.Add Name:=myString, Range:=Selection.RangeEnd Sub代码截图：
代码讲解：1） Dim myString As String 定义一个字符串为书签名2） myString = "myBookmarkA" 给书签名赋值3） ActiveDocument.Bookmarks.Add Name:=myString, Range:=Selection.Range 在光标的位置添加书签
代码运行前：
运行代码：
运行结果：
3 给文档的某个段落添加书签如何给文档的某个段落加上书签呢？我们看下面的代码：Sub mynzC() 在文档的第七段添加书签Dim myDoc As DocumentDim myString As String
myString = "myBookmarkB"Set myDoc = Documents("Doc 002文档")myDoc.Bookmarks.Add Name:=myString, Range:=myDoc.Paragraphs(7).Range
myDoc.ActiveWindow.View.ShowBookmarks = TrueEnd Sub代码截图：
代码讲解：1） Dim myDoc As Document 声明一个文档变量2） Set myDoc = Documents("Doc 002文档") 给文档对象变量赋值，注意对象赋值的方法和《VBA之Excel之应用》中讲解的一致，利用的是SET.
3)myDoc.Bookmarks.Add Name:=myString, Range:=myDoc.Paragraphs(7).Range以上代码给第七段添加书签4）myDoc.ActiveWindow.View.ShowBookmarks = True 在文档中显示书签。
代码的运行，在测试前，我们在文档中先将书签隐藏。
运行代码后：
这个时候，我们会看到整段添加了书签关于Bookmarks.Exists 方法的实例，我将在后续的讲解中提到今日内容回向：1 文档的书签集合对象的属性和方法有哪些？2 如何在文档的光标位置添加书签？3 如何给整段添加书签？
本讲内容参考程序文件：Doc 002文档.docm分享成果，随喜正能量
我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：
亲爱的读者们，感谢您花时间阅读本文。如果您对本文有任何疑问或建议，请随时联系我。我非常乐意与您交流。
发表评论:
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。