จะเปลี่ยนแบบอักษรและขนาดตัวอักษรในกล่องข้อความทั้งหมดในเอกสาร Word ได้อย่างไร?

บทความนี้พูดถึงการเปลี่ยนฟอนต์และขนาดฟอนต์ในกล่องข้อความในเอกสารปัจจุบันหรือเอกสารในโฟลเดอร์ที่ระบุ โปรดลองใช้วิธี VBA ในบทความ

เปลี่ยนฟอนต์และขนาดฟอนต์ในกล่องข้อความในเอกสารปัจจุบัน

เปลี่ยนฟอนต์และขนาดฟอนต์ในกล่องข้อความของเอกสารทั้งหมดในโฟลเดอร์

เปลี่ยนฟอนต์และขนาดฟอนต์ในกล่องข้อความในเอกสารปัจจุบัน

สำหรับกล่องข้อความคุณจะเปลี่ยนแบบอักษรและขนาดตัวอักษรในเอกสารปัจจุบันโปรดใช้รหัส VBA ด้านล่างเพื่อแก้ปัญหา

1 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกรหัสต่อไปนี้ลงในหน้าต่างโมดูล

รหัส VBA: เปลี่ยนแบบอักษรและขนาดตัวอักษรในกล่องข้อความทั้งหมดในเอกสารปัจจุบัน

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

หมายเหตุ: ในรหัส“Arial"และ"20” คือแบบอักษรและขนาดตัวอักษรที่ระบุในกรณีของฉัน คุณสามารถเปลี่ยนแปลงได้ตามความต้องการของคุณเอง

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส จากนั้นแบบอักษรและขนาดตัวอักษรของข้อความทั้งหมดในกล่องข้อความจะเปลี่ยนเป็นแบบอักษรและขนาดตัวอักษรที่ระบุ ดูภาพหน้าจอ:

เปลี่ยนฟอนต์และขนาดฟอนต์ในกล่องข้อความทั้งหมดของเอกสารทั้งหมดในโฟลเดอร์

สำหรับการเปลี่ยนแบบอักษรและขนาดตัวอักษรของกล่องข้อความจำนวนมากในเอกสาร Word หลายชุดคุณต้องใช้รหัส VBA ด้านล่าง

1. โปรดรวบรวมเอกสารเป้าหมายทั้งหมดที่มีกล่องข้อความที่คุณจะเปลี่ยนแบบอักษรและขนาดตัวอักษรภายใต้โฟลเดอร์เดียวกัน

2. ในเอกสาร Word เปิดให้กดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

3 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกรหัสต่อไปนี้ลงในหน้าต่างโมดูล

รหัส VBA: เปลี่ยนแบบอักษรและขนาดตัวอักษรในกล่องข้อความของเอกสารหลายชุด

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 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในการเปิด หมวดหมู่สินค้า หน้าต่างเลือกโฟลเดอร์ (มีเอกสารที่คุณจะเปลี่ยนแบบอักษรและขนาดตัวอักษรในกล่องข้อความ) แล้วคลิกไฟล์ OK ปุ่ม

แบบอักษรและขนาดแบบอักษรของกล่องข้อความทั้งหมดในโฟลเดอร์ที่เลือกจะเปลี่ยนเป็นแบบอักษรและขนาดตัวอักษรที่ระบุ

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools for Word - ยกระดับประสบการณ์คำศัพท์ของคุณด้วย Over 100 คุณสมบัติเด่น!

เจาะลึกคุณสมบัติเด่นด้านล่างหรือ คลิกที่นี่เพื่อสำรวจพลังทั้งหมดของ Kutools for Word.

📘 ความเชี่ยวชาญด้านเอกสาร: แยกหน้า  /  ผสานเอกสาร  /  ส่งออกตัวเลือกในรูปแบบต่างๆ (PDF/TXT/DOC/XLSX)  /  แบทช์แปลงเป็น PDF  /  ส่งออกเพจเป็นรูปภาพ  /  พิมพ์หลายไฟล์พร้อมกัน ...

✏ การแก้ไขเนื้อหา: ค้นหาแบทช์และแทนที่ ข้ามหลายไฟล์   /  ปรับขนาดรูปภาพทั้งหมด   /  ย้ายแถวและคอลัมน์ของตาราง  /  แปลงตารางเป็นข้อความ ...

🧹 ทำความสะอาดได้อย่างง่ายดาย: กวาดออกไป พื้นที่พิเศษ  /  แบ่งส่วน  /   ส่วนหัวทั้งหมด  /  กล่องข้อความ  /  เชื่อมโยงหลายมิติ  /  หากต้องการทราบเครื่องมือในการถอดเพิ่มเติม โปรดไปที่ Remove Group ของเรา

➕ ส่วนแทรกโฆษณา: สิ่งที่ใส่เข้าไป ตัวคั่นหลักพัน  /  กล่องกาเครื่องหมาย  /  ปุ่มวิทยุ  /  คิวอาร์โค้ด  /  บาร์โค้ด  /  ตารางเส้นทแยงมุม  /  คำอธิบายสมการ  /  คำบรรยายภาพ  /  คำบรรยายตาราง  /  รูปภาพหลายภาพ  /  ค้นพบเพิ่มเติมในกลุ่มแทรกของเรา

🔍 การเลือกที่แม่นยำ: ระบุหน้าเฉพาะ  /  ตาราง  /  รูปร่าง  /  หัวเรื่องย่อหน้า  /  นำทางอย่างง่ายดายโดยใช้กลุ่มที่เลือกของเรา

⭐ การปรับปรุงดาว: นำทางอย่างรวดเร็วไปยังสถานที่ใด ๆ  /  แทรกข้อความซ้ำอัตโนมัติ  /  สลับระหว่างหน้าต่างเอกสารได้อย่างราบรื่น  /  11 เครื่องมือการแปลง ...

แปลงงาน Word ของคุณด้วย Kutools 👉 ดาวน์โหลดพร้อมทดลองใช้ 30 วันทันที 🚀.

อ่านเพิ่มเติม       ดาวน์โหลดฟรี      การซื้อ