Cookie-urile ne ajuta sa oferim serviciile noastre. Prin utilizarea serviciilor noastre, sunteți de acord cu utilizarea de cookie-uri.
Sfat: alte limbi sunt traduse de Google. Puteți vizita English versiune a acestei legături.
Contul meu
x
or
x
x
Inregistreaza-te
x

or

Cum să modificați fontul și dimensiunea fontului în toate casetele de text din documentul Word?

Acest articol se referă la schimbarea fontului și dimensiunii fontului în casetele de text din documentul sau documentele actuale dintr-un director specificat. Încercați metoda VBA din articol.

Modificați fontul și dimensiunea fontului în casetele de text din documentul curent

Modificați fontul și mărimea fontului în casetele de text ale tuturor documentelor dintr-un dosar


Modificați fontul și dimensiunea fontului în casetele de text din documentul curent

Pentru casetele de text veți schimba fontul și dimensiunea fontului în documentul curent, aplicați codul VBA de mai jos pentru a rezolva problema.

1. apasă pe Alt + F11 pentru a deschide tasta Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, apoi copiați următorul cod în fereastra Module.

Codul VBA: modificați fontul și dimensiunea fontului în toate casetele de text din documentul curent

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

notițe: În cod, "Arial"Și"20"Este fontul și dimensiunea fontului specificate în cazul meu. Le puteți schimba pe baza propriilor nevoi.

3. apasă pe F5 cheia pentru a rula codul. Apoi, fontul și dimensiunea fontului tuturor textelor din casetele de text sunt modificate la dimensiunea fontului și a fontului specificat. Vedeți captura de ecran:


Modificați fontul și dimensiunea fontului în toate casetele de text ale tuturor documentelor dintr-un dosar

Pentru a schimba fontul și dimensiunea fontului în cutii text în mai multe documente Word, trebuie să aplicați codul VBA de mai jos.

1. Colectați toate documentele țintă care conțin casetele de text pe care le veți schimba fontul și dimensiunea fontului în același folder.

2. Într-un document Word de deschidere, apăsați pe Alt + F11 pentru a deschide tasta Microsoft Visual Basic pentru aplicații fereastră.

3. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, apoi copiați următorul cod în fereastra Module.

Codul VBA: modificați dimensiunea fontului și fontului în casetele de text ale mai multor documente

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. apasă pe F5 cheia pentru a rula codul. În deschidere Naviga , selectați folderul (conține documentele pe care le veți schimba fontul și dimensiunea fontului în casetele de text) și faceți clic pe OK butonul.

Apoi, toate caracterele textului și dimensiunea fontului documentelor din folderul selectat sunt modificate la dimensiunea și fontul specificat.



Kutools pentru Cuvânt

Mai mult decât funcțiile avansate 100 pentru Word 2003, 2007, 2010, 2013, 2016 și 2019

filmare kutools-700-225-KTE

Mai multe caracteristici | Descărcare gratuită | Doar $ 39.00 pentru sute de funcții

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.