Kako automatski ažurirati sva polja prije zatvaranja Word dokumenta

U ovom članku ćemo se fokusirati na objašnjenje načina za automatsko ažuriranje svih polja u dokumentu prije nego što ga zatvorite.

Polja koristimo za pohranjivanje podataka koji se kasnije mogu promijeniti. Dakle, kada napravimo neke promjene na njima, moramo ih ažurirati na odgovarajući način. Nažalost, većinu vremena ćemo ih morati ažurirati ručno.

Osim toga, najveći problem leži u tome što lako možemo zaboraviti ažurirati polja. Da bismo riješili ovaj problem, nudimo vam makro za automatsko ažuriranje polja prije zatvaranja dokumenta.

Ažurirajte sva polja prije štampanja

Možete promijeniti Word opcije kako biste ga postavili za ažuriranje polja prije štampanja sa sljedećim koracima:

1. Prvo kliknite na karticu "Datoteka", a zatim na "Opcije".
2. Zatim u okviru "Opcije riječi" otvorite, kliknite "Prikaz" na lijevoj koloni.
3. U desnom odeljku idite na deo „Opcije štampanja“ da biste označili polje „Ažuriraj polja pre štampanja“.
4. Na kraju, kliknite na “OK”.

Automatsko ažuriranje svih polja prije zatvaranja dokumenta

1. Za početak, pokrenite VBA editor u Wordu pritiskom na “Alt+ F11”.
2. Zatim kliknite na "Normalni" projekat.
3. Zatim na traci menija kliknite na „Insert“.
4. I odaberite “Class Module”.
5. Zatim kliknite na komandu “Properties Window” na traci menija ili pritisnite “F4” da biste je pokrenuli.
6. U prozoru koji je otvoren u lijevom donjem kutu, nazovite novokreirani modul klase kao “objWordClass”.
7. Na području kodiranja unesite sljedeće kodove:

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. I ne zaboravite da kliknete na dugme „Sačuvaj“.
9. Sada još uvijek pod “Normal” projektom, ponovo kliknite na “Insert” i ovaj put odaberite “Module”.
10. Zatim otvorite modul i zalijepite ove kodove:

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

11. Slično, sačuvajte kodove.
12. Sljedeći put kada završite s uređivanjem dokumenta, sačuvajte ga. A kada kliknete na komandu “Zatvori”, dobićete polje sa pitanjem. Kliknite "Da" da ažurirate sva polja i dokument će biti zatvoren kada se zadatak završi.

Vratite Mrtvi dokument u život

Neizbježno je naići na neke probleme s vremena na vrijeme dok koristite Word. Stoga je preporučljivo biti spreman na sve moguće oštećena doc. Najbolji način je, naravno, unaprijed nabaviti specijalizirani alat za popravku.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti Excel i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com