Cara Mengemas kini Semua Bidang Secara Auto sebelum Menutup Dokumen Word Anda

Dalam artikel ini, kami akan memberi tumpuan untuk menjelaskan cara mengemas kini semua bidang secara automatik dalam dokumen sebelum anda menutupnya.

Kita menggunakan medan untuk menyimpan data yang mungkin berubah kemudian. Jadi sebaik sahaja kita membuat beberapa perubahan padanya, kita perlu mengemas kini medan tersebut. Dan malangnya, kebanyakan masa, kita perlu mengemas kininya secara manual.

Selain itu, masalah terbesar terletak pada kita dengan mudah lupa untuk mengemas kini bidang. Untuk mengatasi masalah ini, kami menawarkan medan makro untuk mengemas kini secara automatik sebelum menutup dokumen.

Kemas kini Semua Medan sebelum Mencetak

Anda boleh mengubah pilihan Word untuk menetapkannya mengemas kini bidang sebelum mencetak dengan langkah-langkah berikut:

1. Pertama, klik tab "Fail" kemudian "Pilihan".
2. Selanjutnya di kotak "Pilihan Kata" terbuka, klik "Paparan" di lajur kiri.
3. Di bahagian kanan, pergi ke bahagian "Pilihan pencetakan" untuk mencentang kotak "Kemas kini bidang sebelum mencetak".
4. Terakhir, klik "OK".

Kemas kini secara automatik Semua Medan sebelum Menutup Dokumen

1. Sebagai permulaan, cetuskan editor VBA di Word menekan "Alt + F11".
2. Klik seterusnya projek "Normal".
3. Kemudian pada bar menu, klik "Masukkan".
4. Dan pilih "Modul Kelas".
5. Klik seterusnya "Properties Window" pada bar menu atau tekan "F4" untuk mencetuskannya.
6. Di tetingkap yang terbuka di sudut kiri bawah, namakan modul kelas yang baru dibuat sebagai "objWordClass".
7. Di kawasan pengekodan masukkan kod berikut:

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. Dan ingat untuk mengklik butang "Simpan".
9. Sekarang masih di bawah projek "Normal", klik "Masukkan" sekali lagi dan pilih "Modul" kali ini.
10. Buka modul seterusnya dan tampal kod ini:

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

11. Begitu juga, simpan kod.
12. Lain kali anda selesai mengedit dokumen, simpannya. Dan apabila anda mengklik perintah "Tutup", anda akan menerima kotak tanya. Klik "Ya" untuk mengemas kini semua bidang dan dokumen akan ditutup semasa tugas selesai.

Bawa Dokumen Mati ke Hidup

Sudah tentu dapat menemui beberapa masalah sekarang dan ketika menggunakan Word. Oleh itu, disarankan untuk bersiap sedia doc rosak. Cara terbaik adalah, tentu saja, mendapatkan alat pembaikan khusus terlebih dahulu.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk baiki Excel dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com