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

ตามภาพหน้าจอด้านล่างหากคุณต้องการขยายขนาดตัวอักษรของบอลลูนความคิดเห็นในเอกสาร Word คุณสามารถทำอะไรได้บ้าง? บทความนี้จะแสดงวิธีการสองวิธีในการแก้ปัญหานี้

เปลี่ยนขนาดฟอนต์ของบอลลูนความคิดเห็นด้วยฟังก์ชัน build-in ใน Word

เปลี่ยนขนาดฟอนต์ของบอลลูนความคิดเห็นด้วยรหัส VBA

เปลี่ยนขนาดฟอนต์ของบอลลูนความคิดเห็นด้วยฟังก์ชัน build-in ใน Word

คุณสามารถเปลี่ยนขนาดฟอนต์ของข้อความบอลลูนได้โดยตรงในบานหน้าต่างสไตล์ทั้งหมดใน Word กรุณาดำเนินการดังนี้

1 กด Ctrl + อื่น ๆ + เปลี่ยน + S คีย์เพื่อเปิด รูปแบบ บานหน้าต่าง

2 ใน รูปแบบ บานหน้าต่างคลิก Options. ดูภาพหน้าจอ:

3. ในการเปิด ตัวเลือกบานหน้าต่างสไตล์ เลือก ทุกสไตล์ จาก เลือกรูปแบบที่จะแสดง รายการแบบหล่นลง

4 จากนั้นคลิก OK เพื่อกลับไปที่ รูปแบบ บานหน้าต่างโปรดเลื่อนลงเพื่อค้นหาไฟล์ ข้อความบอลลูน คลิกบรรทัด เพื่อขยายรายการแบบหล่นลงจากนั้นคลิก แก้ไข. ดูภาพหน้าจอ:

5 ใน ปรับเปลี่ยนรูปแบบ หน้าต่างเลือกขนาดตัวอักษรตามที่คุณต้องการในไฟล์ การจัดรูปแบบ ดังภาพด้านล่างที่แสดงจากนั้นคลิกที่ไฟล์ OK ปุ่ม

6 ปิด รูปแบบ บานหน้าต่าง

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

หมายเหตุ: การตั้งค่านี้จะใช้กับความคิดเห็นทั้งหมดในอนาคต

เปลี่ยนขนาดฟอนต์ของบอลลูนความคิดเห็นด้วยรหัส VBA

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

1. ในเอกสารคุณจะเปลี่ยนขนาดตัวอักษรของบอลลูนความคิดเห็นให้กดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. ในหน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: เปลี่ยนขนาดตัวอักษรของบอลลูนความคิดเห็นใน Word

Sub SetCommentTextStyle()
'Updated by ExtendOffice 20181112
    Dim objComment As Comment
    Dim objDoc As Document
    Dim strFontName As String
    Dim strFontSize As String 
    Set objDoc = ActiveDocument
    strFontName = InputBox("Enter text font name here: ", "Font name")
    strFontSize = InputBox("Enter font size here: ", "Font size") 
    With objDoc
      For Each objComment In .Comments
        objComment.Range.Font.Name = strFontName
        objComment.Range.Style = ActiveDocument.Styles("Balloon Text Char")
      Next objComment
    End With
    ActiveDocument.Styles("Balloon Text").Font.Size = Val(strFontSize)
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส

4. ในครั้งแรก Kutools สำหรับ Word กล่องโต้ตอบป้อนแบบอักษรใหม่สำหรับความคิดเห็นของคุณแล้วคลิก OK.

5. ในวินาทีที่ Kutools สำหรับ Word กล่องโต้ตอบพิมพ์ขนาดตัวอักษรตามที่คุณต้องการแล้วคลิก OK.

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

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

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

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

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

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

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

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

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

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

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

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