2 snabba sätt att ändra färgen på flera understrykningar i ditt Word-dokument

I den här artikeln kommer vi att fokusera på att förklara två snabba sätt att ändra färgen på flera understrykningar i ditt Word-dokument.

Som standard är understrykningsfärgen i Word inställd som "Automatisk". Men det kan vara monotont ibland. Så för att både diversifiera färguppsättningen i ditt dokument och för att sticka ut det viktiga innehållet är det ett bra val att ändra färgen på understrykning.

Det är lätt att ändra understrykningsfärgen innan du skapar den. Därför vill vi i följande innehåll lägga tonvikten på att ändra färgen på befintliga understrykningar.

Metod 1: Använd funktionen "Avancerad sökning".

Först och föremost, måste du hitta alla understrukna instanser i det aktuella dokumentet. För detta behov kan du hänvisa till vår tidigare artikel: 2 snabba sätt att söka efter understrukna texter i ditt Word-dokument

Efter att ha hittat och haft alla understrykningar i urvalet tar du följande steg:

1. Du klickar bara på den upp och nedvända triangelknappen bakom understrykningsikonen under fliken "Hem".
2. Välj sedan en färg du gillar på den utökade menyn för "Understrykningsfärg".

Här är vår videodemonstration:

Metod 2: Kör Word Macro

Word macro är ett så fantastiskt verktyg. Vi kan inte bara använda den för att söka efter alla understrykningar utan också ändra färgen på dem. Och båda procedurerna kan avslutas i bara ett makro.

1. Till att börja med, aktivera fliken "Utvecklare" och klicka på den.
2. Klicka sedan på "Visual Basic" i gruppen "Code".
3. Klicka sedan på “Normal”.
4. Klicka sedan på fliken "Infoga".
5. Och välj “Modul” på menyn.
6. Dubbelklicka på den nya modulen för att öppna redigeringsutrymmet.
7. Klistra nu in nedanstående koder där:

Sub ChangeUnderlineColor()
  Dim objDoc As Document
  Dim objRange As Range
 
  Set objDoc = ActiveDocument
  Set objRange = objDoc.Range
 
  objRange.Find.ClearFormatting
  With objRange.Find
    .Font.Underline = wdUnderlineSingle
    .text = ""
    .Replacement.text = ""
    .Replacement.Font.UnderlineColor = wdColorBlue
    .Execute Format:=True, Replace:=wdReplaceAll
  End With
End Sub

8. Sist men inte minst, klicka på "Kör" -knappen.

Anmärkningar:

1. För det första betyder kodraden ".Font.Underline = wdUnderlineSingle" att detta makro bara hittar de enstaka understrykningarna. Du kan ändra "wdUnderlineSingle" till "wdUnderlineDouble", "wdUnderlineThick" etc. För fler understrykningskonstanter kan du besöka denna länk: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
2. För det andra betyder kodraden ".Replacement.Font.UnderlineColor = wdColorBlue" att makrot kommer att ändra understrykningsfärg till blått. Och för fler färgkonstanter kan du besöka: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Hämta komprometterade orddata

Word dataförlust är mycket möjligt nuförtiden. Till exempel, most Vanligt fel du kommer att möta i Word är att skärmen fryser. Visst kan du välja att restart programmet. Ibland ska det finnas en automatiskt sparad version av dokumentet du arbetar med. Vi kan dock inte utesluta eller ha råd att förlora handlingen varken helt eller delvis. Därför måste vi tänka på sätt att återställa data. Och på tal om det, ett proffs Ordreparation verktyget är nyckeln till dess framgång.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom dataåterställningsteknik, inklusive verktyg för reparation skadade xls och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com