Kako samodejno posodobiti vsa polja, preden zaprete Wordov dokument

V tem članku se bomo osredotočili na razlago načina samodejnega posodabljanja vseh polj v dokumentu, preden ga zaprete.

Polja uporabljamo za shranjevanje podatkov, ki se lahko kasneje spremenijo. Ko torej v njih naredimo nekaj sprememb, moramo polja ustrezno posodobiti. In žal jih bomo večinoma morali posodobiti ročno.

Poleg tega je največja težava v tem, da zlahka pozabimo posodobiti polja. Če želite odpraviti to težavo, vam pred zapiranjem dokumenta ponujamo makro za polja za samodejno posodabljanje.

Pred tiskanjem posodobite vsa polja

Wordove možnosti lahko spremenite tako, da pred tiskanjem nastavite polja za posodobitev, in sicer tako:

1. Najprej kliknite jeziček »Datoteka« in nato »Možnosti«.
2. Nato v odprtem polju »Word Options« kliknite »Display« v levem stolpcu.
3. V desnem razdelku pojdite na del »Možnosti tiskanja«, da potrdite polje »Posodobi polja pred tiskanjem«.
4. Na koncu kliknite »V redu«.

Samodejno posodobi vsa polja pred zapiranjem dokumenta

1. Za začetek sprožite urejevalnik VBA v programu Word, tako da pritisnete »Alt + F11«.
2. Nato kliknite projekt »Normal«.
3. Nato v menijski vrstici kliknite »Vstavi«.
4. In izberite »Razredni modul«.
5. Nato v menijski vrstici kliknite ukaz »Properties Window« ali pritisnite »F4«, da ga sprožite.
6. V oknu, ki se odpre v levem spodnjem kotu, novo ustvarjeni modul razreda poimenujte kot »objWordClass«.
7. Na področju kodiranja vnesite naslednje kode:

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. In ne pozabite klikniti gumba »Shrani«.
9. Zdaj še vedno v okviru projekta »Normal«, znova kliknite »Vstavi« in tokrat izberite »Modul«.
10. Naslednji modul odprite in prilepite te kode:

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

11. Podobno shranite kode.
12. Ko boste naslednjič končali z urejanjem dokumenta, ga shranite. In ko kliknete ukaz »Zapri«, boste prejeli vprašalno polje. Kliknite »Da«, da posodobite vsa polja in dokument bo zaprt, ko bo naloga končana.

Oživite mrtvi dokument

Med uporabo programa Word se občasno pojavijo nekateri problemi. Zato je priporočljivo biti pripravljen na vse mogoče poškodovan dok. Najboljši način je seveda vnaprej dobiti posebno orodje za popravilo.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo Excel in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com