Si të përditësoni automatikisht të gjitha fushat përpara se të mbyllni dokumentin tuaj Word

Në këtë artikull, ne do të përqendrohemi në shpjegimin e mënyrës për të përditësuar automatikisht të gjitha fushat në një dokument përpara se ta mbyllni atë.

Ne përdorim fusha për të mbajtur të dhëna që mund të ndryshojnë më vonë. Pra, pasi të bëjmë ndonjë ndryshim në to, duhet t'i përditësojmë fushat përkatësisht. Dhe për fat të keq, shumicën e kohës, do të na duhet t'i përditësojmë ato manualisht.

Për më tepër, problemi më i madh qëndron tek ne mund të harrojmë lehtësisht të përditësojmë fushat. Për të adresuar këtë problem, ne ju ofrojmë një makro për të përditësuar fushat automatike përpara se të mbyllni dokumentin.

Përditësoni të gjitha fushat përpara printimit

Mund të ndryshoni opsionet e Word-it për të vendosur fushat e përditësimit të tij përpara printimit me hapat e mëposhtëm:

1. Së pari, klikoni në skedën "File" dhe pastaj "Opsionet".
2. Më pas në kutinë "Opsionet e Word-it" të hapur, klikoni "Shfaq" në kolonën e majtë.
3. Në seksionin e djathtë, shkoni te pjesa "Opsionet e printimit" për të kontrolluar kutinë "Përditëso fushat përpara printimit".
4. Së fundi, klikoni "OK".

Përditësoni automatikisht të gjitha fushat përpara mbylljes së dokumentit

1. Për të filluar, aktivizoni redaktorin VBA në Word duke shtypur "Alt+ F11".
2. Pastaj klikoni në projektin "Normal".
3. Pastaj në shiritin e menusë, klikoni "Fut".
4. Dhe zgjidhni "Moduli i klasës".
5. Pastaj klikoni në komandën "Properties Window" në shiritin e menusë ose shtypni "F4" për ta aktivizuar atë.
6. Në dritaren e hapur në këndin e majtë poshtë, emërtoni modulin e klasës së sapokrijuar si "objWordClass".
7. Në zonën e kodimit vendosni kodet e mëposhtme:

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. Dhe mos harroni të klikoni në butonin "Ruaj".
9. Tani ende nën projektin "Normal", klikoni përsëri "Insert" dhe zgjidhni "Module" këtë herë.
10. Hapni modulin tjetër dhe ngjisni këto kode:

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

11. Në mënyrë të ngjashme, ruani kodet.
12. Herën tjetër që të përfundoni redaktimin e një dokumenti, ruajeni atë. Dhe kur klikoni komandën "Mbyll", do të merrni kutinë e pyetjes. Klikoni "Po" për të përditësuar të gjitha fushat dhe dokumenti do të mbyllet kur të përfundojë detyra.

Sillni në jetë dokumentin e vdekur

Është e pashmangshme të hasësh disa probleme herë pas here gjatë përdorimit të Word-it. Prandaj, këshillohet që të përgatiteni për çdo gjë të mundshme i dëmtuar doc. Mënyra më e mirë është, sigurisht, të merrni paraprakisht një mjet të specializuar riparimi.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparimi i Excel pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com