วิธีการแบทช์ยอมรับหรือปฏิเสธการเปลี่ยนแปลงทั้งหมดในเอกสาร Word หลายชุด

ในบทความนี้ เราจะแสดงวิธีการยอมรับหรือปฏิเสธการเปลี่ยนแปลงทั้งหมดในเอกสาร Word หลายฉบับพร้อมกันในคราวเดียว

เป็นเรื่องง่ายที่จะยอมรับหรือปฏิเสธการเปลี่ยนแปลงทั้งหมดในเอกสาร Word เดียว คุณเพียงแค่คลิกแท็บ“ ตรวจสอบ” จากนั้นคลิกปุ่มแบบเลื่อนลงบนคำสั่ง“ ยอมรับ” หรือ“ ปฏิเสธ” จากนั้นเลือก“ ยอมรับการเปลี่ยนแปลงทั้งหมดในเอกสาร” หรือ“ ปฏิเสธการเปลี่ยนแปลงทั้งหมดในเอกสาร”

ถ้ามีเอกสารหลายชุดพร้อมการเปลี่ยนแปลงที่คุณต้องการยอมรับหรือปฏิเสธเป็นชุด? เพื่อให้งานดังกล่าวสำเร็จเราจำเป็นต้องมีมาโครต่อไปนี้

แทรกแบบฟอร์มผู้ใช้

1. ก่อนอื่นให้กด“ Alt + F11” เพื่อเปิดตัวแก้ไข VBA ใน Word
2. ขั้นที่สองคลิก "ปกติ"
3. จากนั้นคลิก“ แทรก” บนแถบเมนู
4. เลือก“ UserForm” บนเมนูนั้น
5. คลิกที่จับรอบ ๆ แบบฟอร์มเพื่อปรับขนาดให้เหมาะสม
6. กด“ F4” เพื่อเปิด“ หน้าต่างคุณสมบัติ” ที่มุมซ้ายลง
7. จากนั้นตั้งชื่อแบบฟอร์มว่า“ frmAcceptOrRejectChanges” และตั้งคำบรรยายเป็น“ ยอมรับ / ปฏิเสธการเปลี่ยนแปลง” นอกจากนี้ให้ตั้งค่า“ ShowModal” เป็น“ False”
8. จากนั้นคลิก“ กล่องเครื่องมือ” บนแถบเมนู
9. ใช้การควบคุมบนกล่องเครื่องมือเพื่อสร้างปุ่มคำสั่ง 3 ปุ่มและป้ายกำกับและวางลำดับดังกล่าว:
10. ตอนนี้คลิกที่ฉลากเพื่อเปิดใช้งานหน้าต่างคุณสมบัติ ตั้งคำบรรยายเป็น“ คุณต้องการ:” ขอแนะนำให้ตั้งค่าพื้นหลังของป้ายกำกับเป็นแบบโปร่งใส นอกจากนี้คุณสามารถกำหนดสีและขนาดตัวอักษรได้ตามต้องการ
11. คลิกถัดไปที่ปุ่มคำสั่ง 1. ตั้งชื่อเป็น“ btnAccept” ตั้งคำบรรยายเป็น“ ยอมรับการเปลี่ยนแปลงทั้งหมดในเอกสารหลายชุด”
12. จากนั้นดับเบิลคลิกที่ปุ่มคำสั่ง 1 และป้อนรหัสต่อไปนี้:

Private Sub btnAccept_Click()
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)

  With dlgFile
    dlgFile.AllowMultiSelect = True
    If .Show = -1 Then
      For nDocx = 1 To dlgFile.SelectedItems.Count
        Documents.Open dlgFile.SelectedItems(nDocx)
        Set objDocx = ActiveDocument

        objDocx.AcceptAllRevisions
        objDocx.Save
        objDocx.Close
      Next nDocx
    Else
      MsgBox ("You need to select documents first!")
      Exit Sub
    End If
  End With
  MsgBox ("You have accepted all revisions in selected documents.")
  Set objDocx = Nothing

End Sub

13. ตอนนี้กลับไปที่ฟอร์มและคลิกที่ปุ่มคำสั่ง 2 ตั้งชื่อเป็น“ btnReject” และตั้งค่าข้อความคำอธิบายภาพเป็น“ ปฏิเสธการเปลี่ยนแปลงทั้งหมดในหลายเอกสาร”
14. ในทำนองเดียวกันดับเบิลคลิกที่ปุ่มคำสั่ง 2 และป้อนรหัสเหล่านี้:

Private Sub btnReject_Click()
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)  
    
  With dlgFile
    dlgFile.AllowMultiSelect = True
    If .Show = -1 Then
      For nDocx = 1 To dlgFile.SelectedItems.Count
        Documents.Open dlgFile.SelectedItems(nDocx)
        Set objDocx = ActiveDocument
              
        objDocx.RejectAllRevisions
        objDocx.Save
        objDocx.Close
      Next nDocx
    Else
      MsgBox ("You need to select documents first!")
      Exit Sub
    End If
  End With
  MsgBox ("You have rejected all revisions in selected documents.")
  Set objDocx = Nothing
End Sub

15. แล้วคลิกต่อไปที่ปุ่มคำสั่ง 3. ตั้งชื่อเป็น“ btnClose” และตั้งคำอธิบายภาพเป็น“ ปิด”
16. ในทำนองเดียวกันดับเบิลคลิกที่ปุ่มคำสั่ง 3 และพิมพ์รหัส:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. บันทึกรหัสทั้งหมด

ใส่โมดูล

1. เริ่มต้นด้วยการทำซ้ำขั้นตอนที่ 2 และ 3 ด้านบน
2. และคราวนี้เลือก "โมดูล"
3. ดับเบิลคลิกเพื่อเข้าสู่โมดูลใหม่และป้อนมาโครนี้:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. บันทึกมาโคร คุณสามารถเลือกกำหนดปุ่มสำหรับมาโครนี้ได้ สำหรับขั้นตอนโดยละเอียดคุณสามารถไปที่ลิงค์นี้เพื่ออ้างอิง: วิธีลบการจัดรูปแบบของข้อความที่วางด้วยมาโครและ VBA ใน Word ของคุณ
5. เรียกใช้แมโครเพื่อกำหนดรูปแบบผู้ใช้ คลิก“ ยอมรับการเปลี่ยนแปลงทั้งหมดในเอกสารหลายชุด” หรือ“ ปฏิเสธการเปลี่ยนแปลงทั้งหมดในเอกสารหลายชุด” จากนั้นคุณจะเรียกหน้าต่าง“ เรียกดู” เลือกเอกสารแล้วคลิก“ ตกลง”

นี่คือผลลัพธ์:

จัดการการทุจริตด้านเอกสาร

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

บทนำผู้เขียน:

Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ แก้ไข Excel และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.