I denne sost, vi er glade for å vise deg 3 effektive metoder for å batchfjerne fyllfargen til flere former i Word-dokumentet ditt.
Mens du setter inn figurer i et Word-dokument, kan du bruke fyllfarge på dem også. Det er enkelt å legge til eller fjerne fyllfargen til en enkelt form. Men når det kommer til batchbehandling, trenger vi et triks.
Denne gangen vil vi vise deg hvordan du batchfjerner fyllfargen til flere former i dokumentet. Så du kan fylle dem på nytt med ønskede farger eller bare la former stå i tom bakgrunn. Følgende er 3 metoder som kan hjelpe deg i forskjellige tilfeller.
Metode 1: Fjern fyllfargen for flere former på en side
- Først av alt, klikk på "Hjem"-fanen i båndet.
- Klikk deretter på "Velg"-kommandoen i "Redigering"-gruppen.
- På rullegardinmenyen velger du "Utvalgsrute".
- Nå på "Utvalg og synlighet"-ruten kan du se alle navnene på figurer på denne siden. Trykk "Ctrl" for å velge formene du trenger.
- Klikk deretter "Formater" i båndet.
- Klikk deretter på "Shape Fill".
- Velg "Ingen fyll" på rullegardinmenyen.
Metode 2: Batch Fjern fyllfargen for alle former i et dokument
- Først og fremstost, hvis "Utvikler"-fanen er tilgjengelig, klikk på den og klikk deretter på "Visual Basic" for å åpne VBA-editoren. Hvis "Utvikler" ikke er aktivert, trykk "Alt+ F11" i stedet.
- Nå i redigeringsprogrammet, klikk på "Normal" -prosjektet på venstre side.
- Klikk deretter på "Sett inn" på menylinjen.
- Velg deretter "Modul" på rullegardinmenyen.
- Dobbeltklikk på ny modul for å åpne den og lim inn disse kodene der:
Sub RemoveAllShapeFill() Dim objShape As Shape Dim objDoc As Document Application.ScreenUpdating = False Set objDoc = ActiveDocument For Every objShape In objDoc.Shapes objShape.Fill.Visible = False objShape.Line.Visible Next = msoTrue Seting. objDoc = Ingenting End Sub
- Til slutt klikker du på "Kjør"-knappen eller trykker på "F5" for å utføre koder.
Metode 3: Fjern fyllfargen for alle tekstbokser i et dokument
Tekstbokser tilhører formkategorien. I tilfelle du vil fjerne fyllfargen for alle tekstbokser, men beholde den til andre former, kan du bruke denne måten.
- Gjenta først trinnene i metode 2 for å installere og kjøre en makro.
- Og denne gangen, bytt ut den makroen med denne:
Sub remeTextboxfill () dim objshape as form dim objdoc som dokumentapplikasjon. Exit For End If Next objShape Application.ScreenUpdating = True Set objDoc = Ingenting End Sub
Her er resultatet:
Gjenopprett skadede dokumenter raskt
Hvis du noen gang støter på dokumentkorrupsjon, ikke få panikk. Husk at most dokumenter kan gjenvinnes. Det du bør gjøre er å gripe tid og få en doc fikse verktøy. I dag kan et slikt verktøy være til stor hjelp for å hente tilbake dataene dine.
Forfatterintroduksjon:
Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert xls fikse og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med