V tomto článku se zaměříme na vysvětlení 2 rychlých způsobů hromadné změny barvy více podtržení v dokumentu aplikace Word.
Ve výchozím nastavení je barva podtržení v aplikaci Word nastavena na „Automaticky“. Ale někdy to může být monotónní. Chcete-li tedy diverzifikovat sadu barev v dokumentu a vyniknout důležitému obsahu, je dobrou volbou změnit barvu podtržení.
Před vytvořením podtržení je snadné změnit barvu podtržení. Proto bychom v následujícím obsahu chtěli klást důraz na úpravu barvy stávajících podtržení.
Metoda 1: Využijte funkci „Pokročilé hledání“.
V první řadě musíte v aktuálním dokumentu najít všechny výskyty podtržení. Pro tuto potřebu se můžete podívat na náš předchozí článek: 2 rychlé způsoby, jak hledat podtržené texty v dokumentu aplikace Word
Po nalezení a výběru všech podtržení provedete následující kroky:
- Stačí kliknout na tlačítko obráceného trojúhelníku za ikonou podtržení na kartě „Domů“.
- Poté vyberte barvu, která se vám líbí, v rozšířené nabídce „Barva podtržení“.
Zde je naše ukázka videa:
Metoda 2: Spusťte makro aplikace Word
Word makro je tak úžasný nástroj. Můžeme jej použít nejen k vyhledání všech podtržení, ale také změnit jejich barvu. A oba postupy lze dokončit pouze v jednom makru.
- Chcete-li začít, aktivujte kartu „Vývojář“ a klikněte na ni.
- Poté klikněte na „Visual Basic“ ve skupině „Kód“.
- Dále klikněte na „Normální“.
- Poté klikněte na kartu „Vložit“.
- V nabídce vyberte „Modul“.
- Dvojitým kliknutím na nový modul otevřete prostor pro úpravy.
- Nyní tam vložte následující kódy:
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
- V neposlední řadě klikněte na tlačítko „Spustit“.
Poznámky:
- Za prvé, řádek kódu „.Font.Underline = wdUnderlineSingle“ znamená, že toto makro najde pouze jednotlivá podtržení. Můžete změnit „wdUnderlineSingle“ na „wdUnderlineDouble“, „wdUnderlineThick“ atd. Další podtržené konstanty naleznete na tomto odkazu: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
- Za druhé, řádek kódu „.Replacement.Font.UnderlineColor = wdColorBlue“ znamená, že makro změní barvu podtržení na modrou. A pro další barevné konstanty můžete navštívit: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor
Načíst kompromitovaná data Wordu
Ztráta dat ve Wordu je v dnešní době velmi pravděpodobná. Například nejčastější chybou, se kterou se ve Wordu setkáte, je zamrznutí obrazovky. Samozřejmě můžete program restartovat. Někdy se může zobrazit automaticky uložená verze dokumentu, na kterém pracujete. Nemůžeme však vyloučit ani si dovolit možnost ztráty dokumentu, ať už úplné nebo částečné. Proto musíme přemýšlet o způsobech, jak data obnovit. A když už o tom mluvíme, profesionál... Oprava slov nástroj je klíčem k jeho úspěchu.
Úvod autora:
Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v technologiích pro obnovu dat, včetně nástrojů pro opravy poškozené xls a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com