V tejto strost, sme radi, že vám môžeme ukázať 3 efektívne spôsoby hromadného odstránenia farby výplne viacerých tvarov v dokumente 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
- Najskôr kliknite na kartu Domov na páse s nástrojmi.
- Potom kliknite na príkaz „Vybrať“ v skupine „Úpravy“.
- V rozbaľovacej ponuke zvoľte možnosť „Tabla výberu“.
- 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.
- Potom kliknite na tlačidlo „Formátovať“ na páse s nástrojmi.
- Ďalej kliknite na „Vyplniť tvar“.
- 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
- V prvom radeost, ak je k dispozícii karta „Vývojár“, kliknite na ňu a potom kliknutím na položku „Visual Basic“ otvorte editor VBA. Ak „vývojár“ nebol aktivovaný, stlačte namiesto toho „Alt + F11“.
- Teraz v editore kliknite na projekt „Normálne“ na ľavej strane.
- Potom kliknite na paneli s ponukami na „Vložiť“.
- Ďalej v rozbaľovacej ponuke zvoľte možnosť „Modul“.
- Dvojitým kliknutím otvorte nový modul a vložte tam tieto kódy:
Sub RemoveAllShapeFill () Dim objShape As Shape Dim objDoc ako dokument Application.ScreenUpdating = False Set objDoc = ActiveDocument pre každý objShape In objDoc.Shapes objShape.Fill.Visible = False objShape.Line.Visible = msoTrue Ďalšia sada ObjShape.Screen objDoc = Nič End Sub
- 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.
- Najskôr zopakujte kroky v metóde 2 na inštaláciu a spustenie makra.
- Tentokrát nahraďte toto makro týmto:
Sub RemoveTextBoxFill () Dim objShape As Shape Dim objDoc ako dokument Application.ScreenUpdating = False Set objDoc = ActiveDocument pre každý objShape v objDoc.Shapes If objShape.Type = msoTextBox Potom objShape.Fill.Visible = msoFalse objShible.Visible = msoFalse objShible.Visible = msoFalse Skončiť na koniec, ak bude ďalší objShape Application.ScreenUpdating = True Nastaviť objDoc = Nič End Sub
Tu je výsledok:
Rýchlo obnovte poškodené dokumenty
Ak niekedy narazíte na poškodenie dokumentu, neprepadajte panike. Majte na pamäti, že most dokumenty sú vymáhateľné. Čo by ste mali urobiť, je využiť č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