Word文書から特定のハイライト色を削除する方法

本日の記事では、Word文書から特定のハイライトカラーを効果的に削除する方法をご紹介します。

以前の記事のXNUMXつで、ハイライトの色を削除する方法についてはすでに説明しました。 詳細については、次のリンクを参照してください。 Word文書のハイライトまたはシェーディングを削除する5つの方法

今日は、ドキュメントに複数のハイライト色を含めて、さまざまな種類のコンテンツを目立たせることができる別のケースを見てみましょう。 このような場合、通常の方法ではXNUMXつの特定のハイライトカラーを認識できません。 実際のところ、Wordマクロを実行するのが唯一の迅速で効果的な方法です。

次に、以下のアプローチを見てください。

VBAを介して特定のハイライトカラーを削除する

1. まず最初に、リボンの「開発」タブをクリックしてください。
2. 次に、「Visual Basic」をクリックして、WordでVBAエディターをトリガーします。 また、「開発者」タブがまだ利用できない可能性があることを考慮して、代わりに「Alt + F11」を押すことができます。
3. 次に、エディターの左側の列にある「通常」プロジェクトをクリックします。
4. 次に、メニューバーの[挿入]タブをクリックします。
5. ドロップダウンメニューで、「モジュール」を選択します。
6. 次に、新しいモジュールをダブルクリックして、コーディング領域を開きます。
7. 次のマクロをモジュールに貼り付けます。

Sub RemoveSpecificHighlightColor()
  Dim objDoc As Document
  Dim objRange As Range
  Dim strHighlightColor As String
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strHighlightColor = InputBox("Choose a Highlight colour to remove (enter the value):" & vbNewLine & _
                      vbTab & "Auto" & vbTab & vbTab & "0" & vbNewLine & _
                      vbTab & "Black" & vbTab & vbTab & "1" & vbNewLine & _
                      vbTab & "Blue" & vbTab & vbTab & "2" & vbNewLine & _
                      vbTab & "BrightGreen" & vbTab & "4" & vbNewLine & _
                      vbTab & "DarkBlue" & vbTab & vbTab & "9" & vbNewLine & _
                      vbTab & "DarkRed" & vbTab & vbTab & "13" & vbNewLine & _
                      vbTab & "DarkYellow" & vbTab & "14" & vbNewLine & _
                      vbTab & "Gray25" & vbTab & vbTab & "16" & vbNewLine & _
                      vbTab & "Gray50" & vbTab & vbTab & "15" & vbNewLine & _
                      vbTab & "Green" & vbTab & vbTab & "11" & vbNewLine & _
                      vbTab & "Pink" & vbTab & vbTab & "5" & vbNewLine & _
                      vbTab & "Red" & vbTab & vbTab & "6" & vbNewLine & _
                      vbTab & "Teal" & vbTab & vbTab & "10" & vbNewLine & _
                      vbTab & "Turquoise" & vbTab & "3" & vbNewLine & _
                      vbTab & "Violet" & vbTab & vbTab & "12" & vbNewLine & _
                      vbTab & "White" & vbTab & vbTab & "8" & vbNewLine & _
                      vbTab & "Yellow" & vbTab & vbTab & "7", "Highlight Color")
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .Highlight = True
 
      Do While .Execute
        If Selection.Range.HighlightColorIndex = strHighlightColor Then
          Set objRange = Selection.Range
          objRange.HighlightColorIndex = wdNoHighlight
          Selection.Collapse wdCollapseEnd
        End If
      Loop
    End With
  End With
 
  MsgBox ("The chosen highlight color has been removed in the document.")
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

8. 次に、「実行」ボタンをクリックするか、「F5」を押してコードを実行します。
9. 次に、「ハイライトカラー」ボックスがあります。 各色には値があります。 削除するハイライトカラーに関連する値を入力するだけです。
10. 最後になりましたが、[OK]をクリックして続行します。
11. 完了すると、次のようなメッセージボックスが表示されます。

考えられる結果は次のとおりです。

データを安全に保つ

データの整合性は簡単に損なわれる可能性があります。手遅れになる前に予防措置を講じるべき時です。たとえば、最も推奨される方法は、ファイルを定期的にバックアップすることです。予期せぬ事態が発生した場合に備えて、常に最新バージョンを利用できるようにしてください。そうしないと、 単語の回復 データを取り戻すため。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 xlsxを修正 (NAIST) と pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com