Salt la conținutul principal

Cum se schimbă fontul și dimensiunea fontului în toate casetele de text din documentul Word?

Acest articol vorbește despre modificarea fontului și a dimensiunii fontului în casetele de text din documentul curent sau documentele dintr-un folder specificat. Vă rugăm să încercați metoda VBA din articol.

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

Schimbați fontul și dimensiunea fontului în casetele de text ale tuturor documentelor dintr-un folder


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, vă rugăm să aplicați codul VBA de mai jos pentru a rezolva problema.

1. apasă pe Alt + F11 tastele pentru a deschide 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.

Cod 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 specificat și dimensiunea fontului în cazul meu. Le puteți schimba în funcție de propriile nevoi.

3. apasă pe F5 tasta pentru a rula codul. Apoi, fontul și dimensiunea tuturor textelor din casetele de text sunt schimbate în fontul și dimensiunea fontului specificate. Vedeți captura de ecran:


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

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

1. Vă rugăm să colectați toate documentele țintă care conțin casete de text, veți schimba fontul și dimensiunea fontului în același folder.

2. Într-un document Word care se deschide, apăsați tasta Alt + F11 tastele pentru a deschide 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.

Cod VBA: modificați fontul și dimensiunea 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 tasta pentru a rula codul. În deschidere Naviga fereastra, selectați folderul (conține documente, veți schimba fontul și dimensiunea fontului în casetele de text) și faceți clic pe OK butonul.

Apoi, fontul tuturor casetelor de text și dimensiunea fontului documentelor din folderul selectat sunt schimbate în fontul și dimensiunea fontului specificate.

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

🤖 Asistent AI Kutools: Transformă-ți scrisul cu AI - Generați conținut  /  Rescrie textul  /  Rezumat documente  /  Solicitați informații pe baza Documentului, toate în Cuvânt

📘 Stăpânirea documentelor: Pagini împărțite  /  Fuzionați documente  /  Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...)  /  Conversie lot în PDF  /  Exportați paginile ca imagini  /  Imprimați mai multe fișiere simultan...

Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere  /  Redimensionați toate imaginile  /  Transpuneți rânduri și coloane de tabel  /  Convertiți tabelul în text...

🧹 Curățare fără efort: Îndepărtați Spații suplimentare  /  Secțiuni pauze  /  Toate anteturile  /  Casete text  /  hiperlinkuri  / Pentru mai multe instrumente de îndepărtare, mergeți la nostru Eliminați grupul...

Inserții creative: Inserați Mii de separatori  /  Casete de bifare  /  Butoane radio  /  QR Code  /  coduri de bare  /  Tabel cu linii diagonale  /  Legenda ecuației  /  Image Caption  /  Legenda tabelului  /  Imagini multiple  / Descoperiți mai multe în Inserați grupul...

???? Selectii de precizie: Repera cu precizie pagini specifice  /  tabele  /  forme  /  paragrafele de titlu  / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...

Îmbunătățiri de stele: Navigați rapid în orice locație  /  inserarea automată a textului repetitiv  /  comutați fără probleme între ferestrele documentelor  /  11 Instrumente de conversie...

???? Vrei să încerci aceste funcții? Kutools pentru Word oferă a 60-zi de încercare gratuită, fără limitări! 🚀
 
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is an awesome post.Really very informative and creative contents. These concept is a good way to enhance the knowledge.I like it and help me to development very well.Thank you for this brief explanation and very nice information.Well, got a good knowledge.

Java Training in Chennai
Java Training in Coimbatore
Java Training in Bangalore
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations