第1个回答 2017-01-07
你录制的宏外面再套个循环就好了.Subtest()a=Array("关键字1","关键字2","关键字3","关键字4")Selection.Find.Replacement.Font.Bold=TrueFori=0ToUBound(a)WithSelection.Find.Text=a(i).Replacement.Text=a(i).Forward=True.Wrap=wdFindContinueEndWithSelection.Find.ExecuteReplace:=wdReplaceAllNextEndSub本回答被网友采纳