วิธีอัปเดตฟิลด์ทั้งหมดโดยอัตโนมัติก่อนที่จะปิดเอกสาร Word ของคุณ

ในบทความนี้เราจะเน้นที่การอธิบายวิธีการอัปเดตฟิลด์ทั้งหมดในเอกสารโดยอัตโนมัติก่อนที่คุณจะปิด

เราใช้ฟิลด์เพื่อเก็บข้อมูลที่อาจเปลี่ยนแปลงในภายหลัง ดังนั้นเมื่อเราทำการเปลี่ยนแปลงใดๆ กับฟิลด์เหล่านั้น เราจำเป็นต้องอัปเดตฟิลด์ให้สอดคล้องกัน และที่น่าเสียดายคือ ส่วนใหญ่แล้วเราจะต้องอัปเดตฟิลด์เหล่านั้นด้วยตนเอง

นอกจากนี้ปัญหาใหญ่ที่สุดอยู่ที่เราลืมอัปเดตฟิลด์ได้อย่างง่ายดาย เพื่อแก้ไขปัญหานี้เราขอเสนอมาโครสำหรับอัปเดตช่องอัตโนมัติก่อนปิดเอกสาร

อัปเดตฟิลด์ทั้งหมดก่อนพิมพ์

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

1. ขั้นแรกคลิกแท็บ "ไฟล์" จากนั้นคลิก "ตัวเลือก"
2. ถัดไปในช่อง "ตัวเลือก Word" ให้เปิดคลิก "แสดง" ที่คอลัมน์ด้านซ้าย
3. ในส่วนด้านขวาไปที่ส่วน“ ตัวเลือกการพิมพ์” เพื่อเลือกช่อง“ อัปเดตช่องก่อนพิมพ์”
4. สุดท้ายคลิก“ ตกลง”

อัปเดตฟิลด์ทั้งหมดโดยอัตโนมัติก่อนปิดเอกสาร

1. เริ่มต้นด้วยการเรียกโปรแกรมแก้ไข VBA ใน Word โดยกด“ Alt + F11”
2. จากนั้นคลิกโครงการ "ปกติ"
3. จากนั้นบนแถบเมนูคลิก "แทรก"
4. แล้วเลือก“ โมดูลคลาส”
5. จากนั้นคลิกคำสั่ง“ Properties Window” บนแถบเมนูหรือกด“ F4” เพื่อเรียกใช้
6. ในหน้าต่างที่เปิดอยู่ที่มุมซ้ายลงให้ตั้งชื่อโมดูลคลาสที่สร้างขึ้นใหม่เป็น "objWordClass"
7. ในพื้นที่การเข้ารหัสให้ป้อนรหัสต่อไปนี้:

Option Explicit
Public WithEvents objWord As Word.Application
Private Sub objWord_DocumentBeforeClose(ByVal objDoc As Document, varCancel As Boolean)
  Dim strButtonValue As String

  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
  objDoc.Save
  strButtonValue = MsgBox("Do you want to update all fields in this document before closing?", _
                   vbYesNo + vbQuestion)
  If strButtonValue = vbYes Then
    varCancel = True
    If objDoc.Fields.Count > 0 Then
      With objDoc
        .Fields.Update
        .Save
        .Close
      End With
    Else
      MsgBox ("There is no field in this document.")
    End If
  Else
    varCancel = False
  End If

  Application.ScreenUpdating = True
End Sub

8. และอย่าลืมคลิกปุ่ม "บันทึก"
9. ตอนนี้ยังอยู่ในโครงการ "ปกติ" ให้คลิก "แทรก" อีกครั้งแล้วเลือก "โมดูล" ในครั้งนี้
10. เปิดโมดูลถัดไปและวางรหัสเหล่านี้:

Option Explicit
  Dim objWordClass As New objWordClass
  Public Sub AutoOpen()
  Set objWordClass.objWord = Word.Application
End Sub

11. ในทำนองเดียวกันบันทึกรหัส
12. ครั้งต่อไปที่คุณแก้ไขเอกสารเสร็จแล้วให้บันทึก และเมื่อคุณคลิกคำสั่ง“ ปิด” คุณจะได้รับกล่องถาม คลิก“ ใช่” เพื่ออัปเดตช่องทั้งหมดและเอกสารจะปิดเมื่องานเสร็จสิ้น

นำเอกสารที่ตายแล้วกลับมามีชีวิต

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

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

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