Stephen có một tài liệu lớn (hơn 300 trang) bao gồm một số lượng lớn các siêu liên kết trong văn bản chính. Ngoài ra, còn có các chú thích cuối trang trong tài liệu. Mỗi siêu liên kết cần được chuyển đổi thành chú thích cuối trang, điều này (tất nhiên) sẽ làm tăng số lượng chú thích cuối trang trong tài liệu.

Sự gia tăng không phải là một vấn đề. Vấn đề là đưa ra một cách nhanh chóng để chuyển đổi tất cả các siêu liên kết đó thành chú thích cuối trang. Stephen tự hỏi liệu điều này có thể được thực hiện bằng cách sử dụng macro.

Điều này thực sự có thể được thực hiện với một macro. Trên thực tế, macro có thể đơn giản hơn bạn tưởng tượng. Đây là một ví dụ:

' Create footnote         ActiveDocument.Footnotes.Add Range:=rTemp, _           Text:=rTemp.Text

Ví dụ này thực hiện hai lần đi qua tất cả các siêu liên kết trong tài liệu.

Trong lần chuyển đầu tiên, nó tạo các chú thích cuối trang và trong lần chuyển thứ hai, nó sẽ xóa các siêu liên kết. Cũng lưu ý rằng phần mã kiểm tra xem có khoảng trống trước siêu liên kết hay không. Điều này được thực hiện để nếu có, khoảng trống đó có thể bị xóa để đặt số chú thích kết quả ngay bên cạnh bất kỳ thứ gì trước khoảng trắng đó. (Nói cách khác, nếu điều này không được thực hiện, thì tốt nhất là mỗi số chú thích sẽ có một khoảng trắng trước nó.)

Điều đó dẫn đến một vấn đề khác với macro mà bạn nên biết — tất cả những gì nó làm là tạo các chú thích cuối trang và xóa các siêu liên kết. Nếu có bất kỳ thông tin nào xung quanh siêu kết nối ban đầu (chẳng hạn như dấu ngoặc đơn, dấu phẩy hoặc dấu chấm), các ký tự đó sẽ được để lại trong tài liệu. Điều này có nghĩa là bạn nên chuyển qua tài liệu của mình theo cách thủ công sau khi chạy macro để đảm bảo rằng các ký tự không liên quan có thể được chỉnh sửa như bạn muốn.

Cuối cùng, lưu ý rằng các siêu liên kết được đặt trong phần chú thích không phải là siêu liên kết đang hoạt động — chúng chỉ là văn bản. Tuy nhiên, đây không phải là một vấn đề lớn, vì văn bản thuần túy thường là điều mong muốn khi tạo tài liệu có chứa chú thích cuối trang.

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 (13739) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365.