သင့် Word Document မပိတ်မီ Field အားလုံးကို အလိုအလျောက် အပ်ဒိတ်လုပ်နည်း

ဤဆောင်းပါးတွင်၊ သင်မပိတ်မီ စာရွက်စာတမ်းတစ်ခုရှိ အကွက်အားလုံးကို အလိုအလျောက်အပ်ဒိတ်လုပ်နည်းကို ရှင်းပြရန် အာရုံစိုက်ပါမည်။

နောက်ပိုင်းတွင် ပြောင်းလဲနိုင်သော ဒေတာများကို သိမ်းဆည်းရန်အတွက် ကျွန်ုပ်တို့သည် field များကို အသုံးပြုပါသည်။ ထို့ကြောင့် ၎င်းတို့ကို ပြောင်းလဲမှုအချို့ ပြုလုပ်ပြီးသည်နှင့် field များကို လိုက်လျောညီထွေဖြစ်အောင် အပ်ဒိတ်လုပ်ရန် လိုအပ်ပါသည်။ ကံမကောင်းစွာပဲ၊ အများစုတွင် ၎င်းတို့ကို ကိုယ်တိုင် အပ်ဒိတ်လုပ်ရန် လိုအပ်ပါသည်။

ထို့အပြင်၊ အကြီးမားဆုံးပြဿနာမှာ ကွက်လပ်များကို အပ်ဒိတ်လုပ်ရန် အလွယ်တကူ မေ့သွားနိုင်သည့် ပြဿနာဖြစ်သည်။ ဤပြဿနာကိုဖြေရှင်းရန်၊ စာရွက်စာတမ်းမပိတ်မီ အလိုအလျောက်အပ်ဒိတ်လုပ်ရန် အကွက်များကို သင့်အား မက်ခရိုတစ်ခုပေးထားပါသည်။

ပုံနှိပ်ခြင်းမပြုမီ အကွက်များအားလုံးကို အပ်ဒိတ်လုပ်ပါ။

အောက်ပါအဆင့်များဖြင့် မပုံနှိပ်မီ ၎င်းကို အပ်ဒိတ်အကွက်များ သတ်မှတ်ရန် Word ရွေးချယ်မှုများကို ပြောင်းလဲနိုင်သည်။

1. ပထမဦးစွာ "File" tab ကိုနှိပ်ပြီး "Options" ကိုနှိပ်ပါ။
2. ထို့နောက် “Word Options” အကွက်ဖွင့်ပြီး ဘယ်ဘက်ကော်လံရှိ “Display” ကိုနှိပ်ပါ။
3. ညာဘက်အပိုင်းတွင်၊ “ပုံနှိပ်ခြင်းရွေးချယ်ခွင့်များ” အပိုင်းသို့သွား၍ “ပုံနှိပ်ခြင်းမပြုမီ အပ်ဒိတ်အကွက်များ” အကွက်ကို စစ်ဆေးပါ။
4. နောက်ဆုံးအနေနဲ့ “OK” ကိုနှိပ်ပါ။

စာရွက်စာတမ်းမပိတ်မီ အကွက်များအားလုံးကို အလိုအလျောက် အပ်ဒိတ်လုပ်ပါ။

1. စတင်ရန်၊ “Alt+ F11” ကိုနှိပ်ပြီး Word ရှိ VBA တည်းဖြတ်သူကို စတင်ပါ။
2. ထို့နောက် "Normal" ပရောဂျက်ကိုနှိပ်ပါ။
3. ထို့နောက် မီနူးဘားတွင် “ထည့်သွင်း” ကို နှိပ်ပါ။
4. ပြီးလျှင် “Class Module” ကို ရွေးပါ။
5. ထို့နောက် menu bar ရှိ "Properties Window" command ကိုနှိပ်ပါ သို့မဟုတ် ၎င်းကိုစတင်ရန် "F4" ကိုနှိပ်ပါ။
6. ဘယ်ဘက်အောက်ထောင့်တွင် ဖွင့်ထားသော window တွင် အသစ်ဖန်တီးထားသော class module ကို "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. ပြီးတော့ “Save” ခလုတ်ကို နှိပ်ဖို့ မမေ့ပါနဲ့။
9. ယခု "Normal" ပရောဂျက်အောက်တွင်ရှိနေဆဲဖြစ်ပြီး၊ "Insert" ကို ထပ်မံနှိပ်ပြီး ယခုအကြိမ် "Module" ကိုရွေးချယ်ပါ။
10. နောက်တစ်ခုဖွင့်ထားသော module ကိုဖွင့်ပြီး ဤကုဒ်များကို ကူးထည့်ပါ-

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

11. အလားတူ၊ ကုဒ်များကိုသိမ်းဆည်းပါ။
12. စာရွက်စာတမ်းတစ်ခုကို တည်းဖြတ်ပြီးသောအခါတွင် ၎င်းကို သိမ်းဆည်းပါ။ “Close” command ကို နှိပ်လိုက်သောအခါ မေးသည့်ဘောက်စ်ကို ရရှိမည်ဖြစ်သည်။ အကွက်အားလုံးကို အပ်ဒိတ်လုပ်ရန် “Yes” ကို နှိပ်ပြီး အလုပ်ပြီးသောအခါ စာရွက်စာတမ်းကို ပိတ်သွားပါမည်။

Dead Document ကို အသက်ပြန်သွင်းပါ။

ယခုအခါ Word ကိုအသုံးပြုနေစဉ်တွင် ပြဿနာအချို့ကို မလွဲမသွေကြုံတွေ့ရမည်ဖြစ်ပါသည်။ ဒါကြောင့် ဖြစ်နိုင်ရင် ပြင်ဆင်ထားဖို့ အကြံပြုလိုပါတယ်။ ပျက်စီးနေသောစာရွက်စာတမ်း. အကောင်းဆုံးနည်းလမ်းမှာ အထူးပြုပြုပြင်ရေးကိရိယာကို ကြိုတင်ရယူရန်ဖြစ်သည်။

စာရေးသူနိဒါန်း:

Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ Excel ကိုပြုပြင်ပါ။ နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com