3 måder at batch ændre tekstformat i alle tekstfelter i Word-dokument

I denne artikel nedenfor vil vi vise dig 3 måder at batchskifte tekstformat i alle tekstbokse i dit Word-dokument.

Tekstbokse ses ofte i dokumenter. Mens du formaterer dokumenttekster, kan vi ikke glemme dem i tekstbokse. Tekstbokse, der spredes i et dokument, kan dog gøre dig svært at vælge alle tekster indeni én gang for alle. Derfor, af formateringsformål, er det presserende at lære nogle tricks til at udføre batchbehandlingen.

Metode 1: Brug funktionen "Avanceret Søg".

1. Først og fremmest skal du klikke på fanen "Hjem" og klikke på pileknappen bag kommandoen "Find" i gruppen "Redigering".
2. Vælg derefter "Avanceret søgning" på rullelisten for at åbne dialogboksen "Find og erstat".
3. Sæt markøren ved "Find hvad" tekstfeltet og indtast "^?" der.
4. Klik derefter på knappen "Find ind" og vælg "Tekstbokse i hoveddokumentet".
5. Nu kan du se, at alle tekster i tekstbokse er i udvalg. I tilfælde af at du glemmer strengen, der skal sættes i boksen "Find hvad", kan du klikke på knappen "Mere" for at åbne flere muligheder i boksen og derefter klikke på "Special". Vælg derefter "Enhver tegn".
6. Med alle tekster i udvalg, skal du blot formatere dem efter behov.

Metode 2: Batchændring af tekstformat i alle tekstbokse i ét dokument

1. For at starte skal du trykke på "Alt+F11" i Word for at aktivere VBA-editoren.
2. Klik derefter på “Normal”.
3. Klik derefter på fanen "Indsæt", og vælg "Modul".
4. Og dobbeltklik på det nye modul og indsæt den nedenstående makro der:

Sub FormatTextsInTextBoxes()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objShape In .Shapes
      If objShape.Type = msoTextBox Then
        objShape.TextFrame.TextRange.Font.Name = "Arial"
        objShape.TextFrame.TextRange.Font.Size = "16"
      End If
    Next
  End With
End Sub

5. Klik til sidst på "Kør".

Denne makro indstiller alle tekstbokstekster i "Arial"-skrifttype til 16 pt. Du kan ændre disse indstillinger efter behov.

Metode 3: Batchændring af tekstformat i alle tekstbokse i flere dokumenter

Nu hvor vi taler om batchbehandling, kan vi ikke eliminere behovet for at gøre det blandt flere filer.

1. Først skal du arrangere alle måldokumenter i samme mappe.
2. Installer og kør derefter makroen, som du gør i metode 2. Denne gang erstatter disse koder med følgende:

Sub FormatTextsInTextBoxesInMultiDoc()
  Dim strFile As String
  Dim strFolder As String
  Dim objDoc As Document
 
  '  Initialization
  strFolder = InputBox("Enter folder path here: ")
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  '  Process each file in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
    Set objDoc = ActiveDocument
 
    With objDoc
      For Each objShape In .Shapes
        If objShape.Type = msoTextBox Then
          objShape.TextFrame.TextRange.Font.Name = "Arial"
          objShape.TextFrame.TextRange.Font.Size = "16"
        End If
      Next
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

3. Mens du kører makroen, vil der være en inputboks, der bliver bedt om, såsom nedenfor:
4. Indtast mappeadressen i tekstboksen og klik på "OK". Glem ikke at tilføje et "\" i slutningen af ​​din stistreng. Så vent bare, at Word gør sit arbejde.

Forbered dig fuldt ud, mens du kan

Vi forstår, at det er svært overhovedet at tænke på, at din fil bliver korrupt. Vi kan dog aldrig overse denne mulighed, som for at være ærlig er relativt høj. I hvert fald er det mindre besværligt at tage forebyggende foranstaltninger end at hoppe rundt efter en doc rettelse værktøj.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder rette Excel og pdf produkter til reparation af software. For mere information besøg www.datanumen.com