VBA之Word应用：利用Bookmark属性返回选择区域的开始和结束位置

本文主要是介绍VBA之Word应用：利用Bookmark属性返回选择区域的开始和结束位置，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

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

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

本套教程共三册十六章，今日内容为第二章部分：VBA之Word应用第二章：利用Bookmark属性返回选择区域的开始和结束位置

【分享成果，随喜正能量】 生活就是这样，不要复杂化，不要悲情化，不要脆弱化，别把人生活成一场悲惨新高度，别太为难了自己，学会愉快一些，幽默一些，认清自己不过就是一个100多斤的孩子，许多烦恼就轻松而解了。。

第四节 书签(Bookmark) 对象

所谓书签（Bookmark）对象，是文档中、或者选定内容或区域中的单个书签。我们这讲的内容就是讲解书签的有关知识点，仍是按照属性、方法并结合一些实例来讲解。希望大家进一步认识书签集合及书签。

1 Bookmark.Name 属性

这个属性返回指定对象的名称。是只读的字符串。

语法：expression.Name

其中expression表示一个书签对象

2 Bookmark.Start 属性

这个属性返回或设置书签的起始字符位置。是可读写的 Long

语法：expression.Start

其中：expression代表一个书签对象.

• 如果此属性的值设置为一个大于End属性的值，那么End属性的设置将调整为和Start属性中的值相同。
• 书签对象包括起始字符和结束字符位置。起始字符位置为距文档开头部分最近的位置。
• Bookmark.Start 属性返回起始字符相对于文档开头部分的位置。文本主体部分 (wdMainTextStory) 的起始字符位置为 0（零）。通过设置该属性可以更改书签的大小。

3 Bookmark.End 属性

这个属性返回或设置选定内容、区域的书签结束字符位置。可读写的 Long 。

语法：expression.End

其中expression代表一个书签对象

• 如果此属性设置为一个值小于Start属性，则Start属性将调整为和End属性相同的值 (即，Start和 End属性相等)。
• 该属性返回结束字符，是相对于文档开头部分的位置。文档主要文字部分 (wdMainTextStory) 的起始字符位置为 0。通过设置该属性可以更改书签的大小。

4 Bookmark.Range 属性

返回一个 Range 对象，该对象代表指定对象所含的部分文档。

语法：expression.Range

其中expression代表一个书签对象

5 Bookmark.Delete 方法

这种方法将删除指定的书签。

语法：expression.Delete

其中expression代表一个书签对象

6 Bookmark.Select 方法

选择指定书签。

语法：expression.Select

其中expression代表一个书签对象

7 利用Bookmark属性返回选择区域的开始和结束位置

在上面我们学习了关于书签的一些属性和方法，这里我们讲解一个实例，这个实例中我们会首先选择一个书签，然后提示给用户选择区域的开始和结束字符的位置，我们先看下面的代码：

Sub mynzE()

Dim myString As String

myString = "myBookmarkB"

If ActiveDocument.Bookmarks.Exists(myString) = True Then

ActiveDocument.Bookmarks(myString).Select

MsgBox "选择位置开始于第" & ActiveDocument.Bookmarks(myString).Start & "字符，结束于第" & ActiveDocument.Bookmarks(myString).End & "字符"

End If

End Sub

代码的截图：

代码讲解：

1） myString = "myBookmarkB" 自定义一个书签

2） If ActiveDocument.Bookmarks.Exists(myString) = True 判断这个书签是否存在。

3） ActiveDocument.Bookmarks(myString).Select 如果这个书签存在，则选择书签

4） MsgBox "选择位置开始于第" & ActiveDocument.Bookmarks(myString).Start & "字符，结束于第" & ActiveDocument.Bookmarks(myString).End & "字符"

这句代码利用了书签的Start和End属性返回书签第一个字符和最后一个字符在文档中的位置。

代码的运行结果：

• 在反馈的结果中，字符的位置和我们视觉看到的有所不同，请大家留意我之后关于段落对象的讲解。

今日内容回向：

1 书签对象的属性和方法有哪些？

2 如何提示给用户选择区域开始字符位置和结束字符的位置？

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

分享成果，随喜正能量

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

这篇关于VBA之Word应用：利用Bookmark属性返回选择区域的开始和结束位置的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---