3 načini paketnega odstranjevanja barve polnila več oblik v dokumentu Word

V tej objavi vam z veseljem predstavljamo 3 učinkovite metode za paketno odstranjevanje barve polnila več oblik v dokumentu Word.

Med vstavljanjem oblik v Wordov dokument lahko tudi za njih uporabite barvo polnila. Enostavno je dodati ali odstraniti barvo polnila posamezne oblike. Toda ko gre za serijsko obdelavo, bomo potrebovali nekaj trika.

Tokrat vam želimo pokazati, kako paketno odstranite barvo polnila več oblik v dokumentu. Tako jih lahko napolnite z želenimi barvami ali pa preprosto pustite oblike v praznem ozadju. Sledijo 3 metode, ki vam lahko pomagajo v različnih primerih.

1. način: Odstranite barvo zapolnitve več oblik na strani

1. Najprej na traku kliknite zavihek »Domov«.
2. Nato kliknite ukaz »Izberi« v skupini »Urejanje«.
3. V spustnem meniju izberite »Izbirno podokno«.
4. Zdaj v podoknu »Izbira in vidnost« lahko vidite vsa imena oblik na tej strani. Pritisnite "Ctrl", da izberete želene oblike.
5. Nato na traku kliknite »Oblika«.
6. Nato kliknite »Shape Fill«.
7. V spustnem meniju izberite “No Fill”.

2. način: paket odstranite barvo zapolnitve vseh oblik v dokumentu

1. Najprej in predvsem, če je na voljo zavihek »Razvijalec«, kliknite nanj in nato kliknite »Visual Basic«, da odprete urejevalnik VBA. Če »Razvijalec« ni aktiviran, namesto tega pritisnite »Alt+F11«.
2. Zdaj v urejevalniku kliknite projekt »Normal« na levi strani.
3. Nato v menijski vrstici kliknite »Vstavi«.
4. Nato v spustnem meniju izberite »Modul«.
5. Dvokliknite nov modul, da ga odprete in tam prilepite te kode:

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. Nazadnje kliknite gumb "Zaženi" ali pritisnite "F5" za izvajanje kod.

3. način: Odstranite barvo polnila vseh besedilnih polj v dokumentu

Besedilna polja spadajo v kategorijo oblik. Če želite odstraniti barvo polnila vseh besedilnih polj, vendar obdržite barvo drugih oblik, lahko uporabite ta način.

1. Najprej ponovite korake v 2. metodi za namestitev in zagon makra.
2. Tokrat ta makro zamenjajte s tem:

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 rezultat:

Hitro obnovite poškodovane dokumente

Če kdaj naletite na poškodbo dokumentov, ne paničarite. Ne pozabite, da je večino dokumentov mogoče obnoviti. Kar morate storiti, je, da si vzamete čas in poiščete doc popraviti orodje. Dandanes je takšen pripomoček lahko v veliko pomoč pri pridobivanju podatkov nazaj.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z xls popraviti in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com