3 manieren om batchgewijs tekstformaat te wijzigen in alle tekstvakken in Word-document

In dit artikel hieronder willen we u 3 manieren laten zien om het tekstformaat in alle tekstvakken in uw Word-document batchgewijs te wijzigen.

Tekstvakken zijn vaak te zien in documenten. Terwijl documentteksten opmaken, kunnen we die in tekstvakken niet vergeten. Tekstvakken die in een document worden verspreid, kunnen het echter moeilijk maken om alle teksten erin voor eens en voor altijd te selecteren. Daarom is het, vanwege opmaakdoeleinden, dringend om een ​​truc te leren om de batchverwerking uit te voeren.

Methode 1: Gebruik de functie "Geavanceerd zoeken"

1. Klik eerst op het tabblad "Home" en klik op de pijlknop achter het commando "Zoeken" in de groep "Bewerken".
2. Kies vervolgens in de vervolgkeuzelijst "Geavanceerd zoeken" om het dialoogvenster "Zoeken en vervangen" te openen.
3. Plaats de cursor op het tekstvak 'Zoeken naar' en typ '^?' Daar.
4. Klik vervolgens op de knop "Zoeken in" en kies "Tekstvakken in hoofddocument".
5. Nu kunt u zien dat alle teksten in tekstvakken in selectie zijn. In het geval dat u de tekenreeks vergeet die u in het vak "Zoeken naar" wilt plaatsen, kunt u op de knop "Meer" klikken om meer opties in het vak te openen en vervolgens op "Speciaal" klikken. Kies vervolgens "Elk teken".
6. Met alle teksten geselecteerd, formatteert u ze gewoon zoals vereist.

Methode 2: Batch-tekstformaat wijzigen in alle tekstvakken in één document

1. Om te beginnen drukt u in Word op "Alt+F11" om de VBA-editor te openen.
2. Klik vervolgens op "Normaal".
3. Klik vervolgens op het tabblad "Invoegen" en kies "Module".
4. En dubbelklik op de nieuwe module en plak de brullende macro daar:

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 ten slotte op "Uitvoeren".

Deze macro stelt alle tekstvakteksten in het lettertype "Arial" in op 16 pt. U kunt deze instellingen desgewenst wijzigen.

Methode 3: Batch-tekstformaat wijzigen in alle tekstvakken in meerdere documenten

Nu we het hebben over batchverwerking, kunnen we de noodzaak om dit tussen meerdere bestanden te doen niet elimineren.

1. Zorg er allereerst voor dat alle betreffende documenten in dezelfde map staan.
2. Installeer en voer de macro vervolgens uit zoals bij methode 2. Vervang deze keer deze codes door de volgende:

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. Tijdens het uitvoeren van de macro zal er een invoerveld verschijnen, zoals hieronder:
4. Voer het mapadres in het tekstvak in en klik op "OK". Vergeet niet om een ​​"\" toe te voegen aan het einde van uw padstring. Wacht dan maar Word om zijn werk te doen.

Bereid u volledig voor terwijl het nog kan

We begrijpen dat het moeilijk is om er zelfs maar aan te denken dat uw bestand corrupt wordt. We kunnen deze mogelijkheid echter nooit over het hoofd zien, die, om eerlijk te zijn, relatief hoog is. Hoe dan ook, het is minder lastig om preventieve maatregelen te nemen dan rond te huppelen voor een doc-oplossing en vermijd negatieve reviews.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder Excel repareren en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com