I denne artikel vil vi vise dig 3 metoder til at anvende samme stil til alle tekstbokse i dit Word-dokument.
Er det nogensinde faldet dig ind, at hvordan kan du forene stilen af alle tekstbokse i et dokument? Her i dag vil vi tilbyde dig 3 måder at gøre det på uden manuelt at indstille stilen for hver tekstboks.
Metode 1: Gem en tekstboks i Galleri
Du kan forene stilen af tekstbokse ved starbeskæftiger sig med den første.
- Først og fremmest skal du indsætte en tekstboks i dokumentet.
- Anvend derefter stil til boksen. Indstil f.eks. formkontur, formfyld, skriftfarve osv.
- Klik derefter på omridset af tekstboksen for at vælge det.
- Klik på fanen "Indsæt" og klik på "Tekstboks".
- Vælg nu "Gem markering i tekstboksgalleri".
- Du vil have dialogboksen "Opret ny byggeblok" åben. Indtast navnet i det første tekstfelt.
- Klik derefter på rullemenuen på "Kategori".
- Indtast det nye kategorinavn i boksen "Opret ny kategori".
- Til sidst skal du klikke på "OK" i begge felter.
Næste gang du har brug for en tekstboks, skal du bare gå til at klikke på "Indsæt" og "Tekstboks". Rul derefter ned for at vælge dit tilpassede tekstfelt.
Metode 2: Anvend stil på alle tekstbokse på én side
Denne metode fungerer bedst, når dokumentet er på få sider, og der ikke er så mange tekstbokse at håndtere.
- Først og fremmest skal du klikke på en tekstboks for at udløse fanen "Format".
- Klik derefter på "Selection Pane" i gruppen "Arrange".
- I det åbne vindue i højre side skal du bruge "Ctrl" til at markere alle tekstbokse på en bestemt side.
- Nu kan du indstille den samme stil til alle valgte tekstbokse. Gentag ovenstående trin, hvis du har flere tekstbokse på forskellige sider.
Metode 3: Kør Word Macro
Hvis du har brug for at håndtere alle eksisterende tekstbokse i et dokument, må du hellere vælge makrometoden for at spare tid.
- Første og foremost, tryk på “Alt + F11” for at åbne VBA-editor i Word.
- Klik derefter på “Normal” og derefter “Indsæt”.
- Vælg derefter “Modul” i rullemenuen.
- Dobbeltklik på modulet for at åbne det og indsætte følgende koder:
Sub SetTextBoxStyle()
Dim objTextBox As Shape
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
For Each objTextBox In objDoc.Shapes
' Set line style.
With objTextBox.Line
.Visible = msoTrue
.foreColor.RGB = RGB(0, 0, 0)
End With
' Set fill color.
objTextBox.Fill.foreColor.RGB = RGB(198, 217, 241)
' Set text color.
objTextBox.TextFrame.TextRange.Font.TextColor.RGB = RGB(0, 0, 0)
' Set text size.
objTextBox.TextFrame.TextRange.Font.Size = 12
' Set font face.
objTextBox.TextFrame.TextRange.Font.Name = "Calibri"
' Align text.
objTextBox.TextFrame.TextRange.ParagraphFormat.Alignment = wdAlignParagraphJustify
Next objTextBox
Application.ScreenUpdating = True
End Sub
- Sidst men ikke mindst, klik på "Kør" eller tryk på "F5" for at udføre koder.
Du kan bestemt ændre koderne, så de opfylder dine særlige behov.
Håndtere ordfejl
Fejl kan opstå når som helst. De kan ikke løses. Det er måden du håndterer det på, der betyder nogetost. Når du bemærker en doc skader, bør du anskaffe et reparationsværktøj så hurtigt som muligt. Eller der kan ske yderligere skader på din fil, og du risikerer at miste den for altid.
Forfatter Introduktion:
Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder xlsx reparation og pdf produkter til reparation af software. For mere information besøg www.datanumen.com





