ไปยังเนื้อหาหลัก

จะเปลี่ยนแบบอักษรและขนาดตัวอักษรในกล่องข้อความทั้งหมดในเอกสาร 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 สำหรับ Word - ยกระดับประสบการณ์คำศัพท์ของคุณด้วย Over 100 คุณสมบัติเด่น!

🤖 Kutools ผู้ช่วย AI: แปลงโฉมงานเขียนของคุณด้วย AI - สร้างเนื้อหา  /  เขียนข้อความใหม่  /  สรุปเอกสาร  /  สอบถามข้อมูล ขึ้นอยู่กับเอกสารทั้งหมดนี้ภายใน Word

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

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

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

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

🔍 การเลือกที่แม่นยำ: ระบุ หน้าที่เฉพาะเจาะจง  /  ตาราง  /  รูปร่าง  /  หัวเรื่องย่อหน้า  / เสริมการนำทางด้วย ข้อมูลเพิ่มเติม เลือกคุณสมบัติ...

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

???? ต้องการลองใช้คุณสมบัติเหล่านี้หรือไม่? Kutools for Word มีไฟล์ ทดลองใช้ฟรี 60 วันโดยไม่มีข้อจำกัด! 🚀
 
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