¿Cómo cambiar la fuente y el tamaño de fuente en todos los cuadros de texto en un documento de Word?
Este artículo trata sobre cómo cambiar la fuente y el tamaño de fuente en los cuadros de texto del documento actual o en los documentos de una carpeta específica. Por favor, prueba los métodos VBA en el artículo.
Cambiar la fuente y el tamaño de fuente en los cuadros de texto del documento actual
Cambiar la fuente y el tamaño de fuente en los cuadros de texto del documento actual
Para los cuadros de texto en los que desee cambiar la fuente y el tamaño de fuente en el documento actual, por favor, aplique el siguiente código VBA para resolver el problema.
1. Presione las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic for Applications.
2. En la ventana de Microsoft Visual Basic for Applications, haga clic en Insertar > Módulo, y luego copie el siguiente código en la ventana del Módulo.
Código VBA: Cambiar la fuente y el tamaño de fuente en todos los cuadros de texto del documento actual
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: En el código, “Arial” y “20” son la fuente y el tamaño de fuente especificados en mi caso. Puede cambiarlos según sus propias necesidades.
3. Presione la tecla F5 para ejecutar el código. Luego, la fuente y el tamaño de fuente de todos los textos en los cuadros de texto se cambiarán a la fuente y el tamaño de fuente especificados. Ver captura de pantalla:
Cambiar la fuente y el tamaño de fuente en todos los cuadros de texto de todos los documentos en una carpeta
Para cambiar en masa la fuente y el tamaño de fuente en los cuadros de texto de varios documentos de Word, necesita aplicar el siguiente código VBA.
1. Por favor, reúna todos los documentos objetivo que contienen los cuadros de texto en los que cambiará la fuente y el tamaño de fuente en la misma carpeta.
2. En un documento de Word abierto, presione las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic for Applications.
3. En la ventana de Microsoft Visual Basic for Applications, haga clic en Insertar > Módulo, y luego copie el siguiente código en la ventana del Módulo.
Código VBA: Cambiar la fuente y el tamaño de fuente en los cuadros de texto de varios documentos
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. Presione la tecla F5 para ejecutar el código. En la ventana Examinar que aparece, seleccione la carpeta (que contiene los documentos en los que cambiará la fuente y el tamaño de fuente en los cuadros de texto) y haga clic en el botón Aceptar.
Luego, la fuente y el tamaño de fuente de todos los cuadros de texto de los documentos en la carpeta seleccionada se cambiarán a la fuente y el tamaño de fuente especificados.
Las mejores herramientas de productividad para Office
Kutools para Word - ¡Mejora tu experiencia en Word con más de 100 funciones extraordinarias!
🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir (Mantener Formato) / Super Traducir (Mantener Formato) / Redacción AI / Revisión con IA...
📘 Maestría en Documentos: Dividir páginas / Combinar documentos / Exportar rango en varios formatos (PDF/TXT/DOC/HTML...) / Conversión por lote a PDF...
✏ Edición de cuerpo: Buscar y reemplazar en lote en múltiples archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tablas / Convertir tabla a texto...
🧹 Limpieza sin esfuerzo: Elimina espacios extras / Saltos de sección / Cuadro de texto / Hipervínculos / Descubre más herramientas de eliminación en el grupo Eliminar...
➕ Inserciones creativas: Insertar delimitador de miles / Casilla de Verificación / Botón de Opción / Código QR / Código de Barras / Varias imágenes / Descubre más en el grupo Insertar...
🔍 Selecciones precisas: Selecciona páginas específicas / Tablas / Forma / Párrafo de Encabezado / Mejora la navegación con más funciones de Seleccionar...
⭐ Mejoras destacadas: Navega a cualquier rango / Inserta automáticamente texto repetitivo / Cambia entre ventanas de documento /11 herramientas de Conversión...
🌍 Compatible con más de40 idiomas: Usa Kutools en tu idioma preferido: ¡soporta inglés, español, alemán, francés, chino y más de40 idiomas adicionales!

✨ Kutools para Office – ¡Una sola instalación, cinco potentes herramientas!
Incluye Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools para Word · Kutools para PowerPoint
📦 Obtén las5 herramientas en una sola suite | 🔗 Integración perfecta con Microsoft Office | ⚡ Ahorra tiempo y aumenta tu productividad al instante
Las mejores herramientas de productividad para Office
Kutools para Word - ¡Más de 100 herramientas para Word!
- 🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir / Super Traducir / Redacción AI / Revisión con IA
- 📘 Maestría en Documentos: Dividir páginas / Combinar documentos / Conversión por lote a PDF
- ✏ Edición de cuerpo: Buscar y reemplazar en lote / Redimensionar todas las imágenes
- 🧹 Limpieza sin esfuerzo: Eliminar Espacios Extras / Eliminar Saltos de sección
- ➕ Inserciones creativas: Insertar delimitador de miles / Insertar Casilla de Verificación / Crear Códigos QR
- 🌍 Compatible con más de40 idiomas: ¡Kutools habla tu idioma – compatible con más de40 idiomas!