Word 문서에서 섹션을 추출하는 2 가지 빠른 방법

이 기사에서는 Word 문서에서 다른 섹션으로 섹션을 추출하는 빠르고 쉬운 두 가지 방법을 제공합니다.

한 문서에서 다른 문서로 내용을 추출하는 경우가 자주 발생합니다. 그리고 이전 기사에서 문서에서 페이지를 추출하는 방법에 대해 논의했습니다. 자세한 정보는 다음 문서를 참조하십시오. Word 문서에서 개별 페이지를 추출하는 2 가지 빠른 방법

오늘은 섹션별로 추출하는 방법을 보여 드리겠습니다.    

방법 1 : 현재 섹션을 새 문서로 추출

1. 우선, 커서를 tar섹션을 가져옵니다.
2. 그런 다음 "Alt + F11"을 눌러 Word에서 VBA 편집기를 호출합니다.
3. 그런 다음 왼쪽 열에서 "일반"을 클릭합니다.
4. 메뉴 모음에서 "삽입"을 클릭합니다.
5. 그런 다음 해당 드롭 다운 메뉴에서 "모듈"을 선택합니다.
6. 두 번 클릭하여 새 모듈을 열고 여기에 다음 코드를 붙여 넣습니다.

Sub SaveCurrentSectionAsNewDoc()
  Dim strFolder As String
  Dim dlgFile As FileDialog
  Dim strNewFileName As String
  Dim objDocAdded As Document
  Dim objDoc As Document
 
  ' Initialization
  Set objDoc = ActiveDocument
 
  ' Pick a place to store the new file.
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      strFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      Exit Sub
    End If
  End With
 
  strNewFileName = InputBox("Enter new file name here: ", "File Name")
 
  ' Select and copy current section range.
  objDoc.Bookmarks("\Section").Range.Select
  Selection.Copy
 
  ' Open a new document to paste the above selection.
  Set objDocAdded = Documents.Add
  Selection.Paste
 
  ' Save and close the new document.
  objDocAdded.SaveAs FileName:=strFolder & strNewFileName & ".docx"
  objDocAdded.Close
End Sub

7. 다음으로 메뉴 표시 줄에서 "실행"을 클릭하거나 "F5"를 누르십시오.
8. 그러면“찾아보기”창이 나타납니다. 새 문서를 저장할 위치를 선택하고 "확인"을 클릭합니다.
9. 그리고 "파일 이름"상자에 새 파일의 이름을 입력하고 "확인"을 클릭합니다.

이제 섹션을 새 문서로 추출했습니다.

방법 2 : 문서의 각 섹션을 개별 새 섹션으로 추출

이렇게하면 문서의 모든 섹션을 일괄 처리 할 수 ​​있습니다. 물론 매크로도 필요합니다.

1. 시작하려면 tar문서를 얻으십시오.
2. 그런 다음 방법 1의 단계에 따라 매크로를 설치하고 실행합니다.
3. 이번에 만 해당 매크로를 다음 매크로로 바꿉니다.

Sub SaveEachSectionAsADoc()
  Dim objDocAdded As Document
  Dim objDoc As Document
  Dim nSectionNum As Integer
  Dim strFolder As String

  Dim dlgFile As FileDialog
 
  ' Initialization
  Set objDoc = ActiveDocument
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  ' Pick a location to keep new files.
  With dlgFile
    If .Show = -1 Then
      strFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      Exit Sub
    End If
  End With
 
  ' Step through each section in current document, copy and paste each to a new one.
  For nSectionNum = 1 To ActiveDocument.Sections.Count
    Selection.GoTo What:=wdGoToSection, Which:=wdGoToNext, Name:=nSectionNum
    ActiveDocument.Sections(nSectionNum).Range.Copy
 
    Set objDocAdded = Documents.Add
    Selection.Paste
 
    ' Save and close new documents.
    objDocAdded.SaveAs FileName:=strFolder & "Section " & nSectionNum & ".docx"
    objDocAdded.Close
  Next nSectionNum
End Sub

4. 그래도 "찾아보기"창에서 저장 경로를 선택하고 "확인"을 클릭합니다.

짜증나는 단어 오류 수정

사용하는 동안 일부 Word 오류가 발생하는 것이 일반적입니다. 짜증나게 할 수도 있습니다. 단어 복구 최대한 빨리. 지연 시간이 길수록 데이터 손실이 더 심각해질 수 있습니다. 따라서 사전에 수리 유틸리티를 확보하는 것이 좋습니다.

저자 소개 :

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