كيف يمكن تحديد النص أو حذفه بين علامتي مرجع في مستند Word؟

هل تعرف كيف تحدّد أو تحذف المحتوى الواقع بين علامتي مرجع في مستند Word؟ يعرض لك هذا المقال طرق التعامل مع هذه المهمة بسلاسة وفعالية.

تحديد/حذف النص بين علامتي مرجع باستخدام VBA

---

تحديد/حذف النص بين علامتي مرجع باستخدام VBA

بفرض وجود علامتي مرجع في المستند كما هو موضح في لقطة الشاشة أدناه، يمكنك تحديد أو حذف كل المحتويات الواقعة بين هاتين العلامتين باستخدام كود VBA التالي.

1. في المستند، اضغط على مفاتيحAlt+F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

2. في نافذةمايكروسوفت فيجوال بيسك للتطبيقات، انقر علىإدراج > وحدة، ثم انسخ الكود أدناه إلى نافذة الوحدة.

لتحديد أو حذف النصوص بين علامتي مرجع، يُرجى استخدام الأكواد التالية:

كود 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 for Word، أدخل علامة المرجع الابتدائية في مربع النص، ثم انقر علىموافق.

5. في مربع الحوار الثانيKutools for Word، أدخل علامة المرجع النهائية، ثم انقر علىموافق. انظر لقطة الشاشة:

ملاحظة: إذا لم تكن العلامة المرجعية التي أدخلتها موجودة في المستند، فسيعرض لك مربع حوار منKutools for Wordلتذكيرك بإدخال العلامة الصحيحة.

بعد ذلك، يُحدَّد أو يُحذف فورًا كل المحتوى المحصور بين العلامتين المحددتين. راجع لقطات الشاشة.

تحديد النصوص بين علامتي مرجع:

حذف النصوص بين علامتي مرجع.