Kaip automatiškai atnaujinti visus laukus prieš uždarant „Word“ dokumentą

Šiame straipsnyje mes sutelksime dėmesį į tai, kaip paaiškinti, kaip automatiškai atnaujinti visus dokumento laukus prieš jį uždarant.

Laukuose saugome duomenis, kurie vėliau gali pasikeisti. Taigi, kai juos pakeičiame, turime atitinkamai atnaujinti laukus. Deja, dažniausiai juos turime atnaujinti rankiniu būdu.

Be to, didžiausia problema yra ta, kad galime lengvai pamiršti atnaujinti laukus. Norėdami išspręsti šią problemą, prieš uždarant dokumentą siūlome automatinio atnaujinimo laukų makrokomandą.

Prieš spausdindami atnaujinkite visus laukus

Galite pakeisti Word parinktis, kad nustatytumėte atnaujinimo laukus prieš spausdindami atlikdami šiuos veiksmus:

1. Pirmiausia spustelėkite skirtuką „Failas“, tada „Parinktys“.
2. Toliau atidarytame laukelyje „Word Options“ spustelėkite „Ekranas“ kairiajame stulpelyje.
3. Dešinėje skiltyje eikite į dalį „Spausdinimo parinktys“, kad patikrintumėte laukelį „Atnaujinti laukus prieš spausdinant“.
4. Galiausiai spustelėkite „Gerai“.

Automatiškai atnaujinkite visus laukus prieš uždarydami dokumentą

1. Norėdami pradėti, suaktyvinkite VBA redaktorių Word paspausdami „Alt + F11“.
2. Tada spustelėkite „Įprastas projektas“.
3. Tada meniu juostoje spustelėkite „Įterpti“.
4. Ir pasirinkite „Klasės modulis“.
5. Tada meniu juostoje spustelėkite komandą „Ypatybių langas“ arba paspauskite „F4“, kad ją paleistumėte.
6. Kairiajame apatiniame kampe atidarytame lange naujai sukurtą klasės modulį pavadinkite „objWordClass“.
7. Kodavimo srityje įveskite šiuos kodus:

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. Ir nepamirškite paspausti mygtuko „Išsaugoti“.
9. Dabar vis dar projekte „Įprastas“, dar kartą spustelėkite „Įterpti“ ir šį kartą pasirinkite „Modulis“.
10. Kitas atidarykite modulį ir įklijuokite šiuos kodus:

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

11. Panašiai išsaugokite kodus.
12. Kai kitą kartą baigsite redaguoti dokumentą, išsaugokite jį. Ir kai paspausite komandą „Uždaryti“, gausite klausimo laukelį. Spustelėkite „Taip“, kad atnaujintumėte visus laukus ir dokumentas bus uždarytas, kai bus atlikta užduotis.

Sugrąžink mirusį dokumentą į gyvenimą

Retkarčiais naudojant „Word“ neišvengiamai kyla problemų. Taigi, patartina būti pasiruošus bet kokiai galimybei sugadintas doc. Geriausias būdas, žinoma, yra iš anksto įsigyti specializuotą remonto įrankį.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant taisyti Excel bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com