จะเลือกหรือลบข้อความระหว่างสองบุ๊กมาร์กในเอกสาร Word ได้อย่างไร?
คุณรู้วิธีเลือกหรือลบเนื้อหาระหว่างสองบุ๊กมาร์กในเอกสาร Word หรือไม่? บทความนี้จะแสดงวิธีจัดการกับมัน
เลือก / ลบข้อความระหว่างสองบุ๊กมาร์กด้วย VBA
เลือก / ลบข้อความระหว่างสองบุ๊กมาร์กด้วย VBA
สมมติว่ามีบุ๊กมาร์กสองรายการในเอกสารของคุณดังภาพด้านล่างนี้คุณสามารถเลือกหรือลบเนื้อหาทั้งหมดระหว่างบุ๊กมาร์กทั้งสองนี้ด้วยรหัส VBA ต่อไปนี้
1. ในเอกสารให้กดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกโค้ดด้านล่างลงในหน้าต่างโมดูล
สำหรับการเลือกหรือลบข้อความระหว่างสองบุ๊กมาร์กโปรดใช้รหัสนี้:
รหัส VBA: เลือกข้อความระหว่างสองบุ๊กมาร์กที่ระบุใน Word:
Sub SelectBetweenBookmarks()
Dim xRange As Range
Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
Set xRange = ActiveDocument.Content
xBookMarkOne = InputBox("Please enter the start bookmark:", "Kutools for Word")
xBookMarkTwo = InputBox("Please enter the end bookmark:", "Kutools for Word")
Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
If xBMone Is Nothing Or xBMtwo Is Nothing Then
MsgBox "Please enter the correct bookmark name", vbInformation, "KuTools for Word"
Exit Sub
End If
xRange.Start = xBMone.Range.End
xRange.End = xBMtwo.Range.Start
xRange.Select
End Sub
รหัส VBA: ลบข้อความระหว่างสองบุ๊กมาร์กที่ระบุใน Word:
Sub DeleteBetweenBookmarks ()
Dim xRange As Range
Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
Set xRange = ActiveDocument.Content
xBookMarkOne = InputBox("Please enter the start bookmark:", "Kutools for Word")
xBookMarkTwo = InputBox("Please enter the end bookmark:", "Kutools for Word")
Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
If xBMone Is Nothing Or xBMtwo Is Nothing Then
MsgBox " Please enter the correct bookmark name ", vbInformation, "KuTools for Word"
Exit Sub
End If
xRange.Start = xBMone.Range.End
xRange.End = xBMtwo.Range.Start
xRange.Delete
End Sub
3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส
4. ในครั้งแรก Kutools สำหรับ Word กล่องโต้ตอบป้อนชื่อบุ๊กมาร์กเริ่มต้นลงในกล่องข้อความแล้วคลิก OK.
5. ในวินาทีที่ Kutools สำหรับ Word กล่องโต้ตอบป้อนที่คั่นหน้าสุดท้ายแล้วคลิก OK. ดูภาพหน้าจอ:
หมายเหตุ: หากไม่มีชื่อบุ๊กมาร์กที่คุณป้อนในเอกสารกล่องโต้ตอบ Kutools for Word อื่นจะปรากฏขึ้นเพื่อเตือนให้คุณป้อนชื่อที่ถูกต้อง
จากนั้นเนื้อหาทั้งหมดระหว่างบุ๊กมาร์กที่ระบุจะถูกเลือกหรือลบทันที ดูภาพหน้าจอ
เลือกข้อความระหว่างสองบุ๊กมาร์ก:
ลบข้อความระหว่างสองบุ๊กมาร์ก
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
Kutools สำหรับ Word - ยกระดับประสบการณ์คำศัพท์ของคุณด้วย Over 100 คุณสมบัติเด่น!
🤖 Kutools ผู้ช่วย AI: แปลงโฉมงานเขียนของคุณด้วย AI - สร้างเนื้อหา / เขียนข้อความใหม่ / สรุปเอกสาร / สอบถามข้อมูล ขึ้นอยู่กับเอกสารทั้งหมดนี้ภายใน Word
📘 ความเชี่ยวชาญด้านเอกสาร: แยกหน้า / ผสานเอกสาร / ส่งออกตัวเลือกในรูปแบบต่างๆ (PDF/TXT/DOC/HTML...) / แบทช์แปลงเป็น PDF / ส่งออกเพจเป็นรูปภาพ / พิมพ์หลายไฟล์พร้อมกัน...
✏ การแก้ไขเนื้อหา: ค้นหาแบทช์และแทนที่ ข้ามหลายไฟล์ / ปรับขนาดรูปภาพทั้งหมด / ย้ายแถวและคอลัมน์ของตาราง / แปลงตารางเป็นข้อความ...
🧹 ทำความสะอาดได้อย่างง่ายดาย: หลบไป พื้นที่พิเศษ / แบ่งส่วน / ส่วนหัวทั้งหมด / กล่องข้อความ / เชื่อมโยงหลายมิติ / หากต้องการดูเครื่องมือถอดเพิ่มเติม โปรดไปที่ของเรา ลบกลุ่ม...
➕ ส่วนแทรกโฆษณา: แทรก ตัวคั่นหลักพัน / กล่องกาเครื่องหมาย / ปุ่มวิทยุ / คิวอาร์โค้ด / บาร์โค้ด / ตารางเส้นทแยงมุม / คำอธิบายสมการ / คำบรรยายภาพ / คำบรรยายตาราง / รูปภาพหลายภาพ / ค้นพบเพิ่มเติมใน แทรกกลุ่ม...
🔍 การเลือกที่แม่นยำ: ระบุ หน้าที่เฉพาะเจาะจง / ตาราง / รูปร่าง / หัวเรื่องย่อหน้า / เสริมการนำทางด้วย ข้อมูลเพิ่มเติม เลือกคุณสมบัติ...
⭐ การปรับปรุงดาว: นำทางอย่างรวดเร็วไปยังสถานที่ใด ๆ / แทรกข้อความซ้ำอัตโนมัติ / สลับระหว่างหน้าต่างเอกสารได้อย่างราบรื่น / 11 เครื่องมือการแปลง...