Làm cách nào để chuyển đổi chú thích thành chú thích cuối trang hoặc chú thích cuối trong Microsoft Word?

Giả sử có nhiều nhận xét trong tài liệu Word của bạn, làm cách nào bạn có thể chuyển đổi tất cả các nhận xét này thành chú thích cuối trang hoặc chú thích cuối cùng một lúc? Bài viết này cung cấp các phương pháp VBA để đạt được nó.

Chuyển đổi nhận xét thành chú thích cuối trang hoặc chú thích cuối bằng mã VBA

Chuyển đổi nhận xét thành chú thích cuối trang hoặc chú thích cuối bằng mã VBA

Các mã VBA dưới đây có thể giúp bạn nhanh chóng chuyển đổi tất cả các nhận xét trong tài liệu hiện tại thành các chú thích cuối trang hoặc chú thích cuối. Hãy làm như sau.

1. Mở tài liệu chứa các chú thích mà bạn sẽ chuyển đổi thành chú thích cuối trang hoặc chú thích cuối, nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Module. Sau đó sao chép mã VBA bên dưới vào cửa sổ Mô-đun.

Sub ConvertCommentsToFootnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

Sub ConvertCommentsToEndnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

3. Nhấn nút F5 phím để chạy mã.

Sau đó, tất cả nhận xét trong tài liệu hiện tại được chuyển đổi thành chú thích cuối trang hoặc chú thích cuối ngay lập tức dựa trên mã VBA bạn đã áp dụng.

Các bài liên quan:

• Làm cách nào để thêm trang hoặc văn bản mới sau chú thích cuối trong tài liệu Word?
• Làm cách nào để chọn tất cả các chú thích cuối trang trong tài liệu Word?

---

Công cụ năng suất Word được đề xuất

 

Kutools cho Word - Hơn 100 tính năng nâng cao cho Word, tiết kiệm 50% thời gian của bạn

• Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện xử lý một lần trong vài giây.
• Chèn nhiều hình ảnh trên các thư mục vào tài liệu Word cùng một lúc.
• Hợp nhất và kết hợp nhiều tệp Word trên các thư mục thành một với thứ tự mong muốn của bạn.
• Chia tài liệu hiện tại thành các tài liệu riêng biệt theo tiêu đề, ngắt phần hoặc các tiêu chí khác.
• Chuyển đổi tệp giữa Doc và Docx, Docx và PDF, bộ sưu tập các công cụ để chuyển đổi và lựa chọn phổ biến, v.v.

Tìm hiểu thêm Tải xuống Ngay Mua