팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
회원가입
x

or

Word 문서에서 책갈피 목록을 인쇄하는 방법은 무엇입니까?

혹시 Word 문서에 북마크 목록을 인쇄하려 한 적이 있습니까? 여기서는 그것을 달성하는 방법을 보여 드리겠습니다.

모든 북마크를 추출하고 VBA로 인쇄하십시오.

VBA로 모든 책갈피를 직접 인쇄하십시오.


모든 북마크를 추출하고 VBA로 인쇄하십시오.

아래 VBA 코드는 현재 문서의 책갈피를 모두 새 문서로 나열하는 데 도움이되며 필요한 경우 추출 된 책갈피를 수동으로 인쇄 할 수 있습니다. 다음과 같이하십시오.

1. 북마크를 인쇄 할 문서를 열고, 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈코드를 모듈 창에 복사하십시오.

VBA 코드 : 모든 북마크를 새 문서에 추출하십시오.

Sub ExtractBookmarksInADoc()
'Updated by Extendoffice 20181123
    Dim xRow As Long
    Dim xTable As Table
    Dim xDoc As Document
    Dim xBookMark As Bookmark
    Dim xBookMarkDoc As Document
    Dim xParagraph As Paragraph
    Set xDoc = ActiveDocument
    If xDoc.Bookmarks.Count = 0 Then
        MsgBox "There is no bookmark in this document", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    Set xBookMarkDoc = Documents.Add
    xRow = 1
    Selection.TypeText "BookMarks in " & "'" & xDoc.Name & "'"
    Set xTable = Selection.Tables.Add(Selection.Range, 1, 3)
    xTable.Borders.Enable = True
    With xTable
        .Cell(xRow, 1).Range.Text = "Name"
        .Cell(xRow, 2).Range.Text = "Texts"
        .Cell(xRow, 3).Range.Text = "Page Number"
        For Each xBookMark In xDoc.Bookmarks
            xTable.Rows.Add
            xRow = xRow + 1
            .Cell(xRow, 1).Range.Text = xBookMark.Name
            .Cell(xRow, 2).Range.Text = xBookMark.Range.Text
            .Cell(xRow, 3).Range.Text = xBookMark.Range.Information(wdActiveEndAdjustedPageNumber)
            xDoc.Hyperlinks.Add Anchor:=.Cell(xRow, 3).Range, Address:=xDoc.Name, _
              SubAddress:=xBookMark.Name, TextToDisplay:=.Cell(xRow, 3).Range.Text
        Next
    End With
    xBookMarkDoc.SaveAs xDoc.Path & "\" & "Bookmarks in " & xDoc.Name
End Sub

3. 누르세요 F5 키를 눌러 코드를 실행하십시오.

그런 다음 지정된 문서 목록의 모든 책갈피를 내부에 포함하여 새 문서가 자동으로 만들어집니다.

4. 클릭 할 수 있습니다. 필렛 > 인쇄 필요에 따라 추출 된 책갈피 목록을 인쇄하십시오.


VBA로 모든 책갈피를 직접 인쇄하십시오.

모든 책갈피를 현재 문서에 직접 인쇄하려면 다음과 같이하십시오.

1. 북마크를 인쇄 할 문서를 열고, 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 기준 치수, 그런 다음 아래 코드를 모듈 창에 복사하십시오.

VBA 코드 : 문서의 모든 책갈피 인쇄

Sub ExtractBookmarksInADoc()
'Updated by Extendoffice 20181123
    Dim xRow As Long
    Dim xTable As Table
    Dim xDoc As Document
    Dim xBookMark As Bookmark
    Dim xBookMarkDoc As Document
    Dim xParagraph As Paragraph
    On Error Resume Next
    Set xDoc = ActiveDocument
    If xDoc.Bookmarks.Count = 0 Then
        MsgBox "There is no bookmark in this document", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    Set xBookMarkDoc = Documents.Add
    xRow = 1
    Selection.TypeText "BookMarks in " & "'" & xDoc.Name & "'"
    Set xTable = Selection.Tables.Add(Selection.Range, 1, 3)
    xTable.Borders.Enable = True
    With xTable
        .Cell(xRow, 1).Range.Text = "Name"
        .Cell(xRow, 2).Range.Text = "Texts"
        .Cell(xRow, 3).Range.Text = "Page Number"
        For Each xBookMark In xDoc.Bookmarks
            xTable.Rows.Add
            xRow = xRow + 1
            .Cell(xRow, 1).Range.Text = xBookMark.Name
            .Cell(xRow, 2).Range.Text = xBookMark.Range.Text
            .Cell(xRow, 3).Range.Text = xBookMark.Range.Information(wdActiveEndAdjustedPageNumber)
            xDoc.Hyperlinks.Add Anchor:=.Cell(xRow, 3).Range, Address:=xDoc.Name, _
              SubAddress:=xBookMark.Name, TextToDisplay:=.Cell(xRow, 3).Range.Text
        Next
    End With
    xBookMarkDoc.SaveAs xDoc.Path & "\" & "Bookmarks in " & xDoc.Name
    xBookMarkDoc.PrintOut
    xBookMarkDoc.Close
    Kill xBookMarkDoc.Path
End Sub

3. 누르세요 F5 책갈피를 직접 인쇄하려면 키를 누르십시오.



권장 단어 생산성 도구

Word 용 Kutools-100 이상의 고급 기능 Word의 50 % 시간 절약

  • 복잡하고 반복되는 작업은 1 초 단위로 처리 할 수 ​​있습니다.
  • Word 문서에 여러 이미지를 한 번에 삽입 할 수 있습니다.
  • 여러 Word 파일을 여러 폴더로 병합하고 원하는 순서로 하나로 결합하십시오.
  • 제목, 섹션 나누기 또는 기타 기준에 따라 현재 문서를 별도의 문서로 나눕니다.
  • Doc와 Docx, Docx와 PDF 사이의 파일 변환, 일반적인 변환과 선택을위한 도구 모음 등등 ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.