Kako automatski ažurirati sva polja prije zatvaranja Word dokumenta

U ovom ćemo se članku usredotočiti na objašnjavanje načina automatskog ažuriranja svih polja u dokumentu prije nego što ga zatvorite.

Polja koristimo za pohranjivanje podataka koji se kasnije mogu promijeniti. Stoga, nakon što napravimo neke promjene u njima, moramo ih ažurirati na odgovarajući način. Nažalost, većinu vremena morat ćemo ih ažurirati ručno.

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

Ažurirajte sva polja prije ispisa

Možete promijeniti Wordove opcije kako biste postavili ažurirana polja prije ispisa prema sljedećim koracima:

1. Najprije kliknite karticu "Datoteka", a zatim "Opcije".
2. Zatim u otvorenom okviru "Opcije riječi" kliknite "Prikaz" u lijevom stupcu.
3. U desnom odjeljku idite na dio "Opcije ispisa" da označite okvir "Ažuriraj polja prije ispisa".
4. Na kraju kliknite "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 "Normalni" projekt.
3. Zatim na traci izbornika kliknite "Umetni".
4. I odaberite "Modul klase".
5. Zatim kliknite naredbu "Prozor svojstava" na traci izbornika ili pritisnite "F4" da biste je pokrenuli.
6. U prozoru otvorenom u lijevom donjem kutu novostvoreni modul klase nazovite "objWordClass".
7. U 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 kliknuti gumb "Spremi".
9. Još uvijek pod projektom "Normal", ponovno kliknite "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, spremite kodove.
12. Sljedeći put kada završite s uređivanjem dokumenta, spremite ga. A kada kliknete na naredbu "Zatvori", dobit ćete upitni okvir. Kliknite "Da" za ažuriranje svih polja i dokument će biti zatvoren kada zadatak bude obavljen.

Vratite mrtvi dokument u život

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

Uvod za autora:

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