3 dávkové spôsoby, ako odstrániť farbu výplne viacerých tvarov v dokumente Word

V tomto príspevku vám radi ukážeme 3 účinné metódy na hromadné odstránenie farby výplne viacerých tvarov v dokumente programu Word.

Pri vkladaní tvarov do dokumentu Word môžete tiež použiť farbu výplne. Je ľahké pridať alebo odstrániť farbu výplne jedného tvaru. Ale pokiaľ ide o dávkové spracovanie, budeme potrebovať nejaký trik.

Tentokrát vám chceme ukázať, ako hromadne odstrániť farbu výplne viacerých tvarov v dokumente. Môžete ich teda znovu naplniť požadovanými farbami alebo nechať tvary iba na prázdnom pozadí. Nasledujú 3 metódy, ktoré vám môžu pomôcť v rôznych prípadoch.

Metóda 1: Odstráňte farbu výplne viacerých tvarov na stránke

1. Najskôr kliknite na kartu Domov na páse s nástrojmi.
2. Potom kliknite na príkaz „Vybrať“ v skupine „Úpravy“.
3. V rozbaľovacej ponuke zvoľte možnosť „Tabla výberu“.
4. Teraz na table „Výber a viditeľnosť“ vidíte všetky názvy tvarov na tejto stránke. Stlačením klávesu „Ctrl“ vyberte požadované tvary.
5. Potom kliknite na tlačidlo „Formátovať“ na páse s nástrojmi.
6. Ďalej kliknite na „Vyplniť tvar“.
7. V rozbaľovacej ponuke zvoľte možnosť „Bez výplne“.

Metóda 2: Dávkovo odstráňte farbu výplne všetkých tvarov v dokumente

1. V prvom rade, ak je k dispozícii karta „Vývojár“, kliknite na ňu a potom kliknite na „Visual Basic“, čím otvoríte editor VBA. Ak karta „Vývojár“ nie je aktivovaná, stlačte namiesto toho kombináciu klávesov „Alt+F11“.
2. Teraz v editore kliknite na projekt „Normálne“ na ľavej strane.
3. Potom kliknite na paneli s ponukami na „Vložiť“.
4. Ďalej v rozbaľovacej ponuke zvoľte možnosť „Modul“.
5. Dvojitým kliknutím otvorte nový modul a vložte tam tieto kódy:

Sub RemoveAllShapeFill()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    objShape.Fill.Visible = False
    objShape.Line.Visible = msoTrue
  Next objShape
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

6. Nakoniec kliknite na tlačidlo „Spustiť“ alebo na spustenie kódu stlačte kláves „F5“.

Metóda 3: Odstráňte farbu výplne všetkých textových polí v dokumente

Textové polia patria do kategórie tvarov. Ak chcete odstrániť farbu výplne všetkých textových polí, ale zachovať farbu iných tvarov, môžete použiť tento spôsob.

1. Najskôr zopakujte kroky v metóde 2 na inštaláciu a spustenie makra.
2. Tentokrát nahraďte toto makro týmto:

Sub RemoveTextBoxFill()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Fill.Visible = msoFalse
      objShape.Line.Visible = msoTrue
    Else
      Exit For
    End If
  Next objShape
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

Tu je výsledok:

Rýchlo obnovte poškodené dokumenty

Ak sa niekedy stretnete s poškodením dokumentov, neprepadajte panike. Majte na pamäti, že väčšina dokumentov je obnoviteľná. Mali by ste si nájsť čas a získať doc opraviť nástroj. V súčasnosti môže byť takáto pomôcka skvelým pomocníkom pri načítaní vašich údajov späť.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane xls opraviť a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S