6 cách để chuyển đổi tất cả chú thích cuối trang thành chú thích cuối trang và ngược lại trong tài liệu Word của bạn

Trong bài viết này, chúng tôi sẽ cung cấp cho các bạn 6 cách để chuyển tất cả chú thích cuối trang thành chú thích cuối trang và ngược lại trong tài liệu Word của bạn.

Tất cả đều biết rằng theo mặc định, văn bản chú thích cuối trang được sắp xếp ở cuối trang riêng lẻ trong khi chú thích cuối trang được tìm thấy ở cuối tài liệu. Tuy nhiên, những cài đặt mặc định như vậy không phải lúc nào cũng làm hài lòng mọi người. Thậm chí Word còn tích hợp sẵn câu lệnh để người dùng chuyển chú thích cuối trang thành chú thích cuối trang và ngược lại. Vì vậy, chúng tôi tạo ra 6 phương pháp để bạn lựa chọn.

Phương pháp 1: Chuyển đổi tất cả chú thích thành chú thích trong một tài liệu theo cách thủ công

Đây là nơi chú thích cuối trang và chú thích cuối thường ở:

1. Để bắt đầu, hãy nhấp vào tab “Tài liệu tham khảo”, sau đó nhấp vào nút mũi tên trong nhóm “Footnotes” để mở hộp thoại “Footnote and Endnote”.
2. Tiếp theo bấm vào nút “Chuyển đổi”.
3. Sau đó chọn tùy chọn “Chuyển đổi tất cả chú thích thành chú thích cuối”.
4. Và nhấp vào “OK”.
5. Cuối cùng, đóng hộp “Footnote and Endnote”.

Đây là hiệu ứng:

Phương pháp 2: Chuyển đổi tất cả chú thích cuối trang thành chú thích cuối trang trong một tài liệu theo cách thủ công

Để chuyển chú thích cuối trang thành chú thích cuối trang cũng rất giống nhau.

1. Lặp lại bước 1 và 2 trong phương pháp 1.
2. Thay vào đó, hãy chọn tùy chọn “Chuyển đổi tất cả chú thích thành chú thích cuối trang”.
3. Tuy nhiên, hãy lặp lại bước 4 và 5 trong phương pháp 1.

Kiểm tra kết quả sau:

Phương pháp 3: Chuyển đổi tất cả chú thích thành chú thích trong một tài liệu qua VBA

1. Trước hết, nhấn “Alt + F11” để mở trình soạn thảo VBA trong Word.
2. Tiếp theo nhấp vào “Bình thường”.
3. Nhấp vào tab “Chèn”.
4. Và chọn “Mô-đun” trên menu thả xuống.
5. Sau đó nhấp đúp chuột vào mô-đun để mở nó.
6. Dán các mã sau vào đó:

Sub ConvertFootnotesToEndnotes()

  If ActiveDocument.Footnotes.Count > 0 Then
    ActiveDocument.Footnotes.Convert
  Else
    MsgBox ("There is no footnote in this document")
  End If
End Sub

7. Cuối cùng, nhấp vào “Chạy”.

Phương pháp 4: Chuyển đổi tất cả chú thích thành chú thích cuối trang trong một tài liệu qua VBA

Tương tự, thực hiện các bước tương tự ở phương pháp 3 để cài đặt và chạy macro. Tuy nhiên, hãy thay thế macro bằng macro dưới đây:

Sub ConvertEndnotesToFootnotes()
 
 If ActiveDocument.Endnotes.Count > 0 Then
 ActiveDocument.Endnotes.Convert
 Else
 MsgBox ("There is no endnote in this document")
 End If
End Sub

Phương pháp 5: Chuyển đổi hàng loạt tất cả chú thích thành chú thích trong nhiều tài liệu qua VBA

Trong trường hợp bạn phải xử lý một số lượng lớn tệp, trước tiên bạn hãy sắp xếp tất cả chúng vào một thư mục. Sau đó cài đặt và chạy macro này:

Sub BatchConvertFootnotesToEndnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Footnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

Chạy macro này sẽ bật lên một hộp nhập liệu nơi bạn nên nhập đường dẫn thư mục. Và đừng quên phải có dấu “\” ở cuối địa chỉ thư mục.

Phương pháp 6: Chuyển đổi hàng loạt tất cả chú thích thành chú thích cuối trang trong nhiều tài liệu qua VBA

Cuối cùng, đây là macro để tự động chuyển đổi hàng loạt chú thích cuối trang trong nhiều tài liệu thành chú thích cuối trang:

Sub BatchConvertEndnotesToFootnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Endnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

Cách khắc phục sự cố về Word

Lời nói có thể thất bại mà không có dấu hiệu. Mặc dù bạn có thể cảm thấy thật khó tin khi vận rủi như vậy lại tìm đến mình, nhưng bạn không còn lựa chọn nào khác ngoài việc tìm đến một công cụ sửa chữa đủ tiêu chuẩn để khắc phục. tài liệu tham nhũng.

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 Excel bị hỏng 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