Note: The other languages of the website are Google-translated. Back to English

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.

Mã VBA: Chuyển đổi chú thích thành chú thích cuối trang:

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

Mã VBA: Chuyển đổi chú thích thành chú thích cuối:

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:


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.
Nhận xét (1)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thật đáng kinh ngạc. Cám ơn rất nhiều!!! thực sự hữu ích.
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL