نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

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


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

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

1. في المستند ، اضغط على قديم + 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. في الاول كوتولس للكلمة مربع الحوار ، أدخل اسم الإشارة المرجعية في مربع النص ثم انقر فوق OK.

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

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

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

حدد نصوصًا بين إشارتين مرجعيين:

حذف النصوص بين اثنين من العناوين.



أوصت كلمة أدوات الإنتاجية

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

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة خلال ثوانٍ.
  • إدراج صور متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word متعددة عبر مجلدات في واحد بالترتيب المطلوب.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقاطع أو معايير أخرى.
  • تحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والتحديدات الشائعة ، وما إلى ذلك ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.