3 måter å batchendre tekstformat i alle tekstbokser i Word-dokument

I denne artikkelen nedenfor ønsker vi å vise deg 3 måter å batchendre tekstformat i alle tekstbokser i Word-dokumentet.

Tekstbokser er ofte sett i ut dokumenter. Mens du formaterer dokumenttekster, kan vi ikke glemme dem i tekstbokser. Tekstbokser som spres i et dokument kan imidlertid gjøre det vanskelig å velge alle tekster i en gang for alle. Derfor, ut av formateringsformål, er det presserende å lære et triks for å utføre batchbehandlingen.

Metode 1: Bruk funksjonen "Avansert søk".

1. Først av alt, klikk på "Hjem"-fanen og klikk på pilknappen bak "Finn"-kommandoen i "Redigering"-gruppen.
2. Neste på rullegardinlisten velger du "Avansert søk" for å åpne dialogboksen "Finn og erstatt".
3. Sett markøren på "Finn hva" tekstboksen og skriv inn "^?" der.
4. Klikk deretter på "Finn inn"-knappen og velg "Tekstbokser i hoveddokument".
5. Nå kan du se at alle tekster i tekstbokser er i utvalg. I tilfelle du glemmer strengen som skal legges i "Finn hva"-boksen, kan du klikke på "Mer"-knappen for å åpne flere alternativer i boksen og deretter klikke på "Spesial". Velg deretter "Hvilket som helst tegn".
6. Med alle tekster i utvalg, formater dem bare etter behov.

Metode 2: Batch endre tekstformat i alle tekstbokser i ett dokument

1. For å starte, trykk «Alt+F11» i Word for å aktivere VBA-editoren.
2. Klikk deretter på "Normal".
3. Klikk deretter på "Sett inn"-fanen og velg "Modul".
4. Og dobbeltklikk på den nye modulen og lim inn makroen nedenfor 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. Til slutt klikker du på "Kjør".

Denne makroen setter alle tekstbokstekster i "Arial"-font til 16 pt. Du kan endre disse innstillingene etter behov.

Metode 3: Batch endre tekstformat i alle tekstbokser i flere dokumenter

Nå som vi snakker om batchbehandling, kan vi ikke eliminere behovet for å gjøre det blant flere filer.

1. Først, ordne alle måldokumentene i samme katalog.
2. Neste installer og kjør makro som du gjør i metode 2. Denne gangen erstatter disse kodene 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 kjører makroen, vil det være en inndataboks som spør, for eksempel nedenfor:
4. Skriv inn mappeadressen i tekstboksen og klikk "OK". Ikke glem å legge til en "\" på slutten av stistrengen. Så er det bare å vente på at Word gjør jobben sin.

Gjør fullstendige forberedelser mens du kan

Vi forstår at det er vanskelig å tenke på at filen din blir korrupt. Imidlertid kan vi aldri overse denne muligheten som, for å være ærlig, er relativt høy. Uansett, det er mindre plagsomt å ta forebyggende tiltak enn å hoppe rundt etter en doc fikse verktøyet.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fikse Excel og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med