假设插入点位于书签中，John想知道如何使用VBA查找该书签的名称并选择书签中的所有文本。

使用书签时，请牢记一些技巧。首先，最好不要假定插入点在书签内。相反，您可以使用以下代码来验证它是否在书签中：

BkMkCount = Selection.Bookmarks.Count

执行时，BkMkCount将包含一个指示书签数量的值。如果只期望一个书签，则可以在继续执行代码之前验证变量等于1。

如果要找出书签的名称，则可以使用以下命令：

BkMkName = Selection.Bookmarks(1).Name

如果然后要选择书签中的所有文本，请使用以下命令：

Selection.Bookmarks(1).Select

要将所有这些概念结合在一起，可以使用如下结构：

BkMkCount = Selection.Bookmarks.Count If BkMkCount = 1 Then     With Selection.Bookmarks(1)

BkMkName =.Name         .Select     End With End If

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（6557）适用于Microsoft Word 97、2000、2002和2003。您可以为Word（Word 2007）的功能区界面找到此技巧的版本。和更高版本）在这里：

在VBA中获取书签信息。