Kā automātiski atjaunināt visus laukus pirms Word dokumenta aizvēršanas

Šajā rakstā mēs pievērsīsimies tam, kā pirms dokumenta aizvēršanas automātiski atjaunināt visus dokumenta laukus.

Mēs izmantojam laukus, lai saglabātu datus, kas vēlāk var mainīties. Tāpēc, kad mēs tajās kaut ko mainīsim, mums attiecīgi jāatjaunina lauki. Un diemžēl most laika gaitā mums tās būs jāatjaunina manuāli.

Turklāt lielākā problēma ir tā, ka mēs varam viegli aizmirst atjaunināt laukus. Lai novērstu šo problēmu, pirms dokumenta aizvēršanas mēs piedāvājam makro lauku automātiskai atjaunināšanai.

Pirms drukāšanas atjauniniet visus laukus

Varat mainīt Word opcijas, lai iestatītu atjaunināšanas laukus pirms drukāšanas, veicot šādas darbības:

1. Pirmkārt, noklikšķiniet uz cilnes Fails, pēc tam uz Opcijas.
2. Pēc tam lodziņā “Word opcijas” atveriet kreisajā slejā noklikšķiniet uz “Parādīt”.
3. Labajā sadaļā dodieties uz sadaļu “Drukāšanas opcijas”, lai atzīmētu izvēles rūtiņu “Atjaunināt laukus pirms drukāšanas”.
4. Visbeidzot, noklikšķiniet uz Labi.

Pirms dokumenta aizvēršanas automātiski atjauniniet visus laukus

1. Vispirms aktivizējiet VBA redaktoru programmā Word, nospiežot “Alt + F11”.
2. Pēc tam noklikšķiniet uz “Normal” projekta.
3. Pēc tam izvēlnes joslā noklikšķiniet uz “Ievietot”.
4. Un atlasiet “Klases modulis”.
5. Pēc tam izvēlnes joslā noklikšķiniet uz komandas Properties Window vai nospiediet taustiņu F4, lai to iedarbinātu.
6. Kreisajā un apakšējā stūrī atvērtajā logā jaunizveidoto klases moduli nosauciet kā “objWordClass”.
7. Kodēšanas apgabalā ievadiet šādus 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. Neaizmirstiet noklikšķināt uz pogas Saglabāt.
9. Tagad joprojām sadaļā “Normāls” vēlreiz noklikšķiniet uz “Ievietot” un šoreiz atlasiet “Modulis”.
10. Nākamais atveriet moduli un ielīmējiet šos kodus:

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

11. Līdzīgi saglabājiet kodus.
12. Nākamreiz, kad pabeidzat dokumenta rediģēšanu, saglabājiet to. Noklikšķinot uz komandas Aizvērt, tiks parādīts vaicājuma lodziņš. Noklikšķiniet uz “Jā”, lai atjauninātu visus laukus, un, veicot uzdevumu, dokuments tiks aizvērts.

Atdzīviniet mirušo dokumentu

Lietojot Word, neizbēgami ir jāsaskaras ar dažām problēmām. Tāpēc ieteicams būt gataviem visiem iespējamiem gadījumiem sabojāts dok. Labākais veids, protams, ir iepriekš iegūt specializētu remonta rīku.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp labot Excel un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar