VBA之Word应用第二章第五节：将光标转到指定书签位置

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

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

本套教程共三册十六章，今日内容为第二章部分：VBA之Word应用第二章第五节：将光标转到指定书签位置

【分享成果，随喜正能量】 笑而不语是一种豁达，痛而不言是一种修养。过往不恋，未来不迎，当下不负，如此安好。。

第五节 将光标转到指定书签位置

大家好，我们继续文档书签的相关操作讲解。这节的内容是如何将文档光标迅速转到一个我们自定义预设的书签位置。

1 应用场景及实现分析

在介绍文档内容时，往往会有引用某个数据，或者某段文字的情况，当这种引用是距离当前光标位置较远的位置时，我们往往需要转跳到那个位置加以介绍，这时，VBA给出的方案就是转跳。就是让光标通过VBA代码直接可以转到我们需要的位置（这个位置我们有书签的预设置）。

当然，一些操作VBA或许并不是唯一的可行操作选择，但我们教程是讲解VBA的，所以我们这里侧重VBA解决方案。

本讲的案例我们将可以通过Selection.GoTo方法来实现。

2 Selection.GoTo 方法

这个方法表示将插入点移至紧靠指定项之前的字符位置，并返回一个Range对象（除wdGoToGrammaticalError、wdGoToProofreadingError或wdGoToSpellingError常量之外）。

语法：expression. GoTo( What, Which, Count, Name)

其中expression：必需。 表示 Selection 对象的变量。在当前的活动文档中，Selection表示当前所选内容。选定内容表示文档中的选定（或突出显示）区域，或者代表插入点（如果未选择文档中的任何内容）。每个文档当前只能有一个Selection对象，并且在整个应用程序中只能有一个活动的Selection对象。

参数：

1）What 可选 Variant 指定区域或选定内容要移动的类别。可以是WdGoToItem（见下面的列举值） 常量之一。

2） Which 可选 Variant 指定区域或选定内容要移动的项（item）。可以是 WdGoToDirection（见下面的列举值）常量之一。

3）Count可选 Variant 在文档中的项（item）的数目。默认值为1，仅正值有效。若要指定范围或选中范围前的项，请使用wdGoToPrevious作为 Which 参数，并指定Count 值。

4) Name 可选 Variant 如果What参数是wdGoToBookmark、wdGoToComment、 wdGoToField 或 wdGoToObject，则此参数指定一个名称。

WdGoToItem 常量：

wdGoToBookmark -1 书签bookmark.

wdGoToComment 6 批注 comment.

wdGoToEndnote 5 尾注endnote.

wdGoToEquation 10 公式equation.

wdGoToField 7 域 field.

wdGoToFootnote 4 脚注 footnote.

wdGoToGrammaticalError 14 语法错误grammatical error.

wdGoToGraphic 8 图形graphic.

wdGoToHeading 11 标题 heading.

wdGoToLine 3 线段 line.

wdGoToObject 9 对象 object.

wdGoToPage 1 页 page.

wdGoToPercent 12 百分比 percent.

wdGoToProofreadingError 15 校对错误proofreading error.

wdGoToSection 0 节 section.

wdGoToSpellingError 13 拼写错误 spelling error.

wdGoToTable 2 表格table.

WdGoToDirection 常量：

wdGoToAbsolute 1 绝对位置.

wdGoToFirst 1 所指定对象的第一个实例.

wdGoToLast -1 所指定对象的最后一个实例

wdGoToNext 2 所指定对象的下一个实例

wdGoToPrevious 3 所指定对象的上一个实例。

wdGoToRelative 2 相对于当前位置的位置

【待续】

分享成果，随喜正能量

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