Nội dung chính
Trước khi in danh sách Bookmarks trong tài Liệu Word, việc đầu tiên bạn cần làm là trích xuất tất cả các Bookmarks trong tài liệu. Bạn có thể thực hiện thông qua mã VBA dưới đây. Mã này sẽ giúp bạn liệt kê tất cả các Bookmarks từ tài liệu hiện tại sang tài liệu mới và bạn có thể in thủ công các Bookmarks đã trích xuất khi cần. Cách thực hiện như sa:
Bước 1: Mở tài liệu bạn sẽ in danh sách Bookmarks.
Bước 2: Nhấn tổ hợp phím Alt + F11 để mở cửa sổ Microsoft Visual Basic for Applications.
Bước 3: Trong cửa sổ Microsoft Visual Basic for Applications hiển thị, truy cập vào menu Insert > Module, rồi sao chép mã VBA bên dưới vào cửa sổ Module.
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,
"Học Word tại Gitiho"
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
Bước 4: Điều hướng đến mục Run nằm ở thanh trên cùng và chọn Run Sub User Formhoặc nhấn F5 để chạy mã.
Sau đó, một tài liệu mới được tạo tự động với tất cả các Bookmarks của danh sách tài liệu được chỉ định bên trong.
Bước 5: Từ đây bạn có thể truy cập vào menu File > Print để in danh sách các Bookmarks đã trích xuất khi bạn cần.
Nếu bạn muốn in trực tiếp tất cả các Bookmarks trong tài liệu hiện tại thay vì trích xuất danh sách lưu lại rồi sau đó mới in thì thực hiện như sau.
Bước 1: Mở tài liệu bạn sẽ in danh sách Bookmarks.
Bước 2: Nhấn tổ hợp phím Alt + F11 để mở cửa sổ Microsoft Visual Basic for Applications .
Bước 3: Trong cửa sổ Microsoft Visual Basic for Applications hiển thị, truy cập vào menu Insert > Module, rồi sao chép mã VBA bên dưới vào cửa sổ Module.
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,
"Học Word tại Gitiho"
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
Bước 4: Điều hướng đến mục Run nằm ở thanh trên cùng và chọn Run Sub User Formhoặc nhấn F5 để in trực tiếp các Bookmarks có trong tài liệu.
Trên đây Gitiho vừa hướng dẫn các bạn cách in danh sách Bookmarks trong tài Liệu Word với hai giải pháp khác nhau để lựa chọn. Nếu thấy bài viết hữu ích, hãy chia sẻ với bạn bè của mình nhé. Chúc các bạn thành công.
CÓ THỂ BẠN CŨNG QUAN TÂM
Hướng dẫn về cách sử dụng các phím tắt và chức năng của nó trong Word
Hướng dẫn cách chèn công thức tính tổng của một hàng hoặc một cột trong bảng ở Word
Hướng dẫn cách để loại bỏ Track Changes khỏi tài liệu Word
Thời đại công nghệ 4.0 đang dần đi vào cuộc sống đòi hỏi mọi người phải tự trang bị kiến thức tin học cho phù hợp để có thể bắt kịp nhưng thay đổi nhanh chóng này. Chẳng ai khác ngoài bạn hiểu mình cần trang bị thêm kiến thức gì. Hãy tìm hiểu ngay TẠI ĐÂY những khóa học hấp dẫn, có tính thực tế cao của Gitiho và đăng ký nhận tư vấn ngay hôm nay.
Cùng tham gia cộng đồng hỏi đáp về chủ đề Tin học văn phòng
0 Bình luận