I det här inlägget visar vi dig gärna tre effektiva metoder för att ta bort fyllningsfärgen för flera former i ditt Word-dokument i batch.
När du infogar former i ett Word-dokument kan du också använda fyllningsfärg på dem. Det är enkelt att lägga till eller ta bort fyllningsfärgen i en enda form. Men när det gäller batchbearbetning behöver vi lite trick.
Den här gången vill vi visa hur du satsar bort fyllningsfärgen för flera former i dokumentet. Så du kan fylla på dem med önskade färger eller bara lämna former i tom bakgrund. Följande är tre metoder som kan hjälpa dig i olika fall.
Metod 1: Ta bort fyllningsfärgen för flera former på en sida
- Klicka först på fliken "Hem" i menyfliksområdet.
- Klicka sedan på kommandot "Välj" i gruppen "Redigering".
- På rullgardinsmenyn väljer du "Selection Pane".
- Nu i rutan "Markering och synlighet" kan du se alla namn på former på den här sidan. Tryck på "Ctrl" för att välja de former du behöver.
- Klicka sedan på “Format” i menyfliksområdet.
- Klicka sedan på “Shape Fill”.
- Välj "Ingen fyllning" i rullgardinsmenyn.
Metod 2: Batch Ta bort fyllningsfärgen för alla former i ett dokument
- Först och främst, om fliken ”Utvecklare” är tillgänglig, klicka på den och klicka sedan på ”Visual Basic” för att öppna VBA-redigeraren. Om ”Utvecklare” inte har aktiverats, tryck istället på ”Alt+F11”.
- Klicka nu på “Normal” -projektet till vänster i redigeraren.
- Klicka sedan på "Infoga" i menyraden.
- Välj sedan ”Modul” på rullgardinsmenyn.
- Dubbelklicka på den nya modulen för att öppna den och klistra in dessa koder där:
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
- Slutligen, klicka på "Kör" -knappen eller tryck på "F5" för att köra koder.
Metod 3: Ta bort fyllningsfärgen för alla textrutor i ett dokument
Textrutor tillhör formkategorin. Om du vill ta bort fyllningsfärgen för alla textrutor men behålla den för andra former kan du använda detta sätt.
- Först upprepar du stegen i metod 2 för att installera och köra ett makro.
- Och den här gången ersätter du det här makrot med det här:
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
Här är resultatet:
Återställ snabbt skadade dokument
Om du någonsin stöter på dokumentkorruption, få inte panik. Tänk på att de flesta dokument kan återställas. Det du bör göra är att ta dig tid och skaffa en doc fix verktyg. Numera kan ett sådant verktyg vara till stor hjälp för att hämta dina data tillbaka.
Författarintroduktion:
Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive xls fix och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com




