word里面怎么设置宏命令,让某些关键字进行批量加粗，如多个word中的”知识点“用宏命令进行批量加粗

word里面怎么设置宏命令,让某些关键字进行批量加粗，如多个word中的”知识点“用宏命令进行批量加粗

你录制的宏外面再套个循环就好了.
Sub test()
a = Array("关键字1", "关键字2", "关键字3", "关键字4")
Selection.Find.Replacement.Font.Bold = True
For i = 0 To UBound(a)
With Selection.Find
.Text = a(i)
.Replacement.Text = a(i)
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub追问运行时错误 '5624':
♬

当使用任意数字"^#"时有提示这个错误，如：【例1】、【例2】、【例3】……不能直接用关键字"【例^#】"代替追答使用通配符的话,还要加一句.

.MatchWildcards = True追问加在第几行，好像不行追答加在with和end with之间.追问还是不行追答hi 我,
把不行的文件和你修改后的代码发给我.追问Sub Macro8()
'
' Macro8 Macro
a = Array( "【分析】", "【例^#】")
Selection.Find.Replacement.Font.Bold = True
For i = 0 To UBound(a)
With Selection.Find
.MatchWildcards = True
.Text = a(i)
.Replacement.Text = a(i)
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub
因为字数限制故把前面空格删掉了追答使用通配符,就不能使用^#,而是用下面的方法.

Sub Macro8()
'
' Macro8 Macro
a = Array("【分析】", "【例[0-9]{1,}】")
Selection.Find.Replacement.Font.Bold = True
For i = 0 To UBound(a)
With Selection.Find
.MatchWildcards = True
.Text = "(" & a(i) & ")"
.Replacement.Text = "\1"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub追问最终出来的文件会把例后面的数字全变成[0-9]{1,} 如【例1】变成【例[0-9]{1,}】追答用我最后一次回复的代码? 不会出现你说的情况.追问确实是吧【例"数字"】全都替换成【例[0-9]{1,}】了，这个我多复制几次算了，把数字都录入进去，非常感谢

来学习

用查找和替换就行了，不用那么麻烦追问麻烦看下二楼的追问，都已经说了word个数非常多，而且需要替换的词组达到三十多组

查找就能实现，无需宏命令。
查找（ctrl F）：知识点，把下面那个“突出显示所有在该范围。。。。”，找到后，同把同一个单词选中，直接设置加粗即可。追问word个数非常多，如果就这一个“知识点”需要替换，可以选择全部替换，但不仅仅就这一个关键词组，共有三十多组关键词，一种一种的替换非常麻烦，只要知道设置一种，我集成下就可以实现三十多组关键词用一个快捷键一次性全部批量替换OK。这个我试过录制宏，但只在设置时的效果是加粗了，但后面重新调用时不会加粗。