როგორ ავტომატურად განაახლოთ ყველა ველი Word დოკუმენტის დახურვამდე

ამ სტატიაში ჩვენ ყურადღებას გავამახვილებთ დოკუმენტის ყველა ველის ავტომატური განახლების გზის ახსნაზე, სანამ დახურავთ მას.

ჩვენ ვიყენებთ ველებს მონაცემების შესანახად, რომლებიც შეიძლება მოგვიანებით შეიცვალოს. ამიტომ, როგორც კი მათში რაიმე ცვლილებას შევიტანთ, შესაბამისად უნდა განვაახლოთ ველები. სამწუხაროდ, უმეტეს შემთხვევაში, მათი განახლება ხელით მოგვიწევს.

გარდა ამისა, ყველაზე დიდი პრობლემა მდგომარეობს იმაში, რომ ჩვენ შეგვიძლია ადვილად დავივიწყოთ ველების განახლება. ამ პრობლემის გადასაჭრელად, ჩვენ გთავაზობთ მაკრო, რათა ავტომატურად განახლდეს ველები დოკუმენტის დახურვამდე.

განაახლეთ ყველა ველი დაბეჭდვამდე

თქვენ შეგიძლიათ შეცვალოთ Word პარამეტრები, რათა დააყენოთ მისი განახლების ველები დაბეჭდვამდე შემდეგი ნაბიჯებით:

1. პირველ რიგში, დააწკაპუნეთ "ფაილი" ჩანართზე, შემდეგ "ოფციები".
2. შემდეგ "Word Options" ველის გახსნა, დააწკაპუნეთ "ჩვენება" მარცხენა სვეტში.
3. მარჯვენა განყოფილებაში გადადით "ბეჭდვის პარამეტრები" ნაწილზე, რათა შეამოწმოთ ველი "განახლება ველების დაბეჭდვამდე".
4. და ბოლოს, დააჭირეთ "OK".

ავტომატური განახლება ყველა ველი დოკუმენტის დახურვამდე

1. დასაწყისისთვის, ჩართეთ VBA რედაქტორი Word-ში დაჭერით "Alt+ F11".
2. შემდეგ დააჭირეთ "ნორმალური" პროექტს.
3. შემდეგ მენიუს ზოლში დააჭირეთ ღილაკს "ჩასმა".
4. და აირჩიეთ "კლასის მოდული".
5. შემდეგ დააჭირეთ "Properties Window" ბრძანებას მენიუს ზოლზე ან დააჭირეთ "F4" მის გასააქტიურებლად.
6. მარცხენა ქვედა კუთხეში გახსნილ ფანჯარაში დაასახელეთ ახლად შექმნილი კლასის მოდული, როგორც “objWordClass”.
7. კოდირების ზონაში შეიყვანეთ შემდეგი კოდები:

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. და გახსოვდეთ, რომ დააჭირეთ ღილაკს "შენახვა".
9. ახლა ჯერ კიდევ "ნორმალური" პროექტის ქვეშ, კვლავ დააჭირეთ "ჩასმა" და ამჯერად აირჩიეთ "მოდული".
10. შემდეგ გახსენით მოდული და ჩასვით ეს კოდები:

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

11. ანალოგიურად, შეინახეთ კოდები.
12. შემდეგ ჯერზე, როდესაც დაასრულებთ დოკუმენტის რედაქტირებას, შეინახეთ იგი. და როდესაც დააწკაპუნებთ ბრძანებას "დახურვა", თქვენ მიიღებთ მოთხოვნის ველს. დააწკაპუნეთ "დიახ" ყველა ველის განახლებისთვის და დოკუმენტი დაიხურება, როდესაც დავალება დასრულდება.

გააცოცხლეთ მკვდარი დოკუმენტი

Word-ის გამოყენებისას აუცილებლად უნდა წააწყდეთ გარკვეულ პრობლემებს დროდადრო. ამიტომ მიზანშეწონილია მოემზადოთ ყველა შესაძლოსთვის დაზიანებული დოკ. საუკეთესო გზაა, რა თქმა უნდა, წინასწარ მიიღოთ სპეციალიზებული სარემონტო ხელსაწყო.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის Excel-ის შეკეთება მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად