word里如何用查找功能来同时选中（查找）多个不相连的且字数不同的词

wuwenbin32415

word里如何用查找功能来同时选中（查找）多个不相连的且字数不同的词（如“风光”、“真优美”）：
例子：倚在窗边，楼下的花园便尽收眼底。风光真让你什么也可以想，什么光也可以不想，便可受用满目的风光优。如今虽是小雪时节，园中的大榕树依旧身姿挺拔的展示着优青绿的枝叶，真优美风让人们实难想象秋风扫落叶带来的凄凉场景，感受真优美光到大树对绿叶的深情。仿佛四季已经美乱了方寸。

用查找[风光真优美]肯定不行，（勾选了“使用通配符”，下同），会把单个字的“风”“光”“真”“优”“美”都选中；用查找[(风光)(真优美)]、[<风光><真优美>]这两个也都不行，和上面的一样，也是会把单个字的都选中；如果要查找的词的字数一样多，假设都是两个字如“风光”和“优美”，可以在查找内容后面加上{2}，即[(风光)(优美)]{2}或[<风光><优美>]{2}；但现在的问题是两个词的字数不一样多（“风光”、“真优美”），如果在查找内容后面加上{2,3}或{2,}，即[(风光)(真优美)]{2,3}或[(风光)(真优美)]{2,}或[<风光><真优美>]{2,3}或[<风光><真优美>]{2,}，都不行，会把“风光”后面的“真”“优”也选中。
请问高手，该如何用查找功能来同时选中（查找）多个不相连的且字数不同的词？

limonet

你要选中之后做什么？

wuwenbin32415

选中后可以做很多事，如更改格式

limonet

可以找到一个改一个。

wuwenbin32415

找到一个改一个还要你讲，这水平！

zhanglei1371

word原生没这功能，只能代码：

1. Sub fff()
   
2. Application.ScreenUpdating = False
   
3. ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
   
4. For Each f In Array("风光", "真优美")
   
5. With Selection.Find
   
6. Selection.HomeKey wdStory
   
7.     Do While .Execute(f, , , , , , , , , f)
   
8.         Selection.Editors.Add wdEditorEveryone
   
9.         Selection.Collapse wdCollapseEnd
   
10.     Loop
    
11. End With
    
12. Next
    
13.     ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    
14.    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    
15.     Application.ScreenUpdating = True
    
16. End Sub

复制代码

效果：

wuwenbin32415

谢谢zhanglei1371