البحث عن كلمتين معاً

[Enghsafash]

السلام عليكم ورحمة الله وبركاته

أحياناً ترغب باستبدال عدة كلمات موجودة في مستند وورد بكلمة معينة

بمعنى أريد أن أبحث عن كلمات، مسألة، مشكلة، معضلة  المكتوبة بكثرة في ملف وورد، وأستبدل الثلاثة بكلمة واحدة مثل أحجية ...

قد يقول أحدكم، قم بالاستبدال واحدة واحدة ...

ولكنه استفسار يساعد في حالات خاصة ...

[تومي محمد]

طالع هذه الصفحةhttps://ar.compozi.com/5820-how-to-use-wildcards-when-searching-in-word-2016#menu-1

و كذلك هنا  https://ar.compozi.com/5820-how-to-use-wildcards-when-searching-in-word-2016#menu-6

 

والسلام

[Enghsafash]

ما شاء الله، شكراً لكم ... به الكثير من الفائدة، وسأحاول التطبيق لعلي أجد ما أبحث عنه ...

[عبد الله العراقي]

الصفحات غير موجودة 

ربما الروابط معطلة 

اذا ممكن توضيح

[أبو عاصم المصري]

هذا الماكرو يستبدل مجموعة كلمات، ويضع مكانها كلمة واحدة.

يعني يمكن أن تضع في خانة البحث: محمد ، أحمد ، إبراهيم

وفي خانة الاستبدال: عمر

وستحول كل المواضع التي فيها (محمد ، عمر ، إبراهيم) إلى (عمر)

'
' استبدال مجموعة كلمة متفرقة بكلمة واحد
'
'
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim i As Long
    
    xFind = InputBox("أدخل هنا مجموعةالكلمات التي تريد استبدالها، مفصولة بفاصلة: ", "الكلمات المطلوب استبدالها")
    xReplace = InputBox(":أدخل الكلمة التي تريد استبدالها مكان الكلمات السابقة ", "الكلمة الجديدة")
    xFindArr = Split(xFind, "،")
    For i = 0 To UBound(xFindArr)
        
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(i)
            .Replacement.Text = xReplace
            .Format = False
            .MatchWholeWord = False
        End With
     Selection.Find.ClearFormatting       ' لو أردت حذف التمييز، فاحذف هذا السطر، والثلاثة التالية له
     Selection.Find.Replacement.ClearFormatting
     Selection.Find.Replacement.Highlight = True
     Options.DefaultHighlightColorIndex = wdBrightGreen
       Selection.Find.Execute Replace:=wdReplaceAll
    
    Next
    Application.ScreenUpdating = True
    Beep
    
End Sub

[FranklinWrights]

شكراً لكم

Speed Test

تم تعديل سبتمبر 30 بواسطه FranklinWrights