Cum să actualizați automat toate câmpurile înainte de a închide documentul Word

În acest articol, ne vom concentra pe expunerea modului de actualizare automată a tuturor câmpurilor dintr-un document înainte de a-l închide.

Folosim câmpuri pentru a stoca date care se pot modifica ulterior. Așadar, odată ce le modificăm, trebuie să actualizăm câmpurile în mod corespunzător. Și, din păcate, de cele mai multe ori, va trebui să le actualizăm manual.

În plus, cea mai mare problemă constă în faptul că putem uita cu ușurință să actualizăm câmpurile. Pentru a rezolva această problemă, vă oferim o macrocomandă pentru a actualiza automat câmpurile înainte de a închide documentul.

Actualizați toate câmpurile înainte de imprimare

Puteți modifica opțiunile Word pentru a-l seta în câmpurile de actualizare înainte de a imprima urmând pașii următori:

1. Mai întâi, faceți clic pe fila „Fișier”, apoi pe „Opțiuni”.
2. Apoi, în caseta „Opțiuni pentru cuvinte” deschisă, faceți clic pe „Afișare” în coloana din stânga.
3. În secțiunea din dreapta, accesați partea „Opțiuni de printare” pentru a bifa caseta „Actualizați câmpurile înainte de imprimare”.
4. În cele din urmă, faceți clic pe „OK”.

Actualizați automat toate câmpurile înainte de a închide documentul

1. Pentru început, declanșați editorul VBA în Word apăsând „Alt+ F11”.
2. Apoi faceți clic pe proiect „Normal”.
3. Apoi, în bara de meniu, faceți clic pe „Inserare”.
4. Și selectați „Modul de clasă”.
5. Apoi faceți clic pe comanda „Fereastră de proprietăți” din bara de meniu sau apăsați pe „F4” pentru a o declanșa.
6. În fereastra deschisă în colțul din stânga-jos, denumește modulul de clasă nou creat ca „objWordClass”.
7. În zona de codificare introduceți următoarele coduri:

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 nu uitați să faceți clic pe butonul „Salvați”.
9. Acum, încă în proiectul „Normal”, faceți clic din nou pe „Inserați” și selectați „Modul” de data aceasta.
10. Apoi deschideți modulul și lipiți aceste coduri:

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

11. În mod similar, salvați codurile.
12. Data viitoare când terminați editarea unui document, salvați-l. Și când faceți clic pe comanda „Închidere”, veți primi caseta de solicitare. Faceți clic pe „Da” pentru a actualiza toate câmpurile, iar documentul va fi închis când sarcina este finalizată.

Aduceți documentul mort înapoi la viață

Este inevitabil să întâlniți unele probleme din când în când în timp ce utilizați Word. Prin urmare, este indicat să fii pregătit pentru orice posibil deteriorat doc. Cel mai bun mod este, desigur, să obțineți în avans un instrument specializat de reparații.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara Excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com