3 გზა სწრაფად ჩასვათ განყოფილებები, რომლებიც იშლება თქვენს Word დოკუმენტში

სიტყვის გადაწყვეტილებები სექტემბერი 28, 2025

ამ სტატიაში ჩვენ ყურადღებას გავამახვილებთ იმაზე, რომ გაჩვენოთ 3 გზა, რათა სწრაფად ჩადოთ სექციები თქვენს Word დოკუმენტში.

სექციების წყვეტები სასარგებლოა დოკუმენტის სექციებად, თავებად და ა.შ. დასაყოფად. გარდა ამისა, განყოფილების წყვეტების ჩასმა შეუცვლელი ნაწილია სხვადასხვა გვერდებზე სხვადასხვა სათაურის ან ქვედა კოლონტიტულის დაყენებისას.

ჩვეულებრივ, ჩვენ მოგვიწევს გვერდზე გადასვლა და კურსორის განთავსება სათანადო პოზიციაზე. შემდეგ დააჭირეთ "გვერდის განლაგებას" და "შესვენებებს". და შემდეგ აირჩიეთ განყოფილების შესვენების ტიპი ჩამოსაშლელი მენიუში. ასეთი პროცესი ზოგჯერ დამღლელიც შეიძლება იყოს. ამიტომ, ჩვენ გვინდა გიშველოთ ჩვეული რუტინისგან და მივიღოთ სწრაფი და ბინძური გადაწყვეტა.

მეთოდი 1: ჩადეთ განყოფილების შესვენება კონკრეტულ გვერდზე

უპირველეს ყოვლისა, დააჭირეთ "Alt+ F11" Word-ში VBA რედაქტორის გამოსაძახებლად.
შემდეგ შექმენით ახალი მოდული მარცხენა სვეტში "ნორმალური" დაწკაპუნებით.
შემდეგ დააჭირეთ ღილაკს "ჩასმა" მენიუს ზოლში.
და აირჩიეთ "მოდული" ჩამოსაშლელი მენიუში "ჩასმა".
ორჯერ დააწკაპუნეთ ახალ მოდულზე მის გასახსნელად.
ჩასვით შემდეგი მაკრო კოდირების ზონაში:

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

ახლა დააჭირეთ "Run" ან დააჭირეთ "F5" კოდების შესასრულებლად.
შემდეგ, მოთხოვნის ველში შეიყვანეთ სამიზნე გვერდის ნომერი და გასაგრძელებლად დააჭირეთ ღილაკს „OK“.

აქამდე თქვენ ჩასვით განყოფილების წყვეტა მე-2 გვერდის ბოლოს.

შენიშვნა:

თუ გსურთ გამოყოთ რამდენიმე თანმიმდევრული გვერდი, როგორც სექცია სექციის წყვეტების გამოყენებით, თქვენ უნდა ჩაწეროთ განყოფილების წყვეტა ორჯერ, ერთი წინა განყოფილების ბოლო გვერდის ბოლოს და ერთი ამ ახალი სექციის ბოლო გვერდის ბოლოს. .

ასეთ შემთხვევაში, პირველი შესვენების ჩასმისას უნდა გახსოვდეთ სწორი ნომრის შეყვანა, რომელიც არის წინა განყოფილების ბოლო გვერდის ნომერი.

მეთოდი 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: ჩადეთ განყოფილების წყვეტა მრავალი დოკუმენტის თითოეულ გვერდზე

დასაწყისისთვის, ყველა სამიზნე დოკუმენტი ერთ საქაღალდეში მოათავსეთ.
შემდეგ ანალოგიურად დააინსტალირეთ და გაუშვით მაკრო შესაბამისი ინსტრუქციებით.
ამჯერად გამოიყენეთ ეს კოდები:

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

მაკრო ააქტიურებს "Browse" ფანჯარას. აირჩიეთ საქაღალდე, სადაც ინახავთ დოკუმენტებს და დააწკაპუნეთ "OK".

პროცესი უნდა გაგრძელდეს არაუმეტეს რამდენიმე წამისა.

მოსახერხებელი ინსტრუმენტი დოკუმენტების კორუფციისთვის

ეს იმედგაცრუებული გამოცდილებაა დაზიანებულ დოკუმენტებთან შეხვედრა. ასეთ სცენარში კარგი და საიმედო ინსტრუმენტია, რომელიც დაგეხმარებათ სარემონტო Word საბუთებმა შეიძლება ძალიან გაათავისუფლოს შფოთვა. ამიტომ, სარემონტო ხელსაწყოს არჩევისას ძალიან ფრთხილად უნდა იყოთ. არასაკმარისმა კომუნალურმა შეიძლება გამოიწვიოს დამატებითი ზიანი.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის Excel-ის აღდგენა მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად