3 módszer a Word-dokumentum több alakzatának kitöltőszínének kötegelt eltávolítására

Ebben a bejegyzésben örömmel mutatunk be 3 hatékony módszert a Word-dokumentumban több alakzat kitöltési színének kötegelt eltávolítására.

Miközben alakzatokat szúr be egy Word dokumentumba, kitöltőszínt is alkalmazhat rájuk. Könnyen hozzáadható vagy eltávolítható egyetlen alakzat kitöltőszíne. De amikor a kötegelt feldolgozásról van szó, szükségünk lesz néhány trükkre.

Ezúttal azt szeretnénk bemutatni, hogyan távolíthatja el kötegesen a dokumentum több alakzatának kitöltési színét. Így újratöltheti őket a kívánt színekkel, vagy egyszerűen üresen hagyhatja a formákat. Az alábbiakban 3 módszert mutatunk be, amelyek különböző esetekben segíthetnek.

1. módszer: Távolítsa el az oldal több alakzatának kitöltési színét

1. Először is kattintson a „Kezdőlap” fülre a szalagon.
2. Ezután kattintson a „Kiválasztás” parancsra a „Szerkesztés” csoportban.
3. A legördülő menüben válassza a „Kiválasztási ablak” lehetőséget.
4. Most a „Kiválasztás és láthatóság” panelen láthatja az ezen az oldalon található összes alakzat nevét. Nyomja meg a „Ctrl” gombot a kívánt formák kiválasztásához.
5. Ezután kattintson a „Formátum” gombra a szalagon.
6. Ezután kattintson az "Alakzat kitöltése" gombra.
7. A legördülő menüben válassza a „No Fill” lehetőséget.

2. módszer: Kötegelt távolítsa el a dokumentum összes alakzatának kitöltési színét

1. Először is, ha elérhető a „Fejlesztő” fül, kattintson rá, majd a „Visual Basic” elemre a VBA szerkesztő megnyitásához. Ha a „Fejlesztő” nincs aktiválva, nyomja meg az „Alt+F11” billentyűkombinációt.
2. Most a szerkesztőben kattintson a „Normál” projektre a bal oldalon.
3. Ezután kattintson a „Beszúrás” gombra a menüsorban.
4. Ezután válassza a „Modul” lehetőséget a legördülő menüből.
5. Kattintson duplán az új modulra a megnyitásához, és illessze be a következő kódokat:

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. Végül kattintson a „Futtatás” gombra, vagy nyomja meg az „F5” gombot a kódok végrehajtásához.

3. módszer: Távolítsa el a dokumentum összes szövegdobozának kitöltési színét

A szövegdobozok az alakzat kategóriába tartoznak. Abban az esetben, ha el szeretné távolítani az összes szövegmező kitöltési színét, de meg szeretné tartani a többi alakzat kitöltőszínét, ezt a módot használhatja.

1. Először ismételje meg a 2. módszer lépéseit a makró telepítéséhez és futtatásához.
2. És ezúttal cserélje ki ezt a makrót erre:

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

Íme az eredmény:

Gyorsan helyreállíthatja a sérült dokumentumokat

Ha valaha is dokumentumsérüléssel találkozik, ne essen pánikba. Ne feledje, hogy a legtöbb dokumentum helyreállítható. Amit tennie kell, az az, hogy ragadja meg az időt, és szerezzen be egy... doki javít eszköz. Manapság egy ilyen segédprogram nagy segítséget jelenthet az adatok visszanyerésében.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve xls javítás és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com