[求助]如何搜索并修改包含通配符的关键字

wzheng812

通配符关键字是：MatchPercent="100"*Font*\> 我想写一个宏来搜索 DOC 文档中的所有包含 MatchPercent="100"*Font*\> 的字符串， 搜索到后在字符串的最后添加一个特殊符号如：▼ 例如：如果直接在 Word 中使用 MatchPercent="100"*Font*\> 进行搜索，可以找出这 样的字符串： MatchPercent="100">Portions Copyrighted [year] [name of copyright owner]宋体"> 找到后，在后面添加 ▼，也就是变成： MatchPercent="100">Portions Copyrighted [year] [name of copyright owner]宋体">▼ 完成后自动搜索下一个匹配的字符串，并添加该特殊符号，直到搜索出整篇文档中所有匹配的字符串。 有没有朋友有这方面的资料或代码，有点话希望提供点参考，非常感谢。

qPCFptFA.rar (9.17 KB, 下载次数: 36)

2008-3-4 15:06 上传

点击文件名下载附件
[求助]如何搜索并修改包含通配符的关键字

[此贴子已经被作者于2008-3-4 15:06:38编辑过]

sylun

“FONT”只是变量吗？虽然“宋体”是一种“FONT”，但从字符角度“宋体”是两个字符，而“FONT”是三个不一样的字符。

楼主最好能提供查找样本文档，以免猜错题意。

wzheng812

感谢楼上的朋友关注，Font 不是变量，Font 只是用于查找关键字的关键字中的字符。

MatchPercent="100"*Font*\>  是用于查找的关键字，其中的 * 是通配符，表示 n 个

任意字符，\> 也是通配符（即>）。

我上传一个文件，例如直接使用 word 的查找和替换可以在这个文件的文本中搜索出 6

个匹配，我想再这 6 个匹配的每一个后面加上一个 ▼。

我没学过 VB，对 VBA 也不熟悉，由于需要，非常希望能写一个宏来实现这样的功能。

我现在已经写了一点：但是目前还只能找出文本中匹配的字符串，不能在匹配的字符串

后添加一个特殊符号。我想到是如果能将找出的每一个字符串存在一个变量或者数组中

的话那就好了。

我的代码如下：

Sub SignMicro()
'
' SignMicro Macro
' 宏在 2008-3-3 由 Brook 录制
'
    Dim strFindChar As String, Count As Integer 'strFindChar:找到的匹配字符串
    Dim StringArray() As String
   
   
    Count = 0
    'strFindChar = "MatchPercent=""100""*Font*\>"
   
    On Error Resume Next    '忽略发生的错误，继续执行下面的代码
   
    Application.ScreenUpdating = False  '关闭屏幕更新
   
    Selection.Find.ClearFormatting
   
    With Selection.Find
        '.Text = "MatchPercent=""100""*Font*\>"
       
        'strFindChar = "MatchPercent=""100""*Font*\>"
       
        With ActiveDocument.Content.Find    '针对全文档
            Do While .Execute(findtext:="MatchPercent=""100""*Font*\>", MatchCase:=True, _
            MatchWildcards:=True) = True
                Count = Count + 1
                'Selection.InsertAfter "▼"
            Loop

            If MsgBox("文档中共发现了" & Count & "个" & strFindChar & vbCrLf _
             & ", 按 Yes 将进行下一步工作，按 No 取消", vbYesNo + vbInformation) = vbYes Then
            .Execute findtext:=findChar, Wrap:=wdFindContinue
            End If
       
        End With
       
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
       
        'Selection.InsertAfter "▼"
    'End With
    'Selection.Find.Execute
   
    Application.ScreenRefresh
   
    End With
   
End Sub

由于对 VBA 不熟悉，所以代码写得很糟糕，希望大家不要笑，再次感谢关注。

期待牛人帮忙。。。。。。

sylun

有附件确实不一样。

如果不统计匹配数，用如下一句好像就行了：
ActiveDocument.Content.Find.Execute findtext:="MatchPercent=""100""*Font*\>", replacewith:="^&▼", MatchWildcards:=True, Replace:=wdReplaceAll

如果要统计，可试试这个：
Sub test()
Dim myrange As Range, mytext As String, n As Long
Set myrange = ActiveDocument.Content
mytext = VBA.InputBox("请输入查找代码", , "MatchPercent=""100""*Font*\>")
With myrange.Find
    Do While .Execute(findtext:=mytext, MatchWildcards:=True)
        With .Parent
            myrange.InsertAfter "▼"
            n = n + 1
            .SetRange .End, ThisDocument.Content.End
        End With
    Loop
End With
MsgBox "共找到" & n & "个匹配项。"
End Sub

[此贴子已经被作者于2008-3-4 19:24:02编辑过]

wzheng812

非常感谢 sylun ，您的代码让我很受启发，但是我现在还是没有弄明白。

我直接运行了您的代码，但是得不到我想要的结果，如果是直接运行您的

Test 的话，似乎不能正确的在所找到的匹配代码后插入 ▼，而是在找到

的第一个匹配代码后插入了很多 ▼，我也没想明白这是为什么。我上传的

那个附件中共有六个匹配的代码，也就是说如果能在这六个匹配代码后分别

插入一个 ▼，那么就达到目的。感谢 sylun ，能否告知我您的邮箱或 QQ。

wzheng812

统计不统计匹配数倒不是很重要，重要的是能在每个匹配后插入倒三角的符号。

我的邮箱 wzheng812@163.com

QQ:277821644

sylun

刚才再用顶楼的附件测试，4楼的代码并无异常。楼主测试时是不是没有用顶楼附件进行，匹配项是不是在表格中？

wzheng812

我用的是和附件一样的文件，但是我在运行你所写的 Test 的时候发现运行一会

程序就死了，我没有看到结果，不知道是不是正常的。这样吧，你有 QQ 吗？方

便的话你能不能加我，继续向您请教。谢谢。

wzheng812

沉得好快。

sylun

大概情况前面已说过。楼主如果还是找不出原因，可将你运行出错的文档（带宏）传上来看看，另外最好注明你所使用的软件版本。