如何实现让查找到的字符、只处以被选中的状态？

413191246se

139：今年不忙，上线时间少是因为除前一段人民币那两个宏外，确实是不会本坛问题！
下面是循环处理的小宏，试试吧！（不知道你要怎么处理这些标点？）
还有：请搜索本坛关键词《微软官方VBA帮助》以前我上传的，看看能否帮到你；如果没有，我可以提供。

1. Sub LoopSet()
   
2.     ActiveDocument.Content.Font.Color = wdColorAutomatic '全文设置为自动色
   
3.     Selection.HomeKey Unit:=wdStory
   
4.     Selection.Find.ClearFormatting
   
5.     Do While Selection.Find.Execute(FindText:="[!一-龥^1-^127]", Forward:=True, MatchWildcards:=True)
   
6.         Selection.Font.Color = wdColorRed '红色
   
7.         Selection.Font.Bold = True '加粗
   
8.         Selection.MoveRight Unit:=wdCharacter, Count:=1
   
9.     Loop
   
10.     Selection.HomeKey Unit:=wdStory '文首
    
11. End Sub

复制代码

13907933959

413191246se 发表于 2016-11-15 21:44
139：今年不忙，上线时间少是因为除前一段人民币那两个宏外，确实是不会本坛问题！
下面是循环处理的小宏 ...

师傅好！
感谢师傅！
师傅、您太谦虚了，我知道您的实力！
《微软官方VBA帮助》您以前给过我，因基础太差，时间也不够，导致一二下看不懂。
我原以为，循环处理可以让查找到的非连续区域的字符、处在被选中（拉黑）的状态，才让您给一个循环处理的代码。
看来也不能，也就是说、手动可以做到的，VBA不一定能做到，是吧？师傅！

duquancai

13907933959 发表于 2016-11-16 07:42
师傅好！
感谢师傅！
师傅、您太谦虚了，我知道您的实力！

你师傅真的很厉害，我也经常看他的贴，他用心良苦，比如这个代码就是为了让你能清晰的看到，代码的处理过程！
我模仿他的代码用range对象也写一个，这个处理过程你看不到的，代码如下：

1. Sub LoopSet()
   
2.    Dim aRrang As Range
   
3.    Set aRrang = ActiveDocument.Content
   
4.    aRrang.Font.Color = wdColorAutomatic
   
5.    Do While aRrang.Find.Execute("[!一-龥^1-^127]", , , True)
   
6.       aRrang.Font.Color = wdColorRed
   
7.       aRrang.Font.Bold = True
   
8.    Loop
   
9. End Sub

复制代码

13907933959

duquancai 发表于 2016-11-16 10:18
你师傅真的很厉害，我也经常看他的贴，他用心良苦，比如这个代码就是为了让你能清晰的看到，代码的处理过 ...

前辈好！
感谢前辈！
是啊！由于电脑我也是前年刚接触，读书又很少，也没学过英语，汉语拼音…等，到现在除了26个大小写的英文字母免强认得外，一句英语也不会，连打字都不会（只能用手写板），再加上学中医，要看、要记的东西特别多，学其它东西的时间就显得不够，所以学 VBA 对我来说，如水中捞月，相当艰难，也是没有办法，前年下半年我跟师傅学中医，很多中医资料受师傅的委托加于整理，可自已又是个门外汉，整理资料对我来说是一件免为其难，赶鸭子上架的事，本不想整理，后来想想还是整理，一是受老人所托，不想让他一生的心血淹没，二是自已在这个过程中多少总能学到东西。可没想到在整理的过程中，会遇到这么多的问题，涉及的知识有这么多，不得不求助于网络，大概是去年的4～5月份，一次偶然的机会看到这个论坛，才上来求助，有幸得到过您及多位前辈的帮助，有幸认得了我师傅 413191246se，得到过他无以计数次的相助，资料才得以整理，是他把我领进了 VBA 这个门，由于自已书念得少又是个外行，对求助的问题经常是表述不清、道不明，得到求助后也经常是看不懂、不会用，也不知把我师傅及论坛上的前辈们气得无语了多少次，值得庆幸的是：得到了他们的包容和理解以及耐心的解答，这个另本人十分的惭愧和感动！

duquancai

13907933959 发表于 2016-11-16 12:25
前辈好！
感谢前辈！
是啊！由于电脑我也是前年刚接触，读书又很少，也没学过英语，汉语拼音…等，到现 ...

要学会调试代码，这很重要，还有就是F1查看帮助。
比如：就是上面你师傅写的代码，结合文档和代码，用F8单步运行，一边看代码运行，一边看文档的变化
这段代码你师傅之所以这样写，最大的目的就是要你自己调试，看代码逐句运行，同时也能看到文档的选中的区域是怎么变化的，你师傅之用心良苦啊！

dafanshu1

正路行不通，可试试歪路。
但真搞不懂楼主为啥非要先选择不连续区域。
Set d = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
d.setText "[!一-龥^1-^127]"
d.PutInClipboard
Selection.Find.MatchWildcards = True
SendKeys "^v%im{esc}"
Dialogs(wdDialogEditFind).Display
Selection.Font.Color = wdColorRed
Selection.Font.Bold = True
以上代码是用07版做的，如果是03版，“查找”对话框的快捷键会不同，需另作修改SendKeys 的内容。
楼主未学过电脑和英语，学习VBA代码可真不容易啊！慢慢用心学，相信你行的，加油！

13907933959

duquancai 发表于 2016-11-16 12:42
要学会调试代码，这很重要，还有就是F1查看帮助。
比如：就是上面你师傅写的代码，结合文档和代码，用F8 ...

前辈好！
好的。
感谢前辈和师傅的用心良苦！只是能力和时间不足，短时间怕难见到功效，不过、我会努力！

13907933959

dafanshu1 发表于 2016-11-16 14:20
正路行不通，可试试歪路。
但真搞不懂楼主为啥非要先选择不连续区域。
Set d = CreateObject("new:{1C3B4 ...

前辈好！
感谢一路有您！感谢您的鼓励！
我的是2003版的，凭我的水平修改不来SendKeys 的内容，劳前辈再出手相助！
最好能给一个完整的代码，实在是实力不够。

dafanshu1

13907933959 发表于 2016-11-16 15:07
前辈好！
感谢一路有您！感谢您的鼓励！
我的是2003版的，凭我的水平修改不来SendKeys 的内容，劳前辈 ...

试试将之前那句
SendKeys "^v%im{esc}"
换成：
SendKeys "^v%t%f{esc}"

duquancai

dafanshu1 发表于 2016-11-16 15:41
试试将之前那句
SendKeys "^v%im{esc}"
换成：

这种运用剪贴板和发送按键来达到目的，能行得通！但是意义不大。