VBA之Word应用第二章第五节:实现将光标转到指定书签位置的代码

VBA语言専攻 2024-05-19 18:16:19

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

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

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

【分享成果,随喜正能量】 不要把自己的伤口揭开给别人看,世上多的不是医师,多的是撒盐的人。。

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

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

3 实现将光标转到指定书签位置的代码

为了实现将光标转到指定书签位置,我们看下面的代码:

Sub mynzF() '文档光标转到自定义的书签

Dim myString As String

myString = "B004"

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

’ActiveDocument.Bookmarks(myString).Select

Selection.GoTo What:=wdGoToBookmark, Name:=myString

End If

End Sub

代码截图:

4 代码的解读及运行效果

我们先来看看代码意义:

1) myString = "B004" 首先给一个变量赋值,这个变量就是我们指定的书签。

2) If ActiveDocument.Bookmarks.Exists(myString) = True Then 我们仍是先判断一下这个书签是否存在,如果存在,再执行下面的代码,这里利用的是Exists方法。

3) Selection.GoTo What:=wdGoToBookmark, Name:=myString 这里利用的Selection.GoTo方法移动光标,Selection.GoTo方法参数中What参数选择的是书签wdGoToBookmark, Name参数选择的是myString 这里的这个变量代表了我们指定的书签。从而实现了光标的转移。

代码的执行效果:

我们此时运行代码:

运行的结果:

从以上代码运行过程可以看到,光标已经按照我们的要求移动到了指定位置。当然,正如开始讲到的,实现任何一种场景的方法不一定是唯一的,我们只是为了讲解我们需要的知识点。在具体使用时,大家可以选择。比如,下面两种方案都是可以利用的。

'ActiveDocument.Bookmarks(myString).Select

Selection.GoTo What:=wdGoToBookmark, Name:=myString

今日内容回向:

1 在文档中如何将光标移到指定的书签处?本文提到两种方案,是否理解?

2 Selection.GoTo方法的意义是什么?

分享成果,随喜正能量

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

0 阅读:2