3 způsoby, jak dávkovat Odebrat barvu výplně více tvarů v dokumentu Word

V tomto příspěvku vám rádi ukážeme 3 efektivní metody, jak hromadně odstranit barvu výplně více tvarů v dokumentu Word.

Při vkládání tvarů do dokumentu Word můžete použít i barvu výplně. Je snadné přidat nebo odebrat barvu výplně jednoho tvaru. Ale pokud jde o dávkové zpracování, budeme potřebovat nějaký trik.

Tentokrát vám chceme ukázat, jak dávkově odebrat barvu výplně více tvarů v dokumentu. Můžete je tedy znovu naplnit požadovanými barvami nebo nechat tvary na prázdném pozadí. Následují 3 metody, které vám mohou pomoci v různých případech.

Metoda 1: Odebrání barvy výplně více tvarů na stránce

1. Nejprve klikněte na kartu Domů na pásu karet.
2. Poté klikněte na příkaz „Vybrat“ ve skupině „Úpravy“.
3. V rozevírací nabídce vyberte možnost „Podokno výběru“.
4. Nyní v podokně „Výběr a viditelnost“ vidíte všechny názvy tvarů na této stránce. Stisknutím klávesy „Ctrl“ vyberte tvary, které potřebujete.
5. Poté na pásu karet klikněte na „Formátovat“.
6. Dále klikněte na „Vyplnit tvar“.
7. V rozbalovací nabídce vyberte možnost „Bez výplně“.

Metoda 2: Dávkově odebrat barvu výplně všech tvarů v dokumentu

1. V první řadě, pokud je k dispozici záložka „Vývojář“, klikněte na ni a poté klikněte na „Visual Basic“, čímž otevřete editor VBA. Pokud záložka „Vývojář“ není aktivována, stiskněte místo toho klávesy „Alt+F11“.
2. Nyní v editoru klikněte na projekt „Normální“ na levé straně.
3. Poté klikněte na liště nabídek na „Vložit“.
4. Poté v rozevírací nabídce vyberte možnost „Modul“.
5. Dvojitým kliknutím otevřete nový modul a vložte tam tyto 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. Nakonec spusťte kódy kliknutím na tlačítko „Spustit“ nebo stisknutím „F5“.

Metoda 3: Odebrání barvy výplně všech textových polí v dokumentu

Textová pole patří do kategorie tvarů. Pokud chcete odebrat barvu výplně všech textových polí, ale zachovat barvu jiných tvarů, můžete použít tento způsob.

1. Nejprve opakujte kroky v metodě 2 pro instalaci a spuštění makra.
2. A 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

Zde je výsledek:

Rychle obnovte poškozené dokumenty

Pokud se někdy setkáte s poškozením dokumentů, nepropadejte panice. Mějte na paměti, že většina dokumentů je obnovitelná. Měli byste si najít čas a získat oprava dokumentu nástroj. V dnešní době může být takový nástroj velkou pomocí při načítání vašich dat zpět.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně xls opravit a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com