အပိုင်းခွဲများကို သင့်စကားလုံးစာရွက်စာတမ်းထဲသို့ အမြန်ထည့်သွင်းရန် နည်းလမ်း 3 ခု

ဤဆောင်းပါးတွင်၊ သင့် Word document တွင် အပိုင်းခွဲပိုင်းများကို လျင်မြန်စွာ ထည့်သွင်းရန် နည်းလမ်း 3 ခုကို ပြသရန် အာရုံစိုက်ပါမည်။

အပိုင်းခွဲခြင်းများသည် စာရွက်စာတမ်းတစ်ခုကို အပိုင်းများ၊ အခန်းများ စသည်တို့သို့ ပိုင်းခြားရန် အသုံးဝင်ပါသည်။ ထို့အပြင်၊ အပိုင်းခွဲများကို ထည့်သွင်းရန်မှာ မတူညီသော စာမျက်နှာများတွင် မတူညီသော ခေါင်းစီးများ သို့မဟုတ် အောက်ခြေမှတ်စုများကို သတ်မှတ်ခြင်း၏ မရှိမဖြစ်အစိတ်အပိုင်းတစ်ခုဖြစ်သည်။

ပုံမှန်အားဖြင့်၊ ကျွန်ုပ်တို့သည် စာမျက်နှာသို့ လမ်းညွှန်ပြီး သင့်လျော်သော အနေအထားတွင် ကာဆာကို ရှာဖွေရမည်ဖြစ်သည်။ ထို့နောက် “Page Layout” နှင့် “Breaks” ကိုနှိပ်ပါ။ ထို့နောက် drop-down menu ရှိ အပိုင်းခွဲအမျိုးအစားကို ရွေးပါ။ ထိုသို့သော လုပ်ငန်းစဉ်သည် တစ်ခါတစ်ရံ ငြီးငွေ့ဖွယ်ကောင်းသည်။ ထို့ကြောင့်၊ ကျွန်ုပ်တို့သည် သင့်အား ပုံမှန်လုပ်ရိုးလုပ်စဉ်မှ ကယ်တင်ပြီး လျင်မြန်စွာ ညစ်ပတ်သော ဖြေရှင်းချက်တစ်ခုကို ချမှတ်လိုပါသည်။

နည်းလမ်း 1- သီးခြားစာမျက်နှာတစ်ခုပေါ်တွင် အပိုင်းခွဲတစ်ခုကို ထည့်သွင်းပါ။

1. ပထမဦးစွာ၊ VBA တည်းဖြတ်သူကိုခေါ်ရန် Word ရှိ “Alt+ F11” ကိုနှိပ်ပါ။
2. ဘယ်ဘက်ကော်လံရှိ “Normal” ကိုနှိပ်ပြီး မော်ဂျူးအသစ်တစ်ခုကို ဖန်တီးပါ။
3. ထို့နောက် မီနူးဘားရှိ “Insert” tab ကိုနှိပ်ပါ။
4. ပြီးလျှင် "Insert" ၏ drop-down menu တွင် "Module" ကိုရွေးချယ်ပါ။
5. ၎င်းကိုဖွင့်ရန် module အသစ်ပေါ်တွင်နှစ်ချက်နှိပ်ပါ။
6. ကုဒ်ဧရိယာပေါ်တွင် အောက်ပါ မက်ခရိုကို ကူးထည့်ပါ။

Sub InsertBreakOnSpecificPage()
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  Selection.Collapse wdCollapseEnd
  Selection.InsertBreak Type:=wdSectionBreakContinuous
End Sub

7. ယခု၊ ကုဒ်များကိုလုပ်ဆောင်ရန် "Run" သို့မဟုတ် "F5" ကိုနှိပ်ပါ။
8. ထို့နောက် ပစ်မှတ်စာမျက်နှာ၏ စာမျက်နှာနံပါတ်ကို prompting box ထဲတွင် ရိုက်ထည့်ပါ။ ဆက်လုပ်ရန် “OK” ကို နှိပ်ပါ။

ယခုအချိန်အထိ၊ သင်သည် စာမျက်နှာ 2 ၏အဆုံးတွင် အပိုင်းခွဲတစ်ခုကို ထည့်သွင်းပြီးဖြစ်သည်။

မှတ်စု:

ဆက်တိုက် စာမျက်နှာများစွာကို အပိုင်းခွဲများအသုံးပြုခြင်းဖြင့် ကဏ္ဍတစ်ခုအဖြစ် ပိုင်းခြားလိုပါက၊ အပိုင်းခွဲပိုင်းကို နှစ်ကြိမ်၊ ယခင်အပိုင်း၏ နောက်ဆုံးစာမျက်နှာ၏အဆုံးတွင် တစ်ခုနှင့် ဤကဏ္ဍအသစ်၏ နောက်ဆုံးစာမျက်နှာ၏ နောက်ဆုံးစာမျက်နှာအဆုံးတွင် တစ်ခုကို ထည့်သွင်းရန် လိုအပ်ပါသည်။ .

ထိုသို့သော အခြေအနေမျိုးတွင်၊ ပထမပိုင်းကို ထည့်သွင်းစဉ်တွင်၊ ယခင်အပိုင်း၏ နောက်ဆုံးစာမျက်နှာ၏ စာမျက်နှာနံပါတ်ဖြစ်သည့် မှန်ကန်သောနံပါတ်ကို ထည့်သွင်းရန် သတိရသင့်သည်။

နည်းလမ်း 2- စာရွက်စာတမ်းတစ်ခုချင်းစီ၏ စာမျက်နှာတစ်ခုစီတွင် အပိုင်းခွဲတစ်ခုကို ထည့်သွင်းပါ။

1. ပထမဦးစွာ အထက်ဖော်ပြပါ အဆင့်များအတိုင်း အတိအကျ အတိအကျ ဖော်ပြထားသော macro တစ်ခုကို ထည့်သွင်းပြီး လုပ်ဆောင်ပါ။
2. ထို့နောက် မက်ခရိုကို ဤအရာဖြင့် အစားထိုးပါ။

Sub InsertBreakOnEachPage()
  Dim nTotalPageNumber As Integer
 
  For nTotalPageNumber = 1 To Selection.Information(wdNumberOfPagesInDocument)
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nTotalPageNumber
    Application.Browser.Target = wdBrowsePage
    ActiveDocument.Bookmarks("\page").Range.Select
    Selection.Collapse wdCollapseEnd
    Selection.InsertBreak Type:=wdSectionBreakContinuous
  Next
End Sub

ဤ macro သည် လက်ရှိစာရွက်စာတမ်း၏ စာမျက်နှာတစ်ခုစီ၏အဆုံးတွင် အပိုင်းခွဲတစ်ခုကို ထည့်သွင်းသည်။

နည်းလမ်း 3- စာရွက်စာတမ်းများစွာ၏ စာမျက်နှာတစ်ခုစီတွင် အပိုင်းခွဲတစ်ခုကို ထည့်သွင်းပါ။

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

Sub InsertBreaksIntoMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
  Dim nTotalPageNumber As Integer
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "No folder is selected! Please select the target folder."
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    For nTotalPageNumber = 1 To Selection.Information(wdNumberOfPagesInDocument)
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nTotalPageNumber
      Application.Browser.Target = wdBrowsePage
      ActiveDocument.Bookmarks("\page").Range.Select
      Selection.Collapse wdCollapseEnd
      Selection.InsertBreak Type:=wdSectionBreakContinuous
    Next
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. macro သည် "Browse" window ကိုစတင်လိမ့်မည်။ သင်စာရွက်စာတမ်းများသိမ်းဆည်းထားသည့်ဖိုင်တွဲကိုရွေးချယ်ပြီး "OK" ကိုနှိပ်ပါ။

လုပ်ငန်းစဉ်သည် စက္ကန့်အနည်းငယ်ထက် မပိုစေရပါ။

Document Corruption အတွက် Handy Tool

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

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

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