3 viisi, kuidas Wordi dokumendist mitme kujundi täitevärvi eemaldada

Selles postituses on meil hea meel näidata teile 3 tõhusat meetodit mitme kuju täitevärvi partii eemaldamiseks Wordi dokumendis.

Kujundeid Wordi dokumenti sisestades saate neile ka täitevärvi rakendada. Ühe kujundi täitevärvi on lihtne lisada või eemaldada. Kuid kui tegemist on partii töötlemisega, vajame mõnda nippi.

Seekord tahame teile näidata, kuidas eemaldada dokumendis mitme kujundi täitevärv. Nii saate neid soovitud värvidega uuesti täita või lihtsalt kujundid tühjale taustale jätta. Järgnevalt on toodud 3 meetodit, mis võivad teid erinevatel juhtudel aidata.

1. meetod: eemaldage lehelt mitme kujundi täitevärv

1. Kõigepealt klõpsake lindil vahekaarti "Kodu".
2. Seejärel klõpsake rühmas "Redigeerimine" käsku "Vali".
3. Valige rippmenüüst "Valikupaan".
4. Nüüd näete paanil „Valik ja nähtavus” kõiki sellel lehel olevate kujundite nimesid. Vajalike kujundite valimiseks vajutage "Ctrl".
5. Seejärel klõpsake lindil nuppu "Vorminda".
6. Järgmisena klõpsake nuppu "Kujundi täitmine".
7. Valige rippmenüüst "No Fill".

2. meetod: eemaldage partii kõigi dokumendi kujundite täitevärv

1. Esiteks ja kõige tähtsam, kui vahekaart „Arendaja“ on saadaval, klõpsake sellel ja seejärel klõpsake VBA redaktori avamiseks nuppu „Visual Basic“. Kui „Arendaja“ pole aktiveeritud, vajutage selle asemel klahvikombinatsiooni „Alt + F11“.
2. Nüüd klõpsake redaktoris vasakus servas projekti "Tavaline".
3. Seejärel klõpsake menüüribal nuppu "Lisa".
4. Järgmisena valige rippmenüüst "Moodul".
5. Topeltklõpsake uuel moodulil selle avamiseks ja kleepige need koodid sinna:

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. Lõpuks klõpsake koodide käivitamiseks nuppu "Käivita" või "F5".

3. meetod: eemaldage dokumendi kõigi tekstiväljade täitevärv

Tekstikastid kuuluvad kujundite kategooriasse. Kui soovite eemaldada kõigi tekstiväljade täitevärvi, kuid säilitada teiste kujundite täitevärvi, saate seda kasutada.

1. Esiteks korrake makro installimiseks ja käivitamiseks meetodi 2 samme.
2. Ja seekord asendage see makro selle makroga:

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

Siin on tulemus:

Taastage kiiresti kahjustatud dokumendid

Kui peaks kunagi dokumentide rikkumisega kokku puutuma, ärge paanitsege. Pidage meeles, et enamikku dokumente saab taastada. Peaksite lihtsalt aega haarama ja hankima lahenduse. doc parandada tööriist. Tänapäeval võib selline utiliit olla suureks abiks teie andmete tagasi toomisel.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas xls parandada ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom