nge.Find对象更常见的形式可能是Selection.FindSelection是Range的子类Selection.Find其实就是特殊的Range.Find另一种方法是利用正则表达式但是这两种方法各有各的问题。

Range.Find对象的问题是正则表达式功能太差。

尽管可以通过将MatchWildcards

属性设置为True来使用通配符但通配符表达式并不完全兼容常用的正则表达式语法而且不同版本的VBA支持的通配符表达式语法还不一样例如我在Word2013中使用通配符表达式(#\d)|([①-⑨])它居然因为使用了|操作符就不能得到预期的结果。

正则表达式的问题则是无法准确定位匹配项在文档中的位置。

尽管理论上可以用下面这样的方法定位到匹配项但是实际运行就会发现除了第一个能定位到后面的全部会出错

Dim

doc.Range(matchColl(i).FirstIndex

matchColl(i).Length

i为了各取所长避其所短比较好的思路是将二者结合先用正则表达式查找匹配项再用Range.Find来定位匹配项。

下面就用这个思路在Word文档主体内容中的注释引用和注释内容中的注释编号之间建立交叉连接来进行一个实践。

我们有这样一个文档

要在这个文档中建立如图所描述的交叉链接需要在主体内容的注释引用和注释区的注释编号位置分别插入书签以及连接到对方的超链接。

当然这里的查找内容用简单的通配符表达式也可以完成任务但是如果编辑过程中出现失误导致部分注释引用被替换成了别的样式重新修复的时候就不得不用到|操作符这时候Range.Find对象就不见得能按预期完成任务了。

下面的宏要求先在文档中选择主体内容然后运行宏对主体内容进行处理处理完后再选择注释中的内容再次运行宏处理注释交叉链接就建立完毕。

我将插入书签和链接的功能写成了如下函数

Function

useSelection插入超链接时显示的文本是否用在文档中选择的文本默认为True否则显示#加阿拉伯数字

contentStr,commentStr:区分主体内容区和注释区的字符串

formatStr:注释引用序数扩充到固定长度所用的格式字符串默认扩充为至少3字符000

ignoreCase匹配内容时是否忽略大小写默认为TrueDim

regEx

CreateObject(VBScript.RegExp)With

regEx.Global

regEx.Execute(searchRange.Text)

在搜索范围内执行匹配操作searchRange.Collapse

将搜搜范围折叠到开头For

注释引用和注释区注释编号设置为上标tmpRange.Font.Superscript

-1i

调整搜索范围起始位置准备定位下一个匹配项searchRange.SetRange

Start:tmpRange.End,

Function上面的代码也展示了在选定区域中进行查找的方法。

Sub

处理主体内容中的书签和超链接超链接文本用文档中的匹配文本DealCrossLink

Selection.Range,

处理注释内容中的书签和超链接超链接文本用文档中的匹配文本DealCrossLink

Selection.Range,

处理主体内容中的书签和超链接超链接文本用#号连接阿拉伯数字编号DealCrossLink

Selection.Range,

chapterFalse处理注释内容中的书签和超链接超链接文本用#号连接阿拉伯数字编号DealCrossLink

Selection.Range,

Sub可以根据需要将以上代码中最后四行具体调用函数的语句选择一条执行。

主体内容中的“①”与注释内容中的“#1”之间成功建立起了交叉链接其它编号也是如此。

如果觉得每次选一个段落有点麻烦可以考虑在诗标题和校注前先插入连续型分节符可参阅文档目录、页眉和文档章节标题之间插入相互链接的最佳实践中的过程Sub

指定级别标题前插入分节符()然后遍历档中的所有节各节第一段文本为“【校注】”的即为注释区否则当做主体内容区然后在调用DealCrossLink函数时将section.Range取代Selection.Range作为第一个参数传入即可无需选择内容建立全文的交叉链接。

示例代码如下

Sub

全文主体内容的注释引用与注释区注释序号之间建立交叉链接()Dim

aSec

Boolean是否递增章节序号。

只有处理完了一个注释区后才递增章节号以确保对应的主体内容和注释章节号相同addChapter

TrueregStr

Left(aSec.Range.Paragraphs(1).Range.Text,

【注释】