2種有用的方法來替換Word文檔中的突出顯示顏色

Word解決方案 2025 年 9 月 28 日

在本文中，我們很高興向您展示2種有用的方法來替換Word文檔中的突出顯示顏色。

有時，您可能會用不同的顏色突出顯示不同的內容。但是，與字體顏色不同，您無法使用“查找和替換”來查找具有特定突出顯示顏色的文本並將其替換為另一種。

因此，我們將需要一些解決方法。以下是針對不同情況的兩種可用方法。

方法1：用相同的一種替換所有突出顯示的顏色

與“查找和替換”對話框關聯的突出顯示顏色是在“突出顯示”圖標中選擇的當前顏色。

首先，在“主頁”選項卡下的“字體”組中，單擊“文本突出顯示顏色”命令上的下拉按鈕。選擇要更改所有突出顯示顏色的顏色。例如，我們在這裡選擇“亮綠色”。
然後按“ Ctrl + H”觸發“查找和替換”對話框。
將光標放在“查找內容”文本框中。
單擊“更多”以顯示更多選項，然後單擊“格式”。
然後選擇“突出顯示”。
接下來，將光標放在“替換為”框中，並重複步驟4和5。
最後，單擊“全部替換”。

現在，您已將所有突出顯示顏色替換為亮綠色。

方法2：用另一種替換特定的突出顯示顏色

要完成此任務，需要一個宏。

首先，按下「Alt+F11」開啟VBA編輯器。
接下來，單擊左側列上的“普通”項目。
然後單擊菜單欄上的“插入”選項卡。
然後在該下拉菜單上選擇“模塊”。
雙擊打開新模塊。
現在粘貼以下代碼：

Sub ReplaceOneHighlightColorToAnother()
  Dim strFindColor As String
  Dim strReplaceColor As String
  Dim objDoc As Document
  Dim objRange As Range
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  strFindColor = InputBox("Specify a color (enter the value):", "Specify Highlight Color")
  strReplaceColor = InputBox("Specify a new color (enter the value):", "New Highlight Color")
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .Highlight = True
 
      Do While .Execute
        If Selection.Range.HighlightColorIndex = strFindColor Then
          Set objRange = Selection.Range
          objRange.HighlightColorIndex = strReplaceColor
          Selection.Collapse wdCollapseEnd
        End If
      Loop
    End With
  End With
 
  Application.ScreenUpdating = True
End Sub

接下來單擊“運行”按鈕或單擊“ F5”。
然後在“指定突出顯示顏色”框中，輸入代表要替換的顏色的值。要獲取特定顏色的相應值，您可以訪問以下鏈接： https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
例如，如果要將黃色替換為明亮的綠色，請在“指定突出顯示顏色”框中輸入“ 7”，然後單擊“確定”。
然後在“新突出顯示顏色”框中，輸入新顏色的值，然後單擊“確定”。