Trong bài viết này, chúng tôi muốn cung cấp cho bạn 2 cách thông minh để hiển thị tất cả dấu trang trong tài liệu Word của bạn.
Thỉnh thoảng, chúng tôi chèn dấu trang cho một lựa chọn văn bản mà chúng tôi muốn xem lại sau. Nhưng bản chất của dấu trang trong Word khiến bạn khó xác định. Nói cách khác, chúng ta không thể xem trực tiếp dấu trang mà không bật một số tùy chọn trong Word. 
Bài viết này được dành để giúp bạn xem các dấu trang một cách rõ ràng. Bạn có thể chọn một trong hai cách để thực hành.
Phương pháp 1: Hiển thị Dấu ngoặc
- Trước tiên, hãy nhấp vào tab “Tệp” trên thanh Ribbon.
- Sau đó nhấp vào “Tùy chọn” để mở hộp thoại “Tùy chọn Word”.
- Tiếp theo, nhấp vào “Nâng cao” ở cột bên trái.
- Cuộn xuống phần “Hiển thị nội dung tài liệu” và chọn hộp “Hiển thị dấu trang”.
- Cuối cùng, nhấp vào “OK” để lưu sửa đổi.
Bây giờ có dấu ngoặc vuông xung quanh các mục được đánh dấu. Bạn có thể thấy các dấu ngoặc này có màu xám đôi khi không quá rõ ràng. Và bạn có thể nhầm lẫn chúng với dấu ngoặc vuông bình thường.
Do đó, chúng tôi muốn giới thiệu cho bạn một macro để đánh dấu các dấu trang nhằm làm nổi bật chúng theo cách tốt hơn.
Phương pháp 2: Đánh dấu nhiều dấu trang
- Để bắt đầu, hãy nhấn “Alt + F11” để gọi trình soạn thảo VBA.
- Tiếp theo nhấp vào dự án "Bình thường".
- Sau đó nhấp vào tab “Chèn” trên thanh menu và chọn “Mô-đun” trên menu thả xuống.
- Và nhấp đúp vào mô-đun mới để mở không gian chỉnh sửa của nó ở phía bên phải.
- Dán macro sau vào đó:
Sub HighlightBookmarkedItemsInADoc()
Dim objBookmark As Bookmark
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
With objDoc
For Each objBookmark In .Bookmarks
objBookmark.Range.HighlightColorIndex = wdBrightGreen
Next objBookmark
End With
Application.ScreenUpdating = True
End Sub
- Cuối cùng nhưng không kém phần quan trọng, hãy nhấp vào “Chạy” hoặc nhấn “F5”.
Điều tiếp theo bạn thấy là tất cả các dấu trang được đánh dấu bằng màu xanh lá cây, chẳng hạn như bên dưới:
Macro ở trên làm nổi bật tất cả các dấu trang trong tài liệu đang hoạt động hiện tại. Trong trường hợp, có một số tài liệu cần xử lý, thì bạn cần macro này để thay thế:
Sub HighlightBookmarkedItemsInMultiDoc()
Dim StrFolder As String
Dim strFile As String
Dim objDoc As Document
Dim dlgFile As FileDialog
Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
With dlgFile
If .Show = -1 Then
StrFolder = .SelectedItems(1) & "\"
Else
MsgBox "You need to select a folder first!"
Exit Sub
End If
End With
strFile = Dir(StrFolder & "*.docx", vbNormal)
While strFile <> ""
Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
Set objDoc = ActiveDocument
With objDoc
For Each objBookmark In .Bookmarks
objBookmark.Range.HighlightColorIndex = wdBrightGreen
Next objBookmark
End With
objDoc.Save
objDoc.Close
strFile = Dir()
Wend
End Sub
Trước khi chạy macro này, bạn phải đặt tất cả các tài liệu mục tiêu vào cùng một thư mục. Sau đó, macro sẽ mở cửa sổ "Browse". Chỉ cần chọn thư mục bạn lưu trữ tài liệu của mình.
Tiện ích sửa chữa tài liệu
Nếu bạn gặp phải thiệt hại từ, có khả năng cao là nó có thể xóa sạch một số thông tin quan trọng khỏi máy tính của bạn. Sẽ không có vấn đề gì lớn nếu bạn có một bản sao lưu mới nhất để tham khảo. Tuy nhiên, nếu không, bạn sẽ cần một công cụ sửa chữa ngay lập tức.
Giới thiệu tác giả:
Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa chữa xlsx và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm