จะเปลี่ยนแบบอักษรและขนาดตัวอักษรในกล่องข้อความทั้งหมดในเอกสาร 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 วันทันที 🚀.
