Come cambiare il carattere e la dimensione del carattere in tutte le caselle di testo in un documento Word?
Questo articolo parla del cambio del carattere e della dimensione del carattere nelle caselle di testo nel documento corrente o nei documenti in una cartella specificata. Si prega di provare i metodi VBA nell'articolo.
Cambia il carattere e la dimensione del carattere nelle caselle di testo nel documento corrente
Cambia il carattere e la dimensione del carattere nelle caselle di testo nel documento corrente
Per le caselle di testo in cui si desidera cambiare il carattere e la dimensione del carattere nel documento corrente, applicare il seguente codice VBA per risolvere il problema.
1. Premere i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.
2. Nella finestra Microsoft Visual Basic for Applications, fare clic su Inserisci > Modulo, quindi copiare il seguente codice nella finestra Modulo.
Codice VBA: Cambia il carattere e la dimensione del carattere in tutte le caselle di testo nel documento corrente
Sub FormatTextsInTextBoxes()
'Updated by ExtendOffice 20181128
Dim I As Long
Dim xShape As Shape
Dim xDoc As Document
Set xDoc = ActiveDocument
On Error Resume Next
For Each xShape In xDoc.Shapes
xShape.Select
If xShape.GroupItems Is Nothing Then
With xShape.TextFrame.TextRange.Font
.Name = "Arial"
.Size = 20
End With
GoTo LblExit
End If
For I = 1 To xShape.GroupItems.Count
With xShape.GroupItems(I).TextFrame.TextRange.Font
.Name = "Arial"
.Size = 20
End With
Next
LblExit:
Next
End Sub
Nota: Nel codice, “Arial” e “20” sono il carattere e la dimensione del carattere specificati nel mio caso. È possibile modificarli in base alle proprie esigenze.
3. Premere il tasto F5 per eseguire il codice. Quindi, il carattere e la dimensione del carattere di tutti i testi nelle caselle di testo verranno modificati nel carattere e nella dimensione specificati. Vedere screenshot:
Cambia il carattere e la dimensione del carattere in tutte le caselle di testo di tutti i documenti in una cartella
Per cambiare in blocco il carattere e la dimensione del carattere delle caselle di testo in più documenti Word, è necessario applicare il seguente codice VBA.
1. Raccogliere tutti i documenti di destinazione che contengono le caselle di testo in cui si desidera cambiare il carattere e la dimensione del carattere nella stessa cartella.
2. In un documento Word aperto, premere i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.
3. Nella finestra Microsoft Visual Basic for Applications, fare clic su Inserisci > Modulo, quindi copiare il seguente codice nella finestra Modulo.
Codice VBA: Cambia il carattere e la dimensione del carattere nelle caselle di testo di più documenti
Sub FormatTextsInTextBoxesInMultiDoc()
'Updated by ExtendOffice 20181128
Dim I As Long
Dim xShape As Shape
Dim xDlg As FileDialog
Dim xFolder As Variant
Dim xFileStr As String
On Error Resume Next
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show = -1 Then
xFolder = xDlg.SelectedItems(1) + "\"
xFileStr = Dir(xFolder & "*.doc", vbNormal)
While xFileStr <> ""
Documents.Open xFolder & xFileStr
For Each xShape In ActiveDocument.Shapes
xShape.Select
If xShape.GroupItems Is Nothing Then
With xShape.TextFrame.TextRange.Font
.Name = "Arial"
.Size = 20
End With
GoTo LblExit
End If
For I = 1 To xShape.GroupItems.Count
With xShape.GroupItems(I).TextFrame.TextRange.Font
.Name = "Arial"
.Size = 20
End With
Next
LblExit:
Next
ActiveDocument.Save
ActiveDocument.Close
xFileStr = Dir()
Wend
End If
End Sub
4. Premere il tasto F5 per eseguire il codice. Nella finestra Sfoglia che si apre, selezionare la cartella (contiene i documenti in cui si desidera cambiare il carattere e la dimensione del carattere nelle caselle di testo) e fare clic sul pulsante OK.
Quindi, il carattere e la dimensione del carattere di tutte le caselle di testo dei documenti nella cartella selezionata vengono modificati nel carattere e nella dimensione specificati.
I migliori strumenti per la produttività in ufficio
Kutools for Word - Eleva la tua esperienza su Word con oltre 100 funzioni straordinarie!
🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni Formato) / Super Traduci (Mantieni Formato) / Redazione AI / Correzione AI...
📘 Maestria del Documento: Dividi Pagine / Unisci Documenti / Esporta Intervallo in vari formati (PDF/TXT/DOC/HTML...) / Conversione in batch in PDF...
✏ Modifica del Testo: Trova e Sostituisci in batch su più file / Ridimensiona tutte le Immagini / Trasponi Righe e Colonne della Tabella / Converti Tabella in Testo...
🧹 Pulizia senza sforzo: Elimina Spazi Extra / Interruzioni di Sezione / Casella di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, visita il gruppo Rimuovi...
➕ Inserimenti Creativi: Inserisci Separatore delle Migliaia / Casella di Controllo / Pulsante di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...
🔍 Selezioni Accurate: Individua Pagine Specifiche / Tabelle / Forma / Paragrafo di Intestazione / Migliora la navigazione con altre funzioni di Seleziona...
⭐ Miglioramenti Speciali: Vai a qualsiasi Intervallo / Inserimento automatico di testo ripetitivo / Passa tra Finestre dei Documenti /11 strumenti di Conversione...
🌍 Supporta oltre40 lingue: Usa Kutools nella lingua che preferisci – Inglese, Spagnolo, Tedesco, Francese, Cinese, e più di altre40 lingue!

✨ Kutools for Office – Una sola installazione, cinque strumenti potenti!
Include Office Tab Pro · Kutools per Excel · Kutools per Outlook · Kutools for Word · Kutools for PowerPoint
📦 Ottieni tutti e5 gli strumenti in un'unica suite | 🔗 Integrazione perfetta con Microsoft Office | ⚡ Risparmia tempo e aumenta subito la produttività
I migliori strumenti per la produttività in ufficio
Kutools for Word - 100+ strumenti per Word
- 🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida / Super Traduci / Redazione AI / Correzione AI
- 📘 Maestria del Documento: Dividi Pagine / Unisci Documenti / Conversione in batch in PDF
- ✏ Modifica del Testo: Trova e Sostituisci in batch / Ridimensiona tutte le Immagini
- 🧹 Pulizia senza sforzo: Rimuovi Spazi Extra / Rimuovi Interruzioni di Sezione
- ➕ Inserimenti Creativi: Inserisci Separatore delle Migliaia / Inserisci Casella di Controllo / Crea Codici QR
- 🌍 Supporta oltre40 lingue: Kutools parla la tua lingua – oltre40 lingue supportate!