Så här uppdaterar du automatiskt alla fält innan du stänger ditt Word-dokument

I den här artikeln kommer vi att fokusera på att beskriva sättet att automatiskt uppdatera alla fält i ett dokument innan du stänger det.

Vi använder fält för att lagra data som kan komma att ändras senare. Så när vi gör ändringar i dem måste vi uppdatera fälten i enlighet därmed. Och tyvärr måste vi oftast uppdatera dem manuellt.

Dessutom ligger det största problemet i att vi lätt kan glömma att uppdatera fält. För att lösa detta problem erbjuder vi dig ett makro för att automatiskt uppdatera fält innan du stänger dokumentet.

Uppdatera alla fält innan du skriver ut

Du kan ändra Word-alternativ för att ställa in uppdateringsfält innan du skriver ut med följande steg:

1. Klicka först på fliken "Arkiv" och sedan på "Alternativ".
2. Klicka sedan på "Visa" i den vänstra kolumnen i rutan "Word-alternativ".
3. Gå till avsnittet "Utskriftsalternativ" till höger för att markera rutan "Uppdatera fält före utskrift".
4. Slutligen klickar du på “OK”.

Uppdatera alla fält automatiskt innan du stänger dokumentet

1. Till att börja med aktiverar du VBA-redigeraren i Word genom att trycka på "Alt + F11".
2. Klicka sedan på “Normal” -projekt.
3. Klicka sedan på ”Infoga” i menyraden.
4. Och välj “Klassmodul”.
5. Klicka sedan på kommandot "Egenskapsfönster" i menyraden eller tryck på "F4" för att utlösa det.
6. I fönstret öppet i det nedre vänstra hörnet, namnge den nyskapade klassmodulen som “objWordClass”.
7. Ange följande koder i kodområdet:

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. Och kom ihåg att klicka på "Spara" -knappen.
9. Nu fortfarande under "Normal" -projekt, klicka på "Infoga" igen och välj "Modul" den här gången.
10. Nästa öppna modul och klistra in dessa koder:

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

11. På samma sätt spara koder.
12. Nästa gång du redigerar ett dokument sparar du det. Och när du klickar på ”Stäng” -kommandot kommer du att få frågefältet. Klicka på “Ja” för att uppdatera alla fält och dokumentet stängs när uppgiften är klar.

Ta tillbaka det döda dokumentet

Det är oundvikligen att stöta på några problem då och då när du använder Word. Således är det tillrådligt att vara beredd på alla möjliga skadad dok. Det bästa sättet är naturligtvis att få ett specialiserat reparationsverktyg i förväg.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive reparera Excel och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com