如果是多個相同個數的詞，比如 “知道、經驗、百科” 這三個詞替換為 “百度”

可以用查詢替換，查詢內容填 [知道經驗百科]{2} 替換內容填 百度

其中2表示一個詞兩個字

如果是多個不同字數的詞，比如 “不知道，經驗，百科全書”這三個詞，替換為“百度”

用查詢替換沒找到好方法，可以用vba，

Sub 詞語替換() Dim arr arr = Array("不知道", "經驗", "百科全書") For i = 0 To UBound(arr) With Selection.Find .Text = arr(i) .Replacement.Text = "百度" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll NextEnd Sub

用VBA可以批次處理word，不過還是需要後臺開啟

幾個示例：

一些WORD VBA程式碼（替換頁首頁尾、批次設定格式、圖片插入等）VBA批次替換多個word中的特定詞 | VBA例項教程word中的批次處理問題，舉例一段聊天記錄？