ในบทความต่อไปนี้เราขอเสนอ 2 วิธีที่ถูกต้องในการเปลี่ยนชื่อบุ๊กมาร์กในเอกสาร Word ของคุณ
ในขณะที่ร่างเอกสาร Word ขนาดยาวบุ๊กมาร์กและการอ้างอิงโยงสามารถกลายเป็นเพื่อนที่ดีที่สุดของเราได้โดยช่วยให้เราประหยัดเวลาได้มากในการอธิบายจุดเดิมซ้ำ อย่างไรก็ตามปัญหาที่ไม่คาดคิดอาจเกิดขึ้นได้ ตัวอย่างเช่นหากคุณเปลี่ยนชื่อบุ๊กมาร์กและอัปเดตการอ้างอิงโยงคุณจะล้มเหลวอย่างแน่นอนและจบลงด้วยข้อผิดพลาดในการอ้างอิงเช่นการร้อง:
เหตุผลก็คือเมื่อคุณเปลี่ยนชื่อบุ๊กมาร์กคุณจะลบบุ๊กมาร์กโดยไม่ได้ตั้งใจ ตอนนี้เราจะแสดง 2 วิธีในการแก้ไขปัญหานี้
วิธีที่ 1: เปลี่ยนชื่อบุ๊กมาร์กและอัปเดตการอ้างอิงโยงด้วยตนเอง
- เริ่มต้นด้วยการคลิกแท็บ “แทรก” จากนั้นคลิก “คั่นหน้า” ในกลุ่ม “ลิงก์”
- จากนั้นคลิกเพื่อเลือกบุ๊กมาร์กเป้าหมาย แล้วคลิก “ไปที่”
- คุณจะเห็นข้อความบุ๊กมาร์กที่เลือกไว้ในตอนนั้น คลิก "ลบ"
- จากนั้นป้อนชื่อบุ๊กมาร์กใหม่แล้วคลิก“ เพิ่ม”
- กด“ Alt + F9” เพื่อแสดงรหัสฟิลด์
- ในกรณีที่คุณมีการอ้างอิงโยงหลายรายการเราขอแนะนำให้คุณใช้ฟังก์ชัน "ค้นหาและแทนที่" เพียงกด "Ctrl + H" เพื่อเรียกใช้กล่องโต้ตอบ "ค้นหาและแทนที่"
- ตอนนี้ให้ป้อน“ REF DWORDR” ในกล่องข้อความ“ Find what” และ“ REF DWORDR2” ในช่อง“ Replace with” “ DWORDR” คือชื่อบุ๊กมาร์กดั้งเดิมและ“ DWORDR2” คือชื่อใหม่
- จากนั้นคลิก "แทนที่ทั้งหมด"
- ปิดช่อง“ ค้นหาและแทนที่” แล้วกด“ Alt + F9” เพื่อแสดงเนื้อหาอ้างอิงอีกครั้ง
- จากนั้นกด“ Ctrl + A” และ“ F9” ถัดไปเพื่ออัปเดตฟิลด์ทั้งหมดในเอกสาร
เมื่อคุณเลื่อนเคอร์เซอร์ไปที่การอ้างอิงโยงคุณจะเห็นชื่อบุ๊กมาร์กใหม่บนกล่องคำแนะนำบนหน้าจอ
วิธีที่ 2: เปลี่ยนชื่อบุ๊กมาร์กและอัปเดตการอ้างอิงข้ามผ่าน VBA
- ขั้นแรกกด“ Alt + F11” เพื่อทริกเกอร์โปรแกรมแก้ไข VBA
- ไปที่โปรเจ็กต์“ ปกติ” เพื่อแทรกโมดูลใหม่โดยคลิกแท็บ“ แทรก” ก่อน
- จากนั้นเลือก "โมดูล" ในเมนูแบบเลื่อนลง
- ดับเบิลคลิกที่โมดูลที่สร้างขึ้นใหม่เพื่อเปิดพื้นที่แก้ไขทางด้านขวา
- ถัดไปวางมาโครต่อไปนี้ที่นั่น:
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
- คลิก“ Run” หรือกด“ F5”
- ตอนนี้ป้อนชื่อบุ๊กมาร์กเดิมในช่องแรกที่โผล่ขึ้นมาแล้วคลิก“ ตกลง”
- ป้อนชื่อใหม่ในวินาทีและคลิก“ ตกลง”
สุดท้ายจะมีกล่องแสดงผลลัพธ์ให้คุณเห็น
ดูแลเอกสาร Word
ค่าใช้จ่ายของ Word เสียหาย เอกสารไม่ได้ จำกัด อยู่ที่การสูญเสียทางธุรกิจ แต่ยังทำให้ผู้คนรู้สึกว้าวุ่นใจ ดังนั้นจึงจำเป็นอย่างยิ่งที่จะต้องใช้มาตรการป้องกันเพื่อหลีกเลี่ยงความโชคร้ายเช่นการสำรองเอกสาร
บทนำผู้เขียน:
Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ xlsx ซ่อม และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.