Note: The other languages of the website are Google-translated. Back to English

¿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 habla sobre cambiar la fuente y el tamaño de fuente en los cuadros de texto en el documento actual o documentos en una carpeta específica. Pruebe el método 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 de todos los documentos de una carpeta


Cambiar la fuente y el tamaño de fuente en los cuadros de texto del documento actual

Para los cuadros de texto, cambiará la fuente y el tamaño de fuente en el documento actual, aplique el siguiente código VBA para resolver el problema.

1. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Móduloy luego copie el siguiente código en la ventana Módulo.

Código VBA: cambie la fuente y el tamaño de fuente en todos los cuadros de texto en el 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”Es la fuente y el tamaño de fuente especificados en mi caso. Puede cambiarlos según sus propias necesidades.

3. presione el F5 clave para ejecutar el código. Luego, la fuente y el tamaño de fuente de todos los textos en los cuadros de texto se cambian a la fuente y 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 la fuente y el tamaño de fuente de los cuadros de texto a granel en varios documentos de Word, debe aplicar el siguiente código VBA.

1. Recopile todos los documentos de destino que contengan cuadros de texto; cambiará la fuente y el tamaño de fuente en la misma carpeta.

2. En un documento de Word inicial, presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

3. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Móduloy luego copie el siguiente código en la ventana Módulo.

Código VBA: cambie la fuente y el tamaño de fuente en 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 el F5 clave para ejecutar el código. En la apertura Explore ventana, seleccione la carpeta (contiene documentos, cambiará la fuente y el tamaño de fuente en los cuadros de texto) y haga clic en el OK del botón.

Luego, la fuente y el tamaño de fuente de todos los cuadros de texto de los documentos en la carpeta seleccionada se cambian a la fuente y tamaño de fuente especificados.


Herramientas de productividad de palabras recomendadas

 

Kutools For Word - Más de 100 funciones avanzadas para Word, ahorra un 50 % de tiempo

  • Las operaciones complicadas y repetidas se pueden realizar un solo procesamiento en segundos.
  • Inserte varias imágenes en carpetas en un documento de Word a la vez.
  • Fusiona y combina varios archivos de Word en carpetas en uno con el orden que desees.
  • Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
  • Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, etc.
Comentarios (1)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Esta es una publicación increíble. Contenidos realmente muy informativos y creativos. Este concepto es una buena manera de mejorar el conocimiento. Me gusta y me ayuda a desarrollarme muy bien. Gracias por esta breve explicación y muy buena información. Bueno, obtuve un buen conocimiento.

Capacitación en Java en Chennai
Capacitación en Java en Coimbatore
Capacitación en Java en Bangalore
No hay comentarios publicados aquí todavía

Síganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL