In dit artikel zullen we ons concentreren op het uitleggen van 2 snelle manieren om batchgewijs de kleur van meerdere onderstrepingen in uw Word-document te wijzigen.
Standaard is de onderstreepte kleur in Word ingesteld op "Automatisch". Maar het kan soms eentonig zijn. Dus om zowel de kleurenset in uw document te diversifiëren als om de belangrijke inhoud op te laten vallen, is het een goede keuze om de kleur van de onderstreping te wijzigen.
Het is gemakkelijk om de onderstreepte kleur te wijzigen voordat u deze maakt. Daarom willen we in de volgende inhoud de nadruk leggen op het wijzigen van de kleur van bestaande onderstrepingen.
Methode 1: Gebruik de functie "Geavanceerd zoeken"
Allereerst moet je alle onderstreepte tekst in het huidige document vinden. Hiervoor kun je ons vorige artikel raadplegen: 2 snelle manieren om te zoeken naar onderstreepte teksten in uw Word-document
Nadat u alle onderstrepingen in de selectie heeft gevonden en hebt, voert u de volgende stappen uit:
- U klikt gewoon op de omgekeerde driehoekige knop achter het onderstreepte pictogram onder het tabblad "Home".
- Kies vervolgens een kleur die u mooi vindt in het uitgebreide menu van "Kleur onderstrepen".
Hier is onze videodemonstratie:
Methode 2: Voer Word Macro uit
Word-macro is zo'n geweldig hulpmiddel. We kunnen het niet alleen gebruiken om naar alle onderstrepingen te zoeken, maar ook om de kleur ervan te veranderen. En beide procedures kunnen in slechts één macro worden voltooid.
- Activeer om te beginnen het tabblad "Ontwikkelaar" en klik erop.
- Klik vervolgens op "Visual Basic" in de groep "Code".
- Klik vervolgens op "Normaal".
- Klik vervolgens op het tabblad "Invoegen".
- En selecteer "Module" in het menu.
- Dubbelklik op de nieuwe module om de bewerkingsruimte te openen.
- Plak nu de balgcodes daar:
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
- Als laatste, maar niet de minste, klik op de knop "Uitvoeren".
Notes:
- Ten eerste betekent coderegel “.Font.Underline = wdUnderlineSingle” dat deze macro alleen de enkele onderstreping vindt. U kunt "wdUnderlineSingle" veranderen in "wdUnderlineDouble", "wdUnderlineThick", enz. Voor meer onderstreepte constanten kunt u deze link bezoeken: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
- Ten tweede betekent coderegel “.Replacement.Font.UnderlineColor = wdColorBlue” dat de macro de onderstreepte kleur verandert in blauw. En voor meer kleurconstanten kunt u terecht op: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor
Haal gecompromitteerde Word-gegevens op
Gegevensverlies in Word is tegenwoordig een reële mogelijkheid. De meest voorkomende fout in Word is bijvoorbeeld een vastlopend scherm. Natuurlijk kunt u het programma opnieuw opstarten. Soms is er een automatisch opgeslagen versie van het document waaraan u werkt. We kunnen de mogelijkheid van volledig of gedeeltelijk documentverlies echter niet uitsluiten. Daarom moeten we manieren bedenken om de gegevens te herstellen. En daarbij is een professional wellicht een goede oplossing. Woordherstel tool is de sleutel tot het succes ervan.
Auteur Introductie:
Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider op het gebied van technologieën voor gegevensherstel, inclusief reparatietools beschadigde xls en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com