Trong bài viết dưới đây, chúng tôi xin cung cấp cho bạn 2 cách chính xác để thay đổi tên dấu trang trong tài liệu Word của bạn.
Trong khi soạn thảo một tài liệu Word dài, dấu trang và tham chiếu chéo có thể trở thành người bạn tốt nhất của chúng tôi bằng cách giúp chúng tôi tiết kiệm rất nhiều thời gian để giải thích lại cùng một điểm. Tuy nhiên, sự cố bất ngờ có thể xảy ra. Ví dụ: nếu bạn thay đổi tên dấu trang và cập nhật các tham chiếu chéo, chắc chắn bạn sẽ thất bại và kết thúc bằng các lỗi tham chiếu như dưới đây:
Nguyên nhân là do trong lần đổi tên bookmark, bạn đã vô tình xóa chính bookmark đó. Bây giờ chúng tôi sẽ chỉ cho bạn 2 phương pháp để giải quyết vấn đề này.
Phương pháp 1: Thay đổi Tên Dấu trang và Cập nhật Tham chiếu chéo theo cách thủ công
- Trước tiên, hãy nhấp vào tab “Chèn”, sau đó nhấp vào “Dấu trang” trong nhóm “Liên kết”.
- Tiếp theo, nhấp chuột để chọn dấu trang cần đánh dấu và nhấp vào “Đi đến”.
- Sau đó, bạn sẽ thấy các văn bản đánh dấu được lựa chọn. Nhấp vào "Xóa".
- Sau đó, nhập tên dấu trang mới và nhấp vào “Thêm”.
- Nhấn “Alt+ F9” để hiển thị mã trường.
- Trong trường hợp bạn có nhiều tham chiếu chéo, chúng tôi khuyên bạn nên sử dụng chức năng “Tìm và Thay thế”. Chỉ cần nhấn “Ctrl + H” để gọi hộp thoại “Tìm và thay thế”.
- Bây giờ hãy nhập “REF DWORDR” vào hộp văn bản “Find what” và “REF DWORDR2” trong hộp “Replace with”. “DWORDR” là tên dấu trang ban đầu và “DWORDR2” là tên mới.
- Tiếp theo nhấp vào “Thay thế tất cả”.
- Đóng hộp “Tìm và thay thế” và nhấn “Alt + F9” để hiển thị lại nội dung tham chiếu.
- Sau đó nhấn “Ctrl+ A” và “F9” bên cạnh để cập nhật tất cả các trường trong tài liệu.
Khi bạn di chuyển con trỏ qua tham chiếu chéo, bạn có thể thấy tên dấu trang mới trên hộp mẹo màn hình.
Cách 2: Thay đổi Bookmark Name và Update Cross-references qua VBA
- Đầu tiên, nhấn “Alt + F11” để kích hoạt trình soạn thảo VBA.
- Chuyển đến dự án “Bình thường” để chèn một mô-đun mới bằng cách nhấp vào tab “Chèn” trước.
- Sau đó chọn “Mô-đun” trên menu thả xuống của nó.
- Nhấp đúp vào mô-đun mới tạo để mở không gian chỉnh sửa ở bên phải.
- Tiếp theo dán macro sau vào đó:
Sub ChangeTheBookMarkNameAndUpdateCrossReference()
Dim strBookMarkName As String
Dim strNewName As String
Dim objBookMarkRange As Range
Dim objField As Field
Dim strFieldCode As String
' Rename the bookmark name.
strBookMarkName = InputBox("Enter the bookmark name which you want to change", "BookMark Name", "For example: DWORDR")
strNewName = InputBox("Enter the New bookmark Name", "New Bookmark Name", "For example: New text")
With ActiveDocument
If .Bookmarks.Exists(strBookMarkName) Then
Set objBookMarkRange = .Bookmarks(strBookMarkName).Range
.Bookmarks(strBookMarkName).Delete
.Bookmarks.Add Name:=strNewName, Range:=objBookMarkRange
' Update the cross-reference
If .Fields.Count >= 1 Then
For Each objField In .Fields
strFieldCode = objField.Code.Text
If strFieldCode = " REF " & strBookMarkName & " \h " Then
objField.Code.Text = Replace(strFieldCode, strBookMarkName, strNewName, , 1, vbTextCompare)
objField.Update
MsgBox ("Code = " & objField.Code & vbCr & "Result = " & objField.Result & vbCr)
End If
Next objField
End If
Else
MsgBox ("The Bookmark: " & strBookMarkName & " is not founded.")
End If
End With
Set objBookMarkRange = Nothing
End Sub
- Nhấp vào “Chạy” hoặc nhấn “F5”.
- Bây giờ hãy nhập tên dấu trang ban đầu vào hộp đầu tiên bật lên và nhấp vào “OK”.
- Nhập tên mới vào tên thứ hai và nhấp vào “OK”.
Cuối cùng, sẽ có một hộp hiển thị cho bạn kết quả.
Chăm sóc tài liệu Word
Chi phí của một Word bị hỏng Tài liệu không chỉ giới hạn trong việc kinh doanh thua lỗ mà còn khiến mọi người cảm thấy xót xa. Do đó, việc thực hiện các biện pháp phòng ngừa để tránh những điều không may mắn như sao lưu tài liệu là vô cùng cần thiết.
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 xlsx sửa chữa 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