בקשה עזרה בוורד

[121244]

א. מישהו יכול לתת לי קוד לשכפול פקודת מאקרו
ב. האם משהו יכול להדריך אותי איך אני עושה בקוד הזה

Sub החלפת_כמה_מילים_למילה_אחת()
' ."פורסם על ידי מגדלים ב"מתמחים טופ
arrFind = Array(" ")


For f = 0 To UBound(arrFind)
    Selection.Find.Text = arrFind(f)
    Selection.Find.Replacement.Text = "להחליף_ב"
    Selection.Find.Wrap = wdFindContinue
    Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub

שיגיד כמה החלפות בוצעו תודה

[יוסי מחשבים]

@מגדלים

[דאנציג]

@121244
כאן יש לך את הקוד עם קצת יותר פרטים, ולכאורה פותר את שאלה ב.

[מגדלים]

@121244 הסתדרת?

[121244]

@מגדלים לא , אני צריך שיעשה לי את הפעולה אוטומט בלא שאני יקיש מה להחליף ושיגיד לי כמה החלפות בוצעו

[121244]

וחוצמיזה מה זה עוזר לי לא כתוב שם איך אני עושה שיגיד תוצאה

[מגדלים]

@121244 לא הבנתי, ולהבא אפשר לערוך את ההודעה הראשונה ע"י 3 הנקודות בצד השמאלי, אין לפתוח על כל דבר פוסט נפרד.

[121244]

@מגדלים
אני לא מצליח לערוך

שוב אני רוצה שיכתוב תוצאה מה לא מובן

[דאנציג]

@121244
מה כוונתך שיגיד תוצאה?
האם כוונתך שתעלה הודעה עם כמה פעמים בוצעה הפקודה?

[121244]

@דאנציג
בול!!!! , והאם בוצע.

[121244]

פוסט זה נמחק!

[121244]

@דאנציג יש תשובה ?

[דאנציג]

@121244 אני לא יודע כיצד עושים זאת. תשאל את המומחים, אבל תנסח את השאלה בצורה מפורטת ומכבדת...