Loncat ke daftar isi utama

Bagaimana cara mengubah font dan ukuran font di semua kotak teks di dokumen Word?

Artikel ini berbicara tentang mengubah font dan ukuran font dalam kotak teks di dokumen saat ini atau dokumen di folder tertentu. Silakan coba metode VBA di artikel.

Ubah font dan ukuran font di kotak teks di dokumen saat ini

Ubah font dan ukuran font di kotak teks dari semua dokumen dalam folder


Ubah font dan ukuran font di kotak teks di dokumen saat ini

Untuk kotak teks Anda akan mengubah font dan ukuran font dalam dokumen saat ini, silakan terapkan kode VBA di bawah ini untuk menyelesaikan masalah.

1. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul, lalu salin kode berikut ke jendela modul.

Kode VBA: Ubah font dan ukuran font di semua kotak teks di dokumen saat ini

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

Note: Di kode, "Arial"Dan"20”Adalah fonta dan ukuran font yang ditentukan dalam kasus saya. Anda dapat mengubahnya berdasarkan kebutuhan Anda sendiri.

3. tekan F5 kunci untuk menjalankan kode. Kemudian semua font teks dan ukuran font di kotak teks diubah ke font dan ukuran font yang ditentukan. Lihat tangkapan layar:


Ubah font dan ukuran font di semua kotak teks dari semua dokumen dalam folder

Untuk mengubah font kotak teks dan ukuran font secara massal di beberapa dokumen Word, Anda perlu menerapkan kode VBA di bawah ini.

1. Harap kumpulkan semua dokumen target yang berisi kotak teks, Anda akan mengubah font dan ukuran font di bawah folder yang sama.

2. Dalam dokumen Word pembuka, tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul, lalu salin kode berikut ke jendela modul.

Kode VBA: Ubah font dan ukuran font di kotak teks beberapa dokumen

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. tekan F5 kunci untuk menjalankan kode. Dalam pembukaan Browse jendela, pilih folder (berisi dokumen Anda akan mengubah font dan ukuran font di kotak teks) dan klik OK .

Kemudian semua font kotak teks dan ukuran font dokumen di folder yang dipilih diubah ke font dan ukuran font yang ditentukan.

Alat Produktivitas Kantor Terbaik

Kutools for Word - Tingkatkan Pengalaman Kata Anda dengan Over 100 Fitur Luar Biasa!

🤖 Asisten AI Kutools: Ubah tulisan Anda dengan AI - Hasilkan Konten  /  Menulis Ulang Teks  /  Meringkas Dokumen  /  Menanyakan Informasi berdasarkan Dokumen, semuanya dalam Word

📘 Penguasaan Dokumen: Halaman Terpisah  /  Gabungkan Dokumen  /  Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/HTML...)  /  Konversi Batch ke PDF  /  Ekspor Halaman sebagai Gambar  /  Cetak Banyak File sekaligus...

Pengeditan Isi: Temukan dan Ganti Batch di Banyak File  /  Ubah Ukuran Semua Gambar  /  Ubah Urutan Baris dan Kolom Tabel  /  Ubah Tabel menjadi Teks...

🧹 Bersih dengan Mudah: Menyapu Spasi Ekstra  /  Bagian Istirahat  /  Semua Header  /  Teks box  /  Hyperlink  / Untuk alat penghapus lainnya, kunjungi kami Hapus Grup...

Sisipan Kreatif: Memasukkan Seribu Pemisah  /  Kotak Centang  /  Tombol Radio  /  Kode QR  /  barcode  /  Tabel Garis Diagonal  /  Keterangan Persamaan  /  Keterangan gambar  /  Keterangan Tabel  /  Banyak Gambar  / Temukan lebih lanjut di Sisipkan Grup...

🔍 Pilihan Presisi: Tepat halaman tertentu  /  tabel  /  bentuk  /  paragraf judul  / Tingkatkan navigasi dengan lebih Pilih fitur...

Peningkatan Bintang: Navigasi dengan cepat ke lokasi mana pun  /  menyisipkan teks berulang secara otomatis  /  beralih antar jendela dokumen dengan mulus  /  11 Alat Konversi...

👉 Ingin mencoba fitur-fitur tersebut? Kutools for Word menawarkan a Uji coba gratis 60-hari, tanpa batasan! 🚀
 
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