0
点赞
收藏
分享

微信扫一扫

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

进击的包籽 03-23 14:00 阅读 2
开发语言

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

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

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

分享成果,随喜正能量】 生活就是这样,不要复杂化,不要悲情化,不要脆弱化,别把人生活成一场悲惨新高度,别太为难了自己,学会愉快一些,幽默一些,认清自己不过就是一个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

代码的截图:

efb0c05a0f6776f8f7d37c8b09a80ad3.jpeg

代码讲解:

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属性返回书签第一个字符和最后一个字符在文档中的位置。

代码的运行结果:

7a42905ef9aafa56af35ad2c2a34b51b.jpeg

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

今日内容回向:

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

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

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

分享成果,随喜正能量

9a39da9c6fdc7d94479c2d40a59100ea.jpeg

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


2a471bf4b42837d22c74a77b5de7ea48.jpeg

165dd49135b2998ed0648311f0c18e95.jpeg

举报

相关推荐

0 条评论