בקשת מידע | עזרה במקראו לוורד

[121244]

https://mitmachim.top/topic/27580/שיתוף-קודי-vba-להחלפת-כמה-מילים-בו-זמנית-בוורד?_=1677066819761
בקישור שלמעלה יש קוד שמחליף מספר מילים במילה , איך עושים שאם זה הצליח הוא יכתוב כמה מילים הוחלפו?

[121244]

@121244 משהו יכול לענות?

[רפרם ב"ר פפא]

@121244
אתה יכול לפני כן להפעיל מספור על המילים
ולהלן הקוד שממספר את כמה פעמים מופיע המילה ומחזיר בהודעה

Sub מספור_מופעים_בוורד()
        
            
                Selection.HomeKey Unit:=wdStory
                
                    Selection.Find.ClearFormatting
                    Selection.Find.Text = "שלום"
                    Selection.Find.MatchWildcards = True
                    Do While Selection.Find.Execute
                         I = I + 1
                    Loop

         MsgBox I
End Sub

[121244]

איך עושים שיחזור על אותה פקודה מספר פעמים

[רפרם ב"ר פפא]

@121244
אותה פקודה למספר מילים? מספור כל מילה או סה"כ מופעים של כל המילים?
הסבר!!

[דאנציג]

@רפרם-ב-ר-פפא
מה שהוא רוצה זה, שכאשר הוא מפעיל את המאקרו להחלפת מילים, שייכתב תוצאה כמה מילים הוחלפו, (כמו בחפש והחלף של וורד).
כך שכנראה הוא הסתבך כאשר הוא מחליף כמה מילים, שלא נכתב כמה מילים הוחלפו.
אולי תצליח למזג את שני המאקרו כך שבהחלפת כמה מילים, יכתב כמה מילים הוחלפו.

@121244 תקן אותי אם טעיתי.

[אוריי]

@רפרם-ב-ר-פפא
חסר לך הצהרת משתנה של i

[רפרם ב"ר פפא]

@121244
להלן קוד עם ספירה לכמה מילים וסה"כ
אם זה מה שהתכוונת

Sub החלפה_כולל_ספירה()
Dim I, P, K, L, J As Double
arrFind = Array("א", "ב", "ג")
arrReplace = Array("ד", "ה", "ו")
For I = 0 To ActiveDocument.Words.Count
For F = 0 To UBound(arrFind)
'החלפה
    Selection.Find.Text = arrFind(F)
     Selection.Find.Replacement.Text = arrReplace(F)
    Selection.Find.Wrap = wdFindContinue
    Selection.Find.Execute Replace:=wdReplaceOne
    'ספירה
    If Selection.Range = arrReplace(0) Then
    P = P + 1
   ElseIf Selection.Range = arrReplace(1) Then
   K = K + 1
    ElseIf Selection.Range = arrReplace(2) Then
    J = J + 1
  Else
End If
Selection.EndKey Unit:=wdLine
Next F
Next I
'סה''כ
L = P + K + J
'הודעה
 MsgBox arrFind(0) & " " & P & " פעמים " & arrFind(1) & " " & K & " פעמים " & arrFind(2) & " " & J & " פעמים סה''כ החלפות " & L
End Sub

[רפרם ב"ר פפא]

@אוריי
כמה שידוע לי ל " i " לא צריך הצהרת משתנה שהוא בסיסי(עובד למעשה גם בלי) והוספתי בקוד החדש

[121244]

עריכה: בקשתי מספור של מילים שהתחלפו כלומר כמה החלפות בוצעו ולא כמה מילים, וחוץ מזה פקודה שמבצעת את הפקודה האחרונה מספר פעמים

[רפרם ב"ר פפא]

@121244
המאקרו כותב כמה החלפות היו לכל מילה וכמה סה"כ החלפות בפעולה זו
מה הכוונה פקודה שעושה את הפקודה מספר פעמים הפקודה היא לעשות החלפות לכל המסמך עד שלא נשאר מה להחליף
בהצלחה!!!!!!!!!!!!!

[121244]

@רפרם-ב-ר-פפא כתב בבקשת מידע | עזרה במקראו לוורד:

המאקרו כותב כמה החלפות היו לכל מילה וכמה סה"כ החלפות בפעולה זו
מה הכוונה פקודה שעושה את הפקודה מספר פעמים הפקודה היא לעשות החלפות לכל המסמך עד שלא נשאר מה להחליף
בהצלחה!!!!!!!!!!!!!

התכוונתי החלפה של מילה במילה ויגיד כמות פעמים ולא החלפה של שני מילים במילה וכדו'