Word中如何用Vba搜索特定字符并改变格式?

boywin3

手头有一篇文档，为了便于阅读，想在标示符号后的字符加个底纹或突出显示（标示符号去掉）：

求一键处理代码，谢谢！
练习.rar (6.95 KB, 下载次数: 38)

2015-7-31 15:22 上传

点击文件名下载附件

boywin3

处理后，最好有一对话框，显示处理了多少处，谢谢！

413191246se

Sub test()
    Dim i As Long
    Selection.HomeKey Unit:=wdStory
    Do
        Selection.Find.Execute findtext:="+", Wrap:=wdFindStop
        If Selection.Find.Found = True Then
            Selection.MoveEnd Unit:=wdCharacter, Count:=2
            Selection.Font.Color = wdColorRed
            Selection.Range.HighlightColorIndex = wdYellow
            Selection.Font.Bold = True
            Selection.MoveRight Unit:=wdCharacter, Count:=1
            i = i + 1
        Else
            Exit Do
        End If
    Loop
    MsgBox "处理完毕！ 共处理 " & i & " 处！", vbOKOnly + vbExclamation, "突出显示特定字符"
End Sub

boywin3

413191246se 发表于 2015-7-31 22:18
Sub test()
    Dim i As Long
    Selection.HomeKey Unit:=wdStory

谢谢!
但是,原帖中希望+要删除的

duquancai

非要用VBA吗？根据你的要求和提供的文档事例，也可以用查找替换：如图所示，全部替换同时可以看到替换了多少处。

boywin3

duquancai 发表于 2015-8-3 13:35
非要用VBA吗？根据你的要求和提供的文档事例，也可以用查找替换：如图所示，全部替换同时可以看到替换了多 ...

可以的,基本实现!再次感谢!
(只是被删除的+处(空白)也被突出显示了!)

duquancai

boywin3 发表于 2015-8-3 15:55
可以的,基本实现!再次感谢!
(只是被删除的+处(空白)也被突出显示了!)

不影响吧？

413191246se

楼主，我疏忽了，这回 OK 了，试试吧！
Sub test()
    Dim i As Long
    Selection.HomeKey Unit:=wdStory
    Do
        Selection.Find.Execute findtext:="+", Wrap:=wdFindStop
        If Selection.Find.Found = True Then
            Selection.Text = " "
            Selection.MoveEnd Unit:=wdCharacter, Count:=2
            Selection.MoveStart Unit:=wdCharacter, Count:=1
            Selection.Font.Color = wdColorRed
            Selection.Range.HighlightColorIndex = wdYellow
            Selection.Font.Bold = True
            Selection.MoveRight Unit:=wdCharacter, Count:=1
            i = i + 1
        Else
            Exit Do
        End If
    Loop
    MsgBox "处理完毕！ 共处理 " & i & " 处！", vbOKOnly + vbExclamation, "突出显示特定字符"
End Sub

boywin3

duquancai 发表于 2015-8-3 21:34
不影响吧？

谢谢!不太影响!
为学习的目的,追了部分代码,完美实现去+符号和添加阴影文字.
但是发现只能成功运行一次,当再次有追加+符号后,
运行该宏无效(除非保存,关闭文档,再次打开),十分不理解!
请指教,谢谢!


注: 由于文件更新有误, 请大家学习8楼的代码就好了!

boywin3

413191246se 发表于 2015-8-4 09:05
楼主，我疏忽了，这回 OK 了，试试吧！
Sub test()
    Dim i As Long

嗯,这个完美!
麻烦看9楼的我的代码为何只能执行一次??
谢谢!