בקשת מידע | אני לא מסתדר עם המאקרו להחלפת מספרים לאותיות, למה זה לא עובד?

[ששמעון]

תגובה: ב"החלפה" בוורד להמיר ממספרים לאותיות ?

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

@מגדלים [וואס הערצעך?]

[dmp]

@ששמעון תמחק את השורה הראשונה במאקרו SUB מספרים לאותיות()

[ששמעון]

@dmp לא עוזר.
בא נגיד אני פותח מאקרו חדש ומכניס את הטקסט הבא זה טוב?

Sub מספרים_לאותיות()
'
' Macro4 Macro
'
'
start:
With Selection.Find
.ClearFormatting
.Execute findText:="[0-9]{1,}", MatchWildcards:=True, Format:=False, Wrap:=wdFindContinue
If .Found = True Then
S = ""

MyArray = Array(400, 300, 200, 100, 90, 80, 70, 60, 50, 40, 30, 20, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
MyaArray = Array("ת", "ש", "ר", "ק", "צ", "פ", "ע", "ס", "נ", "מ", "ל", "כ", _
"י", "ט", "ח", "ז", "ו", "ה", "ד", "ג", "ב", "א")
V = Val(Selection)
Do While V > 0
If V = 15 Or V = 16 Then
S = S & "ט"
V = V - 9
End If
For i = 0 To UBound(MyArray)
If V >= MyArray(i) Then
S = S & MyaArray(i)
V = V - MyArray(i)
Exit For
End If
Next i
Loop

If S = "רצח" Then S = "רחצ"
If S = "רע" Then S = "ער"
If S = "רעב" Then S = "ערב"
If S = "שד" Then S = "דש"
If S = "שמד" Then S = "שדמ"
If S = "תשמד" Then S = "תדשם"
If S = "רעה" Then S = "ערה"
If S = "רעד" Then S = "עדר"

If Len(S) = 1 Then
S = S & "'"
Else
S = Left(S, (Len(S) - 1)) & Chr(34) & Right(S, 1)
End If

Selection = S

GoTo start
End If
End With