Word sənədinizi bağlamazdan əvvəl bütün sahələri necə avtomatik yeniləmək olar

Bu yazıda biz sənədi bağlamazdan əvvəl bütün sahələri avtomatik yeniləməyin yolunu izah etməyə diqqət yetirəcəyik.

Sonradan dəyişə biləcək məlumatları saxlamaq üçün sahələrdən istifadə edirik. Buna görə də, onlarda bir dəyişiklik etdikdən sonra sahələri müvafiq olaraq yeniləməliyik. Təəssüf ki, əksər hallarda onları əl ilə yeniləməli olacağıq.

Bundan əlavə, ən böyük problem sahələri yeniləməyi asanlıqla unuda bilməyimizdədir. Bu problemi həll etmək üçün biz sizə sənədi bağlamazdan əvvəl sahələri avtomatik yeniləmək üçün makro təklif edirik.

Çap etməzdən əvvəl Bütün Sahələri Yeniləyin

Aşağıdakı addımlarla çap etməzdən əvvəl yeni sahələri təyin etmək üçün Word seçimlərini dəyişə bilərsiniz:

1. Əvvəlcə "Fayl" sekmesini, sonra "Seçimlər" düyməsini basın.
2. Sonrakı "Söz Seçimləri" xanasını açın, sol sütundakı "Ekran" düyməsini basın.
3. Sağ hissədə "Çap seçimləri" hissəsinə keçərək "Çap etmədən əvvəl sahələri yeniləyin" qutusunu yoxlayın.
4. Nəhayət, "OK" düyməsini basın.

Sənədi bağlamadan əvvəl bütün sahələri avtomatik yeniləyin

1. Başlamaq üçün “Alt+ F11” düyməsini basaraq Word-də VBA redaktorunu işə salın.
2. Sonra "Normal" layihəsinə klikləyin.
3. Sonra menyu çubuğunda "Daxil et" düyməsini basın.
4. Və "Sinif Modulu" seçin.
5. Sonra menyu çubuğundakı "Xüsusiyyətlər Pəncərəsi" əmrini basın və ya onu işə salmaq üçün "F4" düyməsini basın.
6. Sol aşağı küncdə açılan pəncərədə yeni yaradılmış sinif modulunu “objWordClass” adlandırın.
7. Kodlaşdırma sahəsinə aşağıdakı kodları daxil edin:

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. Və "Saxla" düyməsini basmağı unutmayın.
9. İndi hələ də "Normal" layihəsində, yenidən "Daxil et" düyməsini basın və bu dəfə "Modul" seçin.
10. Növbəti modulu açın və bu kodları yapışdırın:

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

11. Eynilə, kodları yadda saxlayın.
12. Növbəti dəfə sənədi redaktə etməyi bitirdikdə onu yadda saxlayın. Və "Bağla" əmrini kliklədiyiniz zaman sorğu qutusunu alacaqsınız. Bütün sahələri yeniləmək üçün "Bəli" düyməsini basın və tapşırıq yerinə yetirildikdə sənəd bağlanacaq.

Ölü Sənədi həyata qaytarın

Word-dən istifadə edərkən hərdən bir problemlə qarşılaşmaq istər-istəməzdir. Beləliklə, hər hansı bir mümkün olana hazır olmaq məsləhətdir zədələnmiş doc. Ən yaxşı yol, əlbəttə ki, əvvəlcədən xüsusi təmir aləti əldə etməkdir.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc Excel təmiri və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com