[求助]我的查找替换代码中出了点问题，请大家不吝赐教

us01

在Word中查找时，查找内容设为“const”，但是正文中“u_const”也被查找出来了，请问怎样修改？

[此贴子已经被作者于2005-6-2 16:21:59编辑过]

办公之星

选择“完全匹配”。

us01

“全字匹配”选中后还是不行

守柔

假如说是正规英文单词的话，你可以查找" const",即前面加一个空格.

建议上传你的文档,我再比较一下.

us01

文件已上传，是我做的一个代码高亮的宏。不太完善，麻烦守柔斑竹优化优化。 目前问题： 1、注释的判断高亮（包括单行判断和多行判断） 2、数字的判断高亮（如果在变量名中或注释中不高亮） 如果不调用Word的Find、Replacement，直接用Range手工判断应该怎样写呢？

守柔

我初步看一下,uso1兄的代码,其实相当于我们VBA中的关键字自动"高亮"识别对吗?

我想了一下,其实你的要求,就是将所有符合要求的全字匹配的关键字(从文件源中)进行识别,是吗?

我想,能否这样考虑(注意,效率肯定不如FIND高),可以使用FOR EACH 在词中 循环比较(将所有关键字写入一个字符串中,以INSTR进行提取,如果全字匹配)则高亮,不知行否.

我继续考虑一下怎么做,我现在等你回应,OK?

守柔

我试着修改了一下,感觉可能不是太好,请楼主验证之,多交流!

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-6-3 17:54:29 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [标准模块-NewMacros]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub Highlighter(lang As Integer) ' ' 源代码高亮显示测试, WORD替换调用版 ' 宏在 2005-5-21 由 Simon 创建 ' Dim TextLine As String, MyKeyText As String, i As Range Select Case lang Case 0 Open "D:\20056210333502\c++.txt" For Input As #1 Case 1 Open "D:\20056210333502\object pascal.txt" For Input As #1 Case 2 Open "D:\20056210333502\sql.txt" For Input As #1 End Select Do While Not EOF(1) Line Input #1, TextLine MyKeyText = MyKeyText & Trim(TextLine) & "!" Loop Close #1 Application.ScreenUpdating = False For Each i In ThisDocument.Content.Words If VBA.InStr(MyKeyText, Trim(i) & "!") > 0 Then If i.Start = 0 Then GoTo BFC '如果为开始字符则转到指定行号 '如果该RANGE对象前面一个字符为空格或者软回车 If i.Previous(wdCharacter) = " " Or i.Previous(wdCharacter) = Chr(11) Then BFC: i.Bold = True: i.Font.Color = wdColorRed End If End If Next Application.ScreenUpdating = True End Sub '----------------------

us01

哎呀！换个思路果然不同了。让单词与关键字列表匹配，这样文档只需遍历一遍，扩展注释、数字、文本加亮也简单了。斑竹大人果然厉害！！我改动了一下：

Sub Highlighter(lang As Integer) ' ' 源代码高亮显示测试, WORD替换调用版 ' 宏在 2005-5-21 由 Simon 创建 ' Dim TextLine As String, MyKeyText As String, i As Range

Select Case lang Case 0 Open "D:\20056210333502\c++.txt" For Input As #1 Case 1 Open "D:\20056210333502\object pascal.txt" For Input As #1 Case 2 Open "D:\20056210333502\sql.txt" For Input As #1 End Select MyKeyText = "!" Do While Not EOF(1) Line Input #1, TextLine MyKeyText = MyKeyText & Trim(TextLine) & "!" Loop Close #1 Application.ScreenUpdating = False For Each i In Selection.Words If InStr(MyKeyText, "!" & Trim(i) & "!") > 0 Then If i.Start = 0 Then GoTo BFC '如果为开始字符则转到指定行号 '如果该RANGE对象前面一个字符为空格或者软回车 If i.Previous(wdCharacter) = " " Or i.Previous(wdCharacter) = Chr(11) Then BFC: i.Bold = True: i.Font.Color = wdColorRed End If End If Next Application.ScreenUpdating = True End Sub

其中，改判断字符"Word!"为"!Word!"，否则会误判，如"struct student a, b, c, *head, *p"中的"c"会加亮。

另外，我改word遍历循环为当前选择区域：For Each i In Selection.Words，但是只能选择一段，如果选中不连续的多段文字就不起作用了，请问怎样改写？

又或者遍历当前文档中的指定样式，如只对样式"源代码"中的文本进行高亮，应该怎样写呢？

小弟初学，还请诸位多多指点。

守柔

呵呵.

第一个问题,即楼主所说的分隔符问题,本来就应该据实修改,避免出现误高亮关键字的.我的代码中,只是举个例子而已.

第二个问题:而连续性文本的问题,请参考:http://club.excelhome.net/viewthread.php?tid=83670,提供一个思路,将其置于一个新文档中,然后使用FOR EACH 循环或者以返回的文本内容,反过来定位在活动文档中的位置,即返回多个RANGE对象(也许有两种方法,一是FIND方法,一是INSTR函数,取得位置)

遍历文档中的样式,通常可以有两种方法,一是使用FIND 的FORMAT=TRUE进行查找,另一个是使用FOR EACH 在段落中循环,一旦该段落的STYLE符合要求,即在此段落的RANGE.WORDS中循环.

请楼主先试之,有问题,再作交流.

[此贴子已经被作者于2005-6-6 5:54:20编辑过]