3 sätt att gruppera ändra textformat i alla textrutor i Word-dokument

I den här artikeln nedan vill vi visa dig 3 sätt att batch ändra textformat i alla textrutor i ditt Word-dokument.

Textrutor ses ofta i våra dokument. Medan du formaterar dokumenttexter kan vi inte glömma dem i textrutor. Men textrutor som sprids i ett dokument kan göra det svårt att välja alla texter inuti en gång för alla. Därför är det brådskande att lära sig lite trick för att göra batchbearbetningen av formateringssyfte.

Metod 1: Använd funktionen “Advanced Find”

1. Först och främst klickar du på fliken "Hem" och klickar sedan på pilknappen bakom "Sök" -kommandot i gruppen "Redigering".
2. Välj sedan "Avancerad sökning" i rullgardinsmenyn för att öppna dialogrutan "Sök och ersätt".
3. Sätt markören på textrutan "Hitta vad" och skriv "^?" där.
4. Klicka sedan på "Sök i" -knappen och välj "Textrutor i huvuddokumentet".
5. Nu kan du se alla texter i textrutor är i urval. Om du kanske glömmer strängen som ska läggas i rutan "Hitta vad" kan du klicka på "Mer" för att öppna fler alternativ i rutan och sedan klicka på "Special". Välj sedan ”Any Character”.
6. Med alla texter i urvalet formaterar du dem bara efter behov.

Metod 2: Gruppbyte av textformat i alla textrutor i ett dokument

1. För att börja, tryck "Alt + F11" i Word för att starta VBA-redigeraren.
2. Klicka sedan på “Normal”.
3. Klicka sedan på fliken "Infoga" och välj "Modul".
4. Och dubbelklicka på den nya modulen och klistra in det böljande makrot där:

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. Klicka slutligen på "Kör".

Detta makro ställer in alla textrutatexter i “Arial” -teckensnitt till 16 pt. Du kan ändra dessa inställningar efter behov.

Metod 3: Gruppbyte av textformat i alla textrutor i flera dokument

Nu när vi pratar om batchbehandling kan vi inte eliminera behovet av att göra det bland flera filer.

1. Först, ordna alla måldokument i samma katalog.
2. Nästa installation och körning av makro som du gör i metod 2. Den här gången ersätter du dessa koder med följande:

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. När du kör makrot kommer det att finnas en inmatningsruta som frågar upp, till exempel nedan:
4. Ange mappadressen i textrutan och klicka på “OK”. Glöm inte att lägga till ett "\" i slutet av din söksträng. Vänta bara Word för att göra sitt jobb.

Gör full förberedelser medan du kan

Vi förstår att det är svårt att ens tänka på att din fil blir skadad. Vi kan dock aldrig förbise denna möjlighet, som ärligt talat, är relativt hög. Hur som helst, det är mindre besvärligt att vidta förebyggande åtgärder än att hoppa runt för en doc fix verktyg.

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 fixa Excel och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com