كيفية القيام بما يلي: البحث عن النص واستبداله في المستندات

ينطبق على

تنطبق المعلومات الموجودة في هذا الموضوع فقط على أنواع المشاريع وإصدارات Microsoft Office التالية: لمزيد من المعلومات، راجع الميزات المتوفرة بواسطة تطبيقات Office و نوع المشروع.

نوع المشروع

  • مشروعات على مستوى المستند

  • مشروعات على مستوى التطبيق

إصدار Microsoft Office

  • Word 2007

  • Word 2010

استخدم كائن Find للتكرار خلال مستند Microsoft Office Word و البحث عن نص محدد أو التنسيق أو نمط ،واستخدام خاصية Replacement لتحل محل أي من العناصر الموجودة.

التعليمة البرمجية التالية تبحث في التحديد الحالي و تستبدل كافة التواجدات لسلسلة ‎find me بسلسلة Found. لاستخدام هذه التعليمات البرمجية، قم بتشغيلها من الفئة ThisDocument أو ThisAddIn في مشروعك.

مثال

Private Sub SearchReplace()
    Dim FindObject As Word.Find = Application.Selection.Find
    With FindObject
        .ClearFormatting()
        .Text = "find me"
        .Replacement.ClearFormatting()
        .Replacement.Text = "Found"
        .Execute(Replace:=Word.WdReplace.wdReplaceAll)
    End With
End Sub
private void SearchReplace()
{
    Word.Find findObject = Application.Selection.Find;
    findObject.ClearFormatting();
    findObject.Text = "find me";
    findObject.Replacement.ClearFormatting();
    findObject.Replacement.Text = "Found";

    object replaceAll = Word.WdReplace.wdReplaceAll;
    findObject.Execute(ref missing, ref missing, ref missing, ref missing, ref missing,
        ref missing, ref missing, ref missing, ref missing, ref missing,
        ref replaceAll, ref missing, ref missing, ref missing, ref missing);
}

التحويل البرمجي للتعليمات البرمجية

تحتوي فئةFind على أسلوب ClearFormatting وفئة Replacement أيضاً تحتوي على الأسلوب ClearFormatting الخاص بها. عند تنفيذ عمليات بحث و استبدال ، يجب استخدام أسلوب ClearFormatting لكلا الكائنين. إذا استخدمته فقط على كائن Find , قد تحصل على نتائج غير متوقعة في نص الاستبدال.

استخدم أسلوب Execute من كائن Find لاستبدال كل عنصر تم العثور عليه. لتحديد أى العناصر يتم استبدالها، استخدم المعلمة Replace يمكن أن تكون هذه المعلمة إحدى القيم WdReplace التالية:

  • wdReplaceAll يحل محل كل العناصر التى تم العثور عليها

  • wdReplaceNone لا يحل محل أى من العناصر التى تم العثور عليها

  • wdReplaceOne يحل محل أول عنصر تم العثور عليه

راجع أيضًا:

المهام

كيفية القيام بما يلي: البحث عن نص في المستندات

كيفية القيام بما يلي: تعيين خيارات البحث في Word

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

كيفية القيام بما يلي: استعادة التحديدات بعد البحث

المبادئ

المعلمات الاختيارية في حلول Office