Cara Memperbarui Semua Bidang Secara Otomatis sebelum Menutup Dokumen Word Anda

Pada artikel ini, kami akan fokus menjelaskan cara memperbarui otomatis semua bidang dalam dokumen sebelum Anda menutupnya.

Kita menggunakan field untuk menyimpan data yang mungkin berubah di kemudian hari. Jadi, begitu kita melakukan perubahan pada field tersebut, kita perlu memperbarui field yang sesuai. Dan sayangnya, sebagian besar waktu, kita harus memperbarui field tersebut secara manual.

Selain itu, masalah terbesar terletak pada kita dapat dengan mudah lupa memperbarui bidang. Untuk mengatasi masalah ini, kami menawarkan makro untuk memperbarui bidang secara otomatis sebelum menutup dokumen.

Perbarui Semua Bidang sebelum Mencetak

Anda dapat mengubah opsi Word untuk mengaturnya memperbarui bidang sebelum mencetak dengan langkah-langkah berikut:

1. Pertama, klik tab "File" lalu "Options".
2. Selanjutnya di kotak "Opsi Word" terbuka, klik "Tampilan" di kolom kiri.
3. Di bagian kanan, buka bagian "Opsi pencetakan" untuk mencentang kotak "Perbarui bidang sebelum mencetak".
4. Terakhir, klik "OK".

Perbarui Otomatis Semua Bidang sebelum Menutup Dokumen

1. Untuk memulai, picu editor VBA di Word dengan menekan "Alt + F11".
2. Selanjutnya klik proyek "Normal".
3. Kemudian di menu bar, klik "Sisipkan".
4. Dan pilih "Modul Kelas".
5. Selanjutnya klik perintah "Properties Window" pada menu bar atau tekan "F4" untuk memicunya.
6. Pada jendela yang terbuka di sudut kiri bawah, beri nama modul kelas yang baru dibuat sebagai "objWordClass".
7. Di area pengkodean masukkan kode 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 ingatlah untuk mengklik tombol "Simpan".
9. Sekarang masih di bawah proyek "Normal", klik "Sisipkan" lagi dan pilih "Modul" kali ini.
10. Selanjutnya buka modul dan tempel kode-kode ini:

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

11. Demikian pula, simpan kode.
12. Lain kali Anda menyelesaikan pengeditan dokumen, simpan. Dan ketika Anda mengklik perintah "Tutup", Anda akan menerima kotak yang meminta. Klik "Ya" untuk memperbarui semua bidang dan dokumen akan ditutup saat tugas selesai.

Hidupkan kembali Dokumen Mati

Pasti akan menemukan beberapa masalah sekarang dan nanti saat menggunakan Word. Karena itu, disarankan untuk bersiap menghadapi segala kemungkinan doc rusak. Cara terbaik tentu saja adalah dengan mendapatkan alat perbaikan khusus terlebih dahulu.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki Excel ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com