한 워드 문서에서 다른 문서로 표를 추출하는 4 가지 방법

이 기사에서는 한 Word 문서에서 다른 문서로 여러 표를 추출하는 4 가지 방법을 보여 드리게되어 기쁩니다.

테이블은 most used는 표 형식 정보를 보유하는 데 사용함을 의미합니다. 데이터를 행과 열로 정렬하여 독자에게 모든 정보를 명확하게 보여줍니다. 긴 문서에는 많은 테이블이 포함될 수 있으므로 다양한 목적을 위해 테이블을 새 문서로 내 보내야합니다.

다음은 4 가지 접근 방식입니다.

방법 1 : 한 문서에서 다른 문서로 모든 테이블 일괄 내보내기

1. 첫 번째와 포름ost, "Alt + F11"을 눌러 Word에서 VBA 편집기를 트리거합니다.
2. 그런 다음 "Normal"프로젝트를 클릭하고 다음 "Insert"탭을 클릭합니다.
3. 드롭 다운 메뉴에서 "모듈"을 선택합니다.
4. 두 번 클릭하여 모듈을 열고 오른쪽에 편집 공간을 가져옵니다.
5. 이제 다음 매크로를 복사하여 붙여 넣으십시오.

Sub ExtractTablesFromOneDoc()
  Dim objTable As Table
  Dim objDoc As Document
  Dim objNewDoc As Document
  Dim objRange As Range
 
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
 
  For Each objTable In objDoc.Tables
    objTable.Range.Select
    Selection.Copy
 
    '  Paste tables to new document in rich text format.
    Set objRange = objNewDoc.Range
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.PasteSpecial DataType:=wdPasteRTF
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.Text = vbCr
  Next objTable
 
End Sub

6. 마지막으로 "실행"을 클릭합니다.

이 매크로는 테이블과 캡션도 모두 추출합니다.

방법 2 : 문서에서 특정 테이블 추출

이제 문서에 테이블이 많지만 특정 테이블을 누군가에게 보내야하는 경우를 대비하십시오. 그러면 다음 매크로가 많은 도움이 될 것입니다.

1. 먼저 방법 1의 단계에 따라 매크로를 설치하고 실행합니다.
2. 둘째, 해당 매크로를 다음으로 바꿉니다.

Sub ExtractSpecificTables()
  Dim objTable As Table
  Dim objDoc As Document
  Dim objNewDoc As Document
  Dim objRange As Range
  Dim strTable As String
 
  strTable = InputBox("Enter the table number: ")
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
 
  objDoc.Tables(strTable).Range.Select
  Selection.Copy
 
  Set objRange = objNewDoc.Range
  objRange.Collapse Direction:=wdCollapseEnd
  objRange.PasteSpecial DataType:=wdPasteRTF
 
End Sub

3. 이제 입력 상자가 나타납니다.
4. 테이블 번호를 입력하고 "확인"을 클릭합니다.

방법 3 : 여러 문서에서 모든 테이블 일괄 추출

1. 에tart를 사용하여 모든 파일을 하나의 폴더에 정렬합니다.
2. 그런 다음 위의 정확한 지침에 따라 매크로를 설치하고 실행하십시오.
3. 매크로를 다음으로 바꿉니다.

Sub ExtractTablesFromMultiDocs()
  Dim objTable As Table
  Dim objDoc As Document, objNewDoc As Document
  Dim objRange As Range
  Dim strFile As String, strFolder As String
 
  '  Initialization
  strFolder = InputBox("Enter folder address here: ")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
 
  Set objNewDoc = Documents.Add
 
  '  Process each file in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
    Set objDoc = ActiveDocument
 
    For Each objTable In objDoc.Tables
      objTable.Range.Select
      Selection.Copy
 
      Set objRange = objNewDoc.Range
      objRange.Collapse Direction:=wdCollapseEnd
      objRange.PasteSpecial DataType:=wdPasteRTF
      objRange.Collapse Direction:=wdCollapseEnd
      objRange.Text = vbCr
    Next objTable
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
 
End Sub

4. 이제 프롬프트 상자에 문서를 저장할 폴더 주소를 입력하고 "확인"을 클릭합니다.

방법 4 : 수동으로 테이블 복사

그러나 VBA에 익숙하지 않은 경우 테이블 수가 제한된 한 수동으로 작업을 수행하는 것이 좋습니다.

1. 먼저 왼쪽 상단 모서리에있는 더하기 기호를 클릭하여 tar테이블을 얻으십시오.
2. 그런 다음 "Ctrl + C"를 눌러 복사합니다.
3. 다음으로 새 문서를 엽니 다.
4. 그리고 "Ctrl + V"를 눌러 새 문서에 표를 붙여 넣습니다.
5. 새 문서를 저장하는 것을 잊지 마십시오.

문서 문제 처리

Word를 계속 사용하는 한 항상 단어 손상. 그러나 더 이상 두려워하지 마십시오. 더 이상 해결할 수없는 문제가 아닙니다. 검증 된 복구 도구를 사용하면 모든 귀중한 데이터를 검색 할 가능성이 높습니다.

저자 소개 :

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