Word 문서에 구역 나누기를 빠르게 삽입하는 3 가지 방법

워드 솔루션 2025 년 9 월 28 일

이 기사에서는 Word 문서에 구역 나누기를 빠르게 삽입하는 3 가지 방법을 보여줍니다.

섹션 나누기는 문서를 섹션, 장 등으로 나눌 때 유용합니다. 게다가 섹션 나누기를 삽입하는 것은 다른 페이지에 다른 머리글이나 바닥 글을 설정하는 데 없어서는 안될 부분입니다.

일반적으로 페이지로 이동하여 적절한 위치에 커서를 배치해야합니다. 그런 다음 "페이지 레이아웃"및 "브레이크"를 클릭합니다. 그런 다음 드롭 다운 메뉴에서 섹션 나누기 유형을 선택합니다. 그러한 절차는 때때로 지루할 수 있습니다. 따라서 우리는 일상적인 일에서 당신을 구하고 빠르고 더러운 해결책을 채택하기를 원합니다.

방법 1 : 특정 페이지에 구역 나누기 삽입

먼저 Word에서 "Alt + F11"을 눌러 VBA 편집기를 호출합니다.
다음으로 왼쪽 열에서 "Normal"을 클릭하여 새 모듈을 만듭니다.
그런 다음 메뉴 모음에서 "삽입"탭을 클릭합니다.
그리고“Insert”의 드롭 다운 메뉴에서“Module”을 선택합니다.
새 모듈을 두 번 클릭하여 엽니 다.
코딩 영역에 다음 매크로를 붙여 넣습니다.

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

이제 "실행"을 클릭하거나 "F5"를 눌러 코드를 실행합니다.
다음 페이지 번호를 입력하십시오 tar프롬프트 상자에서 페이지를 가져옵니다. 계속하려면 "확인"을 클릭하십시오.

지금까지 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 : 여러 문서의 각 페이지에 구역 나누기 삽입

시작하려면 모두 tar같은 폴더에 문서를 가져옵니다.
그런 다음 마찬가지로 적절한 지침에 따라 매크로를 설치하고 실행하십시오.
이번에는 다음 코드를 사용하십시오.

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

매크로는 "찾아보기"창을 트리거합니다. 문서를 보관할 폴더를 선택하고 "확인"을 클릭합니다.

이 과정은 몇 초 이상 걸리지 않습니다.

문서 손상을위한 편리한 도구

손상된 문서를 만나는 것은 실망스러운 경험입니다. 이러한 시나리오에서 유용하고 신뢰할 수있는 도구는 수리 단어 문서는 자신의 불안을 많이 덜어 줄 수 있어야합니다. 따라서 수리 도구를 선택할 때 매우 신중해야합니다. 불충분 한 유틸리티는 추가 손상을 초래할 수 있습니다.

저자 소개 :

Vera Chen은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. Excel 복구 pdf 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM