אופיס 365 המרת סכום למילים בוורד

[FullTime]

יש איזה קוד או מאקרו לזה?

מצאתי את זה
שהראשון ממיר למילים באנגלית מתוך מאגר ברשת, והשני לא הסתדרתי איתו משהו.

ומצאתי את זה , ואיני יודע אם ניתן להמירו לוורד, או אם הוא בכלל פעיל במקום אחר?...

 

[למען דעת]

יש באקסל+ ומשם אפשר להעתיק לוורד

 

[FullTime]

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

 

[moishy]

http://www.prog.co.il/showpost.php?p=403562&postcount=4

 

[FullTime]

את הקוד הזה יש לי.
השאלה שלי אם יש אפשרות לעשות את זה בוורד?

 

[moishy]

כן.

 

[FullTime]

ומה הפורצדורה?

למטרה שלי, זה לא מצדיק הרבה השקעה, כך שרק אם זה משהו קצר (בשינויי הקוד...)

 

[moishy]

יותר פשוט להשתמש בקוד זה, לא חכם במיוחד אבל עובד עד 999999.
הקוד נכתב ע"י יקיר סיטבון בימי ד"ר ויבי הרבה לפני פוג'ו.

Option Explicit

Function flngNumberberToText(lngNumber) As String

    On Error GoTo Err:

    Dim A As Integer
    Dim B As Integer
    Dim C As Integer
    Dim D As Integer
    Dim G As Integer
    Dim F As Integer
    Dim Q As String
    Dim W As String
    Dim E As String
    Dim R As String
    Dim T As String
    Dim Y As String

    Dim Aleph As String
    Dim One As String

    Aleph = "אלף"
    One = "אחד"


    If Len(lngNumber) = 1 Then

        A = Left(Right(lngNumber, 1), 1)

    ElseIf Len(lngNumber) = 2 Then

        A = Left(Right(lngNumber, 1), 1)
        B = Left(Right(lngNumber, 2), 1)

    ElseIf Len(lngNumber) = 3 Then

        A = Left(Right(lngNumber, 1), 1)
        B = Left(Right(lngNumber, 2), 1)
        C = Left(Right(lngNumber, 3), 1)

    ElseIf Len(lngNumber) = 4 Then

        A = Left(Right(lngNumber, 1), 1)
        B = Left(Right(lngNumber, 2), 1)
        C = Left(Right(lngNumber, 3), 1)
        D = Left(Right(lngNumber, 4), 1)

    ElseIf Len(lngNumber) = 5 Then

        A = Left(Right(lngNumber, 1), 1)
        B = Left(Right(lngNumber, 2), 1)
        C = Left(Right(lngNumber, 3), 1)
        D = Left(Right(lngNumber, 4), 1)
        G = Left(Right(lngNumber, 5), 1)

    ElseIf Len(lngNumber) = 6 Then

        A = Left(Right(lngNumber, 1), 1)
        B = Left(Right(lngNumber, 2), 1)
        C = Left(Right(lngNumber, 3), 1)
        D = Left(Right(lngNumber, 4), 1)
        G = Left(Right(lngNumber, 5), 1)
        F = Left(Right(lngNumber, 6), 1)

    End If

    If A = "1" Then
        Q = "אחד"
    ElseIf A = "2" Then
        Q = "שתיים"
    ElseIf A = "3" Then
        Q = "שלוש"
    ElseIf A = "4" Then
        Q = "ארבע"
    ElseIf A = "5" Then
        Q = "חמש"
    ElseIf A = "6" Then
        Q = "שש"
    ElseIf A = "7" Then
        Q = "שבע"
    ElseIf A = "8" Then
        Q = "שמונה"
    ElseIf A = "9" Then
        Q = "תשעה"

    End If

    If B = "1" Then
        W = "עשרה"
    ElseIf B = "2" Then
        W = "עשרים"
    ElseIf B = "3" Then
        W = "שלושים"
    ElseIf B = "4" Then
        W = "ארבעים"
    ElseIf B = "5" Then
        W = "חמישים"
    ElseIf B = "6" Then
        W = "שישים"
    ElseIf B = "7" Then
        W = "שבעים"
    ElseIf B = "8" Then
        W = "שמונים"
    ElseIf B = "9" Then
        W = "תשעים"

    End If

    If C = "1" Then
        E = "מאה"
    ElseIf C = "2" Then
        E = "מאתים"
    ElseIf C = "3" Then
        E = "שלוש מאות"
    ElseIf C = "4" Then
        E = "ארבע מאות"
    ElseIf C = "5" Then
        E = "חמש מאות"
    ElseIf C = "6" Then
        E = "שש מאות"
    ElseIf C = "7" Then
        E = "שבע מאות"
    ElseIf C = "8" Then
        E = "שמונה מאות"
    ElseIf C = "9" Then
        E = "תשע מאות"

    End If

    If D = "1" Then
        R = ""
    ElseIf D = "2" Then
        R = "אלפיים"
    ElseIf D = "3" Then
        R = "שלוש"
    ElseIf D = "4" Then
        R = "ארבע"
    ElseIf D = "5" Then
        R = "חמש"
    ElseIf D = "6" Then
        R = "שש"
    ElseIf D = "7" Then
        R = "שבע"
    ElseIf D = "8" Then
        R = "שמונה"
    ElseIf D = "9" Then
        R = "תשע"

    End If

    If G = "1" Then
        T = "עשרה"
    ElseIf G = "2" Then
        T = "עשרים"
    ElseIf G = "3" Then
        T = "שלושים"
    ElseIf G = "4" Then
        T = "ארבעים"
    ElseIf G = "5" Then
        T = "חמישים"
    ElseIf G = "6" Then
        T = "שישים"
    ElseIf G = "7" Then
        T = "שבעים"
    ElseIf G = "8" Then
        T = "שמונים"
    ElseIf G = "9" Then
        T = "תשעים"

    End If

    If F = "1" Then
        Y = "מאה"
    ElseIf F = "2" Then
        Y = "מאתיים"
    ElseIf F = "3" Then
        Y = "שלוש מאות"
    ElseIf F = "4" Then
        Y = "ארבע מאות"
    ElseIf F = "5" Then
        Y = "חמש מאות"
    ElseIf F = "6" Then
        Y = "שש מאות"
    ElseIf F = "7" Then
        Y = "שבע מאות"
    ElseIf F = "8" Then
        Y = "שמונה מאות"
    ElseIf F = "9" Then
        Y = "תשעה מאות"

    End If

    If Len(lngNumber) = 1 Then

        flngNumberberToText = Q

    ElseIf Len(lngNumber) = 2 Then

        If B = "1" Then
            flngNumberberToText = Q & " " & W
        Else
            flngNumberberToText = W & " " & "ו" & Q
        End If

    ElseIf Len(lngNumber) = 3 Then

        If B = "1" Then
            flngNumberberToText = E & " " & "ו" & Q & " " & W
        Else
            flngNumberberToText = E & " " & W & " " & "ו" & Q
        End If

    ElseIf Len(lngNumber) = 4 Then

        If D = "1" Then
            If B = "1" Then
                flngNumberberToText = Aleph & " " & E & " " & "ו" & Q & " " & W
            Else
                flngNumberberToText = Aleph & " " & E & " " & W & " " & "ו" & Q
            End If

        ElseIf D = "2" Then

            If B = "1" Then
                flngNumberberToText = R & " " & E & " " & "ו" & Q & " " & W
            Else
                flngNumberberToText = R & " " & E & " " & W & " " & "ו" & Q
            End If

        Else

            If B = "1" Then
                flngNumberberToText = R & " " & Aleph & " " & E & " " & "ו" & Q & " " & W
            Else
                flngNumberberToText = R & " " & Aleph & " " & E & " " & W & " " & "ו" & Q
            End If

        End If

    ElseIf Len(lngNumber) = 5 Then

        If G = "1" Then

            If B = "1" Then
                flngNumberberToText = One & " " & T & " " & Aleph & " " & E & " " & "ו" & Q & " " & W
            Else
                flngNumberberToText = One & " " & T & " " & Aleph & " " & E & " " & W & " " & "ו" & Q
            End If

        Else

            If B = "1" Then
                flngNumberberToText = T & " ו" & R & " " & Aleph & " " & E & " " & "ו" & Q & " " & W
            Else
                flngNumberberToText = T & " ו" & R & " " & Aleph & " " & E & " " & W & " " & "ו" & Q
            End If

        End If

    ElseIf Len(lngNumber) = 6 Then

        If G = "1" Then

            If B = "1" Then
                flngNumberberToText = Y & " ו" & One & " " & T & " " & Aleph & " " & E & " " & "ו" & Q & " " & W
            Else
                flngNumberberToText = Y & " ו" & One & " " & T & " " & Aleph & " " & E & " " & W & " " & "ו" & Q
            End If

        Else

            If B = "1" Then
                flngNumberberToText = Y & " ו" & T & " ו" & R & " " & Aleph & " " & E & " " & "ו" & Q & " " & W
            Else
                flngNumberberToText = Y & " ו" & T & " ו" & R & " " & Aleph & " " & E & " " & W & " " & "ו" & Q
            End If

        End If

    End If
Err:

End Function

 

[בר בי רב]

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

 

[Yisrael]

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

אני מאוד מקווה שהם כבר מצאו פתרון לבעיה ולא דופקים את הראש בקיר שנתיים וחצי ברציפות...
(בשביל מה כל ההקפצות הללו??)