So aktualisieren Sie alle Felder automatisch, bevor Sie Ihr Word-Dokument schließen

In diesem Artikel konzentrieren wir uns darauf, die Möglichkeit zu erläutern, alle Felder in einem Dokument automatisch zu aktualisieren, bevor Sie es schließen.

Wir verwenden Felder, um Daten zu speichern, die sich später ändern können. Sobald wir also Änderungen an diesen Daten vornehmen, müssen wir die entsprechenden Felder aktualisieren. Und leider müssen wir dies in den meisten Fällen manuell tun.

Außerdem liegt das größte Problem darin, dass wir leicht vergessen können, Felder zu aktualisieren. Um dieses Problem zu beheben, bieten wir Ihnen ein Makro zum automatischen Aktualisieren von Feldern vor dem Schließen des Dokuments.

Aktualisieren Sie alle Felder vor dem Drucken

Sie können die Word-Optionen ändern, um die Aktualisierungsfelder vor dem Drucken mit den folgenden Schritten festzulegen:

1. Klicken Sie zuerst auf die Registerkarte "Datei" und dann auf "Optionen".
2. Klicken Sie anschließend im geöffneten Feld "Word-Optionen" in der linken Spalte auf "Anzeige".
3. Gehen Sie im rechten Abschnitt zum Abschnitt "Druckoptionen", um das Kontrollkästchen "Felder vor dem Drucken aktualisieren" zu aktivieren.
4. Zuletzt klicken Sie auf "OK".

Alle Felder vor dem Schließen des Dokuments automatisch aktualisieren

1. Starten Sie zunächst den VBA-Editor in Word und drücken Sie „Alt + F11“.
2. Klicken Sie anschließend auf "Normal".
3. Klicken Sie dann in der Menüleiste auf "Einfügen".
4. Und wählen Sie "Klassenmodul".
5. Klicken Sie anschließend in der Menüleiste auf den Befehl „Eigenschaftenfenster“ oder drücken Sie „F4“, um ihn auszulösen.
6. Benennen Sie im neu geöffneten Fenster in der linken unteren Ecke das neu erstellte Klassenmodul als "objWordClass".
7. Geben Sie im Codierungsbereich folgende Codes ein:

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. Und denken Sie daran, auf die Schaltfläche „Speichern“ zu klicken.
9. Klicken Sie jetzt noch unter "Normal" erneut auf "Einfügen" und wählen Sie diesmal "Modul".
10. Öffnen Sie als nächstes das Modul und fügen Sie die folgenden Codes ein:

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

11. Ebenso speichern Sie Codes.
12. Wenn Sie das nächste Mal ein Dokument bearbeitet haben, speichern Sie es. Und wenn Sie auf den Befehl "Schließen" klicken, erhalten Sie das Fragenfeld. Klicken Sie auf "Ja", um alle Felder zu aktualisieren. Das Dokument wird geschlossen, wenn die Aufgabe erledigt ist.

Erwecke totes Dokument zum Leben

Bei der Verwendung von Word treten zwangsläufig gelegentlich Probleme auf. Daher ist es ratsam, auf alles Mögliche vorbereitet zu sein beschädigter doc. Am besten besorgen Sie sich natürlich im Voraus ein spezielles Reparaturwerkzeug.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Excel reparieren und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX