3 načina za grupno uklanjanje boje ispune više oblika u vašem Word dokumentu

U ovom postu, drago nam je što vam možemo pokazati 3 učinkovite metode za skupno uklanjanje boje ispune više oblika u vašem Word dokumentu.

Dok umećete oblike u Wordov dokument, na njih možete primijeniti i boju ispune. Lako je dodati ili ukloniti boju ispune jednog oblika. Ali kada je u pitanju skupna obrada, trebat će nam neki trik.

Ovaj put vam želimo pokazati kako grupno ukloniti boju ispune više oblika u dokumentu. Tako da ih možete ponovno ispuniti željenim bojama ili jednostavno ostaviti oblike u praznoj pozadini. Slijede 3 metode koje vam mogu pomoći u različitim slučajevima.

Metoda 1: Uklonite boju ispune više oblika na stranici

1. Prije svega kliknite karticu "Početna" na vrpci.
2. Zatim kliknite naredbu “Odaberi” u grupi “Uređivanje”.
3. Na padajućem izborniku odaberite "Okno za odabir".
4. Sada u oknu "Odabir i vidljivost" možete vidjeti sve nazive oblika na ovoj stranici. Pritisnite "Ctrl" za odabir oblika koji su vam potrebni.
5. Zatim kliknite "Format" na vrpci.
6. Zatim kliknite "Ispuna oblika".
7. Na padajućem izborniku odaberite "Bez ispune".

Metoda 2: Skupno uklanjanje boje ispune svih oblika u dokumentu

1. Prvo i najvažnije, ako je dostupna kartica "Programer", kliknite na nju, a zatim kliknite "Visual Basic" da biste otvorili VBA editor. Ako "Programer" nije aktiviran, umjesto toga pritisnite "Alt+ F11".
2. Sada u uređivaču kliknite projekt "Normalno" na lijevoj strani.
3. Zatim kliknite "Umetni" na traci izbornika.
4. Zatim odaberite "Modul" na padajućem izborniku.
5. Dvaput kliknite na novi modul da biste ga otvorili i tamo zalijepite ove kodove:

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. Na kraju kliknite gumb "Pokreni" ili pritisnite "F5" za izvršavanje kodova.

Metoda 3: Uklonite boju ispune svih tekstualnih okvira u dokumentu

Tekstni okviri pripadaju kategoriji oblika. U slučaju da želite ukloniti boju ispune svih tekstualnih okvira, ali zadržati boju drugih oblika, možete upotrijebiti ovaj način.

1. Najprije ponovite korake iz metode 2 da biste instalirali i pokrenuli makro.
2. I ovaj put zamijenite tu makronaredbu ovom:

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

Evo ishoda:

Brzo oporavite oštećene dokumente

Ako ikada naiđete na oštećenje dokumenata, nemojte paničariti. Imajte na umu da se većina dokumenata može oporaviti. Ono što biste trebali učiniti jest iskoristiti vrijeme i dobiti doc popraviti alat. U današnje vrijeme takav uslužni program može biti od velike pomoći u ponovnom dohvaćanju vaših podataka.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xls popraviti i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com