Word құжатын жаппас бұрын барлық өрістерді автоматты түрде қалай жаңартуға болады

Бұл мақалада біз құжатты жаппас бұрын оның барлық өрістерін автоматты түрде жаңарту жолын түсіндіруге назар аударамыз.

Біз кейінірек өзгеруі мүмкін деректерді сақтау үшін өрістерді пайдаланамыз. Сондықтан оларға біраз өзгеріс енгізгеннен кейін, өрістерді тиісінше жаңартуымыз керек. Өкінішке орай, көп жағдайда оларды қолмен жаңартуға тура келеді.

Сонымен қатар, ең үлкен мәселе - біз өрістерді жаңартуды оңай ұмыта аламыз. Бұл мәселені шешу үшін біз сізге құжатты жабу алдында өрістерді автоматты түрде жаңарту үшін макрос ұсынамыз.

Басып шығару алдында барлық өрістерді жаңартыңыз

Келесі қадамдар арқылы басып шығару алдында жаңарту өрістерін орнату үшін Word опцияларын өзгертуге болады:

1. Алдымен «Файл» қойындысын, содан кейін «Параметрлер» түймесін басыңыз.
2. Келесі ашылған «Сөз параметрлері» жолағында сол жақ бағандағы «Дисплей» түймесін басыңыз.
3. Оң жақтағы бөлімде «Басып шығару параметрлері» бөліміне өтіп, «Басып шығару алдында өрістерді жаңарту» құсбелгісін қойыңыз.
4. Соңында «OK» батырмасын басыңыз.

Құжатты жабу алдында барлық өрістерді автоматты түрде жаңарту

1. Бастау үшін Word бағдарламасындағы VBA редакторын «Alt+ F11» пернесін басыңыз.
2. Әрі қарай «Қалыпты» жобасын басыңыз.
3. Содан кейін мәзір жолағында «Кірістіру» батырмасын басыңыз.
4. Және «Сынып модулін» таңдаңыз.
5. Содан кейін мәзір жолағындағы «Сипаттар терезесі» пәрменін басыңыз немесе оны іске қосу үшін «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.com