Note: The other languages of the website are Google-translated. Back to English

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

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

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


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

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

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

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

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

رمز فبا: حدد نصًا بين إشارات مرجعية محددة في 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

رمز فبا: حذف النص بين اثنين من الإشارات المرجعية المحددة في 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. في الأول كوتولس للكلمة في مربع الحوار ، أدخل اسم إشارة البدء في مربع النص وانقر OK.

5. في الثانية كوتولس للكلمة في مربع الحوار ، أدخل إشارة النهاية وانقر OK. انظر لقطة الشاشة:

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

ثم يتم تحديد أو حذف جميع المحتويات الموجودة بين الإشارات المرجعية المحددة على الفور. انظر لقطات.

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

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


أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة