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

จะยอมรับการเปลี่ยนแปลงรูปแบบเฉพาะในเอกสาร Word ได้อย่างไร

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

ยอมรับเฉพาะการเปลี่ยนแปลงการติดตามการจัดรูปแบบใน Word ด้วยรหัส VBA

ยอมรับเฉพาะการเปลี่ยนแปลงแทร็กการจัดรูปแบบใน Word ด้วยฟังก์ชัน Show Markup


ยอมรับเฉพาะการเปลี่ยนแปลงการติดตามการจัดรูปแบบใน Word ด้วยรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยให้คุณยอมรับการเปลี่ยนแปลงแทร็กการจัดรูปแบบในเอกสาร Word เท่านั้นโปรดดำเนินการดังนี้:

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

2. จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูลคัดลอกและวางโค้ดด้านล่างลงในโมดูลเปล่าที่เปิดอยู่:

รหัส VBA: ยอมรับการเปลี่ยนแปลงรูปแบบในเอกสาร Word เท่านั้น

Sub AcceptFormatChanges()
    Dim xRev As Revision
    For Each xRev In ActiveDocument.Revisions
        If Left(xRev.FormatDescription, 10) = "Formatted:" Then
            xRev.Accept
        End If
    Next
End Sub

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และยอมรับเฉพาะการเปลี่ยนแปลงแทร็กการจัดรูปแบบเท่านั้นที่ยอมรับในเอกสาร Word ที่ใช้งานอยู่ทันที ดูภาพหน้าจอ:

doc ยอมรับการจัดรูปแบบ 1


ยอมรับเฉพาะการเปลี่ยนแปลงแทร็กการจัดรูปแบบใน Word ด้วยฟังก์ชัน Show Markup

ในเอกสาร Word คุณสามารถใช้ไฟล์ แสดงมาร์กอัป เพื่อทำงานนี้ให้เสร็จโปรดทำตามขั้นตอนต่อไปนี้:

1. ในไฟล์โหมดการเปลี่ยนแปลงแทร็กคลิก รีวิว > แสดงมาร์กอัปแล้วยกเลิกการเลือก ความคิดเห็น และ การแทรกและการลบ ตัวเลือกและปล่อยให้ไฟล์ การจัดรูปแบบ ตรวจสอบตัวเลือกดูภาพหน้าจอ:

doc ยอมรับการจัดรูปแบบ 2

2. และตอนนี้คุณสามารถเห็นการเปลี่ยนแปลงที่ติดตามการจัดรูปแบบจากนั้นคลิก รีวิว > ยอมรับ > ยอมรับการเปลี่ยนแปลงทั้งหมดที่แสดง ตามภาพหน้าจอต่อไปนี้:

doc ยอมรับการจัดรูปแบบ 3

3. และยอมรับการเปลี่ยนแปลงแทร็กการจัดรูปแบบทั้งหมดแล้วตอนนี้คุณต้องกลับมาที่ไฟล์ Comment, การแทรกและการลบ โดยตรวจสอบจากไฟล์ แสดงมาร์กอัป รายการแบบเลื่อนลงดูภาพหน้าจอ:

doc ยอมรับการจัดรูปแบบ 4

4. ตอนนี้คุณสามารถเห็นการเปลี่ยนแปลงแทร็กการจัดรูปแบบได้รับการยอมรับและยังคงมีการเปลี่ยนแปลงแทร็กอื่น ๆ ดูภาพหน้าจอ:

doc ยอมรับการจัดรูปแบบ 1

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

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

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

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

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

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

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

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

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

???? ต้องการลองใช้คุณสมบัติเหล่านี้หรือไม่? Kutools for Word มีไฟล์ ทดลองใช้ฟรี 60 วันโดยไม่มีข้อจำกัด! 🚀
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Vous êtes mon héros. En français, le code serait le suivant:

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If Left(xRev.FormatDescription, 12) = "Mis en forme" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Dans toutes les langues :

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If xRev.FormatDescription <> "" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Merci, en effet, la dernière méthode fonctionne aussi en néerlandais
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations