오늘의 기사에서는 Word 문서에서 모든 책갈피를 일괄 추출하여 한 번에 볼 수있는 단계를 공유하고자합니다.
Word에서 기본 제공 함수를 사용하여 목차 또는 그림 목차를 생성 할 수 있습니다. 그러나 궁극적으로 문서의 모든 책갈피를 추출하여 새 문서에 정렬하는 일반적인 방법은 없습니다.
항상 그렇듯이 우리의 임무는 신화를 통해 당신을 이끌고 모든 책갈피와 그 텍스트를 새로운 빈 문서로 내보내는 매크로 방법을 제공하는 것입니다.
단일 문서에서 모든 책갈피 일괄 추출
- 에tar꺼, 열어 tar문서를 가져오고“Alt + F11”을 눌러 VBA 편집기를 호출합니다.
- 그런 다음 "일반"을 클릭 한 다음 "삽입"을 클릭합니다.
- 그리고“Module”을 선택하여“Normal”프로젝트에서 새로운 것을 만듭니다.
- 그런 다음 두 번 클릭하여 편집 공간을 불러옵니다.
- 여기에 다음 매크로를 붙여 넣습니다.
Sub ExtractBookmarksInADoc()
Dim objBookmark As Bookmark
Dim objTable As Table
Dim nRow As Integer
Dim objDoc As Document, objNewDoc As Document
Dim objParagraph As Paragraph
Set objDoc = ActiveDocument
If objDoc.Bookmarks.Count = 0 Then
MsgBox ("There is no bookmark in this document.")
Else
Set objNewDoc = Documents.Add
Selection.TypeText Text:="Bookmarks in " & "'" & objDoc.Name & "'"
Set objTable = Selection.Tables.Add(Range:=Selection.Range, numrows:=1, numcolumns:=3)
objTable.Borders.Enable = True
nRow = 1
For Each objParagraph In objNewDoc.Paragraphs
If objParagraph.Range.Style = "Caption" Then
objParagraph.Range.Delete
End If
Next objParagraph
With objTable
.Cell(1, 1).Range.Text = "Name"
.Cell(1, 2).Range.Text = "Texts"
.Cell(1, 3).Range.Text = "Page Number"
For Each objBookmark In objDoc.Bookmarks
objTable.Rows.Add
nRow = nRow + 1
.Cell(nRow, 1).Range.Text = objBookmark.Name
.Cell(nRow, 2).Range.Text = objBookmark.Range.Text
.Cell(nRow, 3).Range.Text = objBookmark.Range.Information(wdActiveEndAdjustedPageNumber)
objDoc.Hyperlinks.Add Anchor:=.Cell(nRow, 3).Range, Address:=objDoc.Name, _
SubAddress:=objBookmark.Name, TextToDisplay:=.Cell(nRow, 3).Range.Text
Next objBookmark
End With
End If
objNewDoc.SaveAs2 FileName:=objDoc.Path & "\" & "Bookmarks in " & objDoc.Name
End Sub
- 마지막으로 "실행"을 클릭합니다.
현재 문서의 모든 북마크는 원본 파일과 동일한 디렉토리 아래에 저장된 새 문서의 테이블에 배치됩니다.
새 문서에서 3 개의 열로 구성된 표를 볼 수 있습니다. "Ctrl + 클릭"을 누르면 원본 문서의 책갈피로 이동합니다.
여러 문서에서 일괄 추출 책갈피
위와 동일한 단계에 따라 매크로를 설치하고 실행하십시오. 이번에 만 코드를 다음 코드로 바꿉니다.
Sub ExtractBookmarksInMultiDoc()
Dim objBookmark As Bookmark
Dim objTable As Table
Dim nRow As Integer
Dim objDoc As Document, objNewDoc As Document
Dim objParagraph As Paragraph
Dim strFolder As String, strFile As String
strFolder = InputBox("Enter folder path here: ")
strFile = Dir(strFolder & "*.docx", vbNormal)
While strFile <> ""
Set objDoc = Documents.Open(FileName:=strFolder & strFile)
Set objDoc = ActiveDocument
Set objNewDoc = Documents.Add
Selection.TypeText Text:="Bookmarks in " & "'" & objDoc.Name & "'"
Set objTable = Selection.Tables.Add(Range:=Selection.Range, numrows:=1, numcolumns:=3)
objTable.Borders.Enable = True
nRow = 1
For Each objParagraph In objNewDoc.Paragraphs
If objParagraph.Range.Style = "Caption" Then
objParagraph.Range.Delete
End If
Next objParagraph
With objTable
.Cell(1, 1).Range.Text = "Name"
.Cell(1, 2).Range.Text = "Texts"
.Cell(1, 3).Range.Text = "Page Number"
For Each objBookmark In objDoc.Bookmarks
objTable.Rows.Add
nRow = nRow + 1
.Cell(nRow, 1).Range.Text = objBookmark.Name
.Cell(nRow, 2).Range.Text = objBookmark.Range.Text
.Cell(nRow, 3).Range.Text = objBookmark.Range.Information(wdActiveEndAdjustedPageNumber)
objDoc.Hyperlinks.Add Anchor:=.Cell(nRow, 3).Range, Address:=objDoc.Name, _
SubAddress:=objBookmark.Name, TextToDisplay:=.Cell(nRow, 3).Range.Text
Next objBookmark
End With
objNewDoc.SaveAs2 FileName:=objDoc.Path & "\" & "Bookmarks in " & objDoc.Name
objDoc.Close
strFile = Dir()
Wend
End Sub
매크로를 실행하면 입력 상자가 있습니다. 모든 문서를 저장할 폴더 경로를 입력하십시오. 그리고 기억하세요 경로 끝에 "\"추가 폴더 텍스트 상자에서 복사하면됩니다. 그런 다음 "확인"을 클릭합니다.
데이터 재해로부터 신속하게 자신을 구하는 방법
Word에서 말하는 데이터 재해는 비정상적으로 작동하지 않을 때마다 발생할 수 있습니다. 때로는 운이 좋으며 모든 정보가 그대로 유지됩니다. 그리고 다른 때는 재난의 희생양이됩니다. 따라서 가능한 한 많은 데이터를 검색하는 가장 빠른 방법은 docx 수정.
저자 소개 :
Vera Chen은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. xlsx 수리 pdf 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM