Văn bản ẩn là một trợ giúp tuyệt vời cho những ai muốn “ẩn” các phần nhất định của tài liệu, để xem hoặc in. Tuy nhiên, việc che giấu thông tin mà bạn không muốn người khác nhìn thấy trong tài liệu mà bạn đang phân phát sẽ không tốt lắm. Họ (những người mà bạn đang phân phối tài liệu) có thể hiển thị hoặc in văn bản ẩn dễ dàng như bạn có thể.

Không có tính năng nào được tích hợp sẵn của Word cho phép bạn “khóa” văn bản ẩn để không thể xem được. Sau đó, giải pháp tốt nhất là chỉ cần xóa tất cả văn bản ẩn của bạn như là bước cuối cùng trước khi phân phối tài liệu của bạn.

Bạn có thể thực hiện việc này bằng cách sử dụng các tính năng Tìm kiếm và Thay thế của Word, như sau:

  1. Nhấn Ctrl + H. Word hiển thị tab Thay thế của hộp thoại Tìm và Thay thế.

  2. Bấm vào nút More, nếu nó có sẵn. (Xem Hình 1.)

  3. Định vị điểm chèn trong hộp Tìm gì và đảm bảo rằng nó trống.

  4. Bấm vào nút Định dạng và chọn Phông chữ. Word hiển thị hộp thoại Tìm Phông chữ. (Xem Hình 2.)

  5. Bấm vào hộp kiểm Thuộc tính ẩn cho đến khi nó có một dấu kiểm màu đen đặc trong đó. (Bạn có thể phải nhấp vào nó nhiều lần.)

  6. Nhấp vào OK. Hộp thoại Tìm Phông chữ biến mất và dòng chữ “Định dạng: Ẩn” sẽ xuất hiện ngay bên dưới hộp Tìm Phông chữ.

  7. Đảm bảo rằng hộp Thay thế Bằng trống.

  8. Nhấp vào Thay thế Tất cả.

Nếu bạn thấy mình loại bỏ văn bản ẩn khá nhiều, bạn có thể tự động hóa quy trình bằng cách ghi lại macro thực hiện các bước trên hoặc bạn có thể sử dụng macro sau:

Sub StripAllHidden()

Dim rngsStories As Word.StoryRanges     Dim rngStory As Word.Range

On Error GoTo NoDocOpen         Set rngsStories = ActiveDocument.StoryRanges     On Error GoTo 0

'Need to loop through all 'stories' to     'remove hidden text from footnotes, headers,     'etc. as well as body text.



For Each rngStory In rngsStories         With rngStory.Find             .ClearFormatting             .Font.Hidden = True             Call .Execute(vbNullString, False, False, False, _                 False, False, True, wdFindContinue, True, _                 ReplaceWith:=vbNullString, _                     Replace:=wdReplaceAll)

End With     Next     Exit Sub NoDocOpen:

End Sub

Ưu điểm khác của việc sử dụng macro này là nó cũng sẽ tìm kiếm văn bản ẩn ở những nơi mà chức năng Tìm kiếm và Thay thế thông thường sẽ không thực hiện: chú thích cuối trang, chú thích cuối, đầu trang, chân trang, v.v.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (12438) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Word tại đây: