3 modi per modificare in batch il formato del testo in tutte le caselle di testo nel documento di Word

In questo articolo qui sotto, vogliamo mostrarti 3 modi per modificare in batch il formato del testo in tutte le caselle di testo nel tuo documento Word.

Le caselle di testo sono spesso visibili nei nostri documenti. Mentre formattiamo i testi dei documenti, non possiamo dimenticare quelli nelle caselle di testo. Tuttavia, le caselle di testo sparse in un documento possono rendere difficile selezionare tutti i testi all'interno una volta per tutte. Pertanto, al di fuori degli scopi di formattazione, è urgente imparare qualche trucco per eseguire l'elaborazione in batch.

Metodo 1: utilizzare la funzione "Ricerca avanzata".

1. Prima di tutto, fai clic sulla scheda "Home" e vai a fare clic sul pulsante freccia dietro il comando "Trova" nel gruppo "Modifica".
2. Successivamente nell'elenco a discesa, scegli "Ricerca avanzata" per aprire la finestra di dialogo "Trova e sostituisci".
3. Posiziona il cursore nella casella di testo "Trova cosa" e inserisci "^?" Là.
4. Quindi fai clic sul pulsante "Trova in" e scegli "Caselle di testo nel documento principale".
5. Ora puoi vedere che tutti i testi nelle caselle di testo sono selezionati. Nel caso in cui si dimentichi la stringa da inserire nella casella "Trova cosa", è possibile fare clic sul pulsante "Altro" per aprire più opzioni nella casella e quindi fare clic su "Speciale". Quindi scegli "Qualsiasi carattere".
6. Con tutti i testi selezionati, basta formattarli come richiesto.

Metodo 2: modifica in batch del formato del testo in tutte le caselle di testo in un documento

1. Per iniziare, premi “Alt + F11” in Word per attivare l'editor VBA.
2. Quindi fai clic su "Normale".
3. Quindi fare clic sulla scheda "Inserisci" e scegliere "Modulo".
4. E fai doppio clic sul nuovo modulo e incolla lì la seguente macro:

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. Infine, fai clic su "Esegui".

Questa macro imposta tutti i testi delle caselle di testo in carattere "Arial" a 16 pt. È possibile modificare queste impostazioni secondo necessità.

Metodo 3: modifica in batch del formato del testo in tutte le caselle di testo in più documenti

Ora che stiamo parlando di elaborazione batch, non possiamo eliminare la necessità di farlo tra più file.

1. Innanzitutto, organizza tutti i documenti di destinazione nella stessa directory.
2. Quindi installa ed esegui la macro come fai nel metodo 2. Questa volta sostituisci quei codici con i seguenti:

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. Durante l'esecuzione della macro, verrà visualizzata una casella di input, come il seguente:
4. Immettere l'indirizzo della cartella nella casella di testo e fare clic su "OK". Non dimenticare di aggiungere una "\" alla fine della stringa del percorso. Quindi aspetta solo che Word faccia il suo lavoro.

Fai una preparazione completa finché puoi

Comprendiamo che è difficile persino pensare che il tuo file venga corrotto. Tuttavia, non possiamo mai trascurare questa possibilità che, a dire il vero, è relativamente alta. Ad ogni modo, è meno problematico prendere misure preventive che saltellare per a correzione del documento strumento.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui correggere Excel and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com