Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com canviar la font i la mida de la font en tots els quadres de text del document de Word?

En aquest article es parla de canviar la font i la mida de la font en quadres de text del document o documents actuals en una carpeta especificada. Proveu el mètode VBA a l'article.

Canvieu la font i la mida de la font en els quadres de text del document actual

Canvieu el tipus de lletra i la mida de la font en els quadres de text de tots els documents d'una carpeta


Canvieu la font i la mida de la font en els quadres de text del document actual

Per als quadres de text, canviarà el tipus de lletra i la mida del tipus de lletra en el document actual, si us plau, apliqueu el codi VBA a continuació per resoldre el problema.

1. Premeu el botó Alt + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. A la Microsoft Visual Basic per a aplicacions finestra, feu clic a Insereix > Mòduls, i després copieu el següent codi a la finestra Mòdul.

Codi VBA: Canvieu la font i la mida de la font en tots els quadres de text del document 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: Al codi, "Arial"I"20"És el tipus de lletra i mida de lletra especificat en el meu cas. Podeu canviar-les segons les vostres necessitats.

3. Premeu el botó F5 clau per executar el codi. A continuació, la mida del tipus de lletra i de la lletra dels textos dels quadres de text es canvia a la font i la mida de font especificades. Mostra la captura de pantalla:


Canvieu la font i la mida de la font en tots els quadres de text de tots els documents d'una carpeta

Per canviar el tipus de lletra i la mida de la lletra de text a granel en diversos documents de Word, heu d'aplicar el codi VBA a continuació.

1. Si us plau, recopileu tots els documents de destinació que contenen quadres de text, canviarà la font i la mida de lletra a la mateixa carpeta.

2. En un document d'obertura de Word, premeu el Alt + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

3. A la Microsoft Visual Basic per a aplicacions finestra, feu clic a Insereix > Mòduls, i després copieu el següent codi a la finestra Mòdul.

Codi VBA: canvieu la font i la mida de lletra en quadres de text de diversos documents

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. Premeu el botó F5 clau per executar el codi. A l'obertura explorar finestra, seleccioneu la carpeta (conté documents que canviarà la font i la mida de la font als quadres de text) i feu clic al botó OK botó.

A continuació, la mida de la font i la mida de font dels documents de la carpeta seleccionada es canvia a la font i la mida de font especificades.



Kutools per a la paraula

Més de 100 Advanced Functions per Word 2003, 2007, 2010, 2013, 2016 i 2019

shot-kutools-700-225-kte

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.