Hur man tar bort en specifik höjdfärg från ditt Word-dokument

Word-lösningar September 28, 2025

I dagens inlägg delar vi gärna med oss ​​av det effektiva sättet att ta bort en specifik markeringsfärg från ditt Word-dokument.

I en av våra tidigare artiklar har vi redan pratat om sätten att ta bort markeringsfärger. För detaljerad information kan du hänvisa till den här länken: 5 metoder för att ta bort markering eller skuggning i ditt Word-dokument

Låt oss idag titta på ett annat fall att ett dokument kan innehålla flera färger för att markera olika typer av innehåll. I ett sådant fall känner de vanliga sätten inte igen en specifik höjdfärg. I själva verket är det enda snabba och effektiva sättet att köra ett Word-makro.Ta bort en specifik höjdfärg från ditt Word-dokument

Ta nu en titt på böllande tillvägagångssätt.

Ta bort en specifik höjdfärg via VBA

  1. Först och främst, klicka på fliken "Utvecklare" i menyfliksområdet.
  2. Klicka sedan på “Visual Basic” för att utlösa VBA-redigeraren i Word. Och med tanke på att du kanske inte har fliken "Utvecklare" tillgänglig än, kan du trycka på "Alt + F11" istället.
  3. Klicka sedan på “Normal” -projekt i den vänstra kolumnen i redigeraren.
  4. Klicka sedan på fliken "Infoga" i menyraden.
  5. Välj "Modul" på rullgardinsmenyn.Klicka på "Normal" -> Klicka på "Infoga" -> Klicka på "Modul"
  6. Dubbelklicka nu på den nya modulen för att öppna kodningsområdet.
  7. Klistra in följande makro på modulen:
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
  1. Klicka sedan på "Kör" -knappen eller tryck på "F5" för att köra koder.Klistra in makro-> Klicka på "Kör"
  2. Därefter finns rutan "Markera färg". Det finns ett värde för varje färg. Ange bara det värde som är relaterat till markeringsfärgen som ska tas bort.
  3. Sist men inte minst, klicka på “OK” för att fortsätta.Ange färgvärde-> Klicka på "OK"
  4. När det är klart får du en sådan meddelandefält:Resultatruta

Här är det möjliga resultatet:Resultat

Håll dina data säkra

Dataintegriteten kan lätt äventyras. Det är dags att vidta förebyggande åtgärder innan allt är för sent. Till exempel är det mest rekommenderade sättet att säkerhetskopiera filer regelbundet. Se alltid till att du har den senaste versionen att använda om något oväntat händer. Annars måste du gå igenom Ordåterställning för att få tillbaka data.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive fixa xlsx och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com

Kommentarer är stängda.