Үгийн баримт бичигт хэсэг зөрчлийг хурдан оруулах 3 арга

Энэ нийтлэлд бид Word баримт бичигт хэсэгчилсэн хэсгийг хурдан оруулах 3 аргыг танд үзүүлэхэд анхаарлаа хандуулах болно.

Хэсгийн завсарлага нь баримт бичгийг хэсэг, бүлэг гэх мэт болгон хуваахад тустай. Үүнээс гадна хэсэг завсарлага оруулах нь өөр өөр хуудсан дээр өөр өөр толгой эсвэл доод хэсэг тохируулах зайлшгүй хэсэг юм.

Ер нь бид хуудас руу шилжиж, курсорыг зөв байрлалд байрлуулах хэрэгтэй болно. Дараа нь "Хуудасны байршил" ба "Завсарлага" дээр дарна уу. Дараа нь унадаг цэснээс хэсгийн таслах төрлийг сонгоно уу. Ийм үйл ажиллагаа заримдаа уйтгартай байдаг. Тиймээс бид таныг ердийн хэвшлээс аварч, хурдан бөгөөд бохир шийдэл гаргахыг хүсч байна.

Арга 1: Тодорхой хуудсан дээр хэсэг таслах

1. Юуны өмнө Word дээр "Alt+ F11" товчийг дарж VBA засварлагчийг ажиллуулна уу.
2. Дараа нь зүүн баганад байгаа "Хэвийн" дээр дарж шинэ модуль үүсгэнэ үү.
3. Дараа нь цэсний мөрөнд "Оруулах" таб дээр дарна уу.
4. "Оруулах" цэснээс "Модуль" -ыг сонгоно уу.
5. Шинэ модуль дээр давхар товшоод нээнэ үү.
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. Дараа нь гарч ирэх цонхонд зорилтот хуудасны хуудасны дугаарыг оруулна уу. Үргэлжлүүлэхийн тулд “OK” дээр дарна уу.

Одоогийн байдлаар та 2-р хуудасны төгсгөлд хэсэг завсарлага оруулсан байна.

Тайлбар:

Хэрэв та хэд хэдэн дараалсан хуудсыг хэсэг завсарлага ашиглан хэсэг болгон тусгаарлахыг хүсвэл өмнөх хэсгийн сүүлийн хуудасны төгсгөлд нэг хэсэг, энэ шинэ хэсгийн сүүлийн хуудасны төгсгөлд нэг хэсгийг хоёр удаа оруулах шаардлагатай.

Ийм тохиолдолд эхний завсарлага оруулахдаа өмнөх хэсгийн сүүлчийн хуудасны дугаар болох зөв дугаарыг оруулахаа санах хэрэгтэй.

Арга 2: Баримт бичгийн хуудас бүр дээр хэсэг таслах

1. Нэгдүгээрт, дээрх алхмуудыг яг дагаж мөрдсөн макро суулгаж ажиллуулна уу.
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

Энэ макро нь одоогийн баримт бичгийн хуудас бүрийн төгсгөлд хэсэг завсарлага оруулна.

Арга 3: Олон баримт бичгийн хуудас бүр дээр хэсэг таслах

1. Эхлээд бүх зорилтот баримт бичгийг нэг хавтсанд байрлуул.
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. Макро нь "Үзэх" цонхыг өдөөх болно. Баримт бичгийг хадгалах хавтсаа сонгоод "OK" дээр дарна уу.

Процесс хэдхэн секундээс илүүгүй үргэлжилнэ.

Баримт бичгийн авлигыг арилгахад туслах хэрэгсэл

Гэмтсэн бичиг баримттай тулгарах нь урам хугарах явдал юм. Ийм тохиолдолд сайн, найдвартай хэрэгсэл туслах болно Word засах бичиг баримт нь хүний ​​сэтгэлийн түгшүүрийг маш ихээр тайлах чадвартай байх ёстой. Тиймээс засварын хэрэгслийг сонгохдоо маш болгоомжтой байх хэрэгтэй. Хэрэгсэл хангалтгүй байгаа нь нэмэлт гэмтэл учруулж болзошгүй.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. Excel сэргээх болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com