من يتبرع ويعمل لى هذا المكرو

السلام عليكم

تفضل هذه الماكرو.

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

بالحرف s. ثم يقوم بعملية الإستبدال الكلي للحرف كما فعلت أنت عندما

سجلت الماكرو.

Sub Macro2()
Dim I As Integer
Dim J As Integer
'
' Macro2 Macro
' Macro recorded 8/1/2002 by البرج
'
    Selection.HomeKey Unit:=wdStory
    For J = 1 To ActiveDocument.Characters.Count
        Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        If Selection.Range.Text = "غ" Then I = I + 1
        Selection.MoveRight Unit:=wdCharacter, Count:=1
    Next J
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "غ" ' الحرف المراد البحث عنه
        .Replacement.Text = "s" 'الحرف المراد الإستبدال به
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    MsgBox "عدد الأحرف المستبدلة " & I
End Sub

أتمنى أن أكون قد ساعدتك.

أخى الفاضل

جزاك الله خيرا أولا

ثانيا : غرضى هو معرفة عدد الحروف التى تم استبدالها

بمعنى أنا يمكننى أن أقوم بتلك العمليه عن طريق replace فى برنامج وورد وسيعطينى فى آخر العمليه عدد مرات الإستبدال التى قام بها

فهل من الممكن أن تجعل هذا الماكرو يقوم بعد عدد الإستبدالات ويضعها لى فى مكان ما مثلا أو أن يظهرها لى فى نافذه

وشكرا مرة آخرى على إهتمامك (f) (f)

أخى الفاضل

الماكرو رائع ويعطى عدد الإستبدالات ولكن فى حالة لو قمت بإستبدال حرف انجليزى بآخر إنجليزى ولكنه لا يعطينى العدد فى حالة استبدال حرف عربى بآخر إنجليزى أو عربى بعربى

هل هنلك حل

وشكرا

الأخ شمس

السلام

لقد استبدلت الأحرف بحرف عربي وآخر انجليزي ووجدت أن الماكرو

يعمل بصوره طبيعية.

جرب مره اخرى