MS Wordの単語に数を変換する方法は何ですか?

次のことはあなたが後に何をしないのではなく、出発点

があるかもしれません

関数ConvertCurrencyToEnglish(byval mynumber)
薄暗いtemp
薄暗いドル、セント
Dem DecimalPlace、カウント
Redim Place(9)文字列として
場所(2)= "千"
場所(3)= "百万"
場所(4)=「10億」
場所(5)=「兆」
mynumber= trim(str(mynumber))
DecialPlace= Instr(mynumber、 ".")
DecimalPlace>0から
temp= left(mid(mynumber、decialplice + 1)&"00"、2)
セント= Converttens(TEMP)
mynumber= trim(左(MyNumber、DecimalPlace-1)))

の場合は終了 count= 1
mynumber<>"" ""
'最後の3桁を英語ドルに変換する
temp= converthums(right(mynumber、3))
temp<>"" "DOLLARS= TEMP&PRACE(COUNT)&ドル
len(mynumber)>3の場合
'最後の3つの衝撃の数字を削除する
mynumber= left(mynumber、len(mynumber)-3)


mynumber= "" "" ""
の場合は終了 count= count + 1
ループ
「ドルを片付ける」 ケースドルを選択する
ケース「」
ドル= "nodollars"
ケース「1」
ドル=「1ドル」
ケース
ドル=ドル&「ドル」
終了
「セントをクリーンアップする」 ケースセントを選択
ケース「」
セント= "とセントなし"
ケース「1」
セント= "と1セント"
ケース
セント= "and"&"cents"
終了
ConvertCurrencyToEnglish=ドル&セント
終了関数

---

プライベート関数Converthums(byval mynumber)
薄暗い結果
val(mynumber)= 0の場合は、関数を終了する
'先頭のゼロを数値に追加する
mynumber= right( "000"&mynumber、3)
'変換する数百人の場所を持っていますか?
左(mynumber、1)<>"0"から
result= convertDigit(左(mynumber、1))&"百"

の場合は終了 '変換するにはTens Place Digitがありますか?
mid(mynumber、2,1)<>"0"から
結果= result&converttens(mid(mynumber、2))


'そうでなければ、それからそれらの場所の桁を変換する
result= result&convertDigit(mid(mynumber、3))

の場合は終了 converthundreds=トリム(結果)
終了関数

---

プライベート関数Converttens(byval mytens)
薄暗い結果
'は10から19までの値ですか?
val(左(Mytens、1))= 1次の場合
ケースval(mytens)を選択する ケース10:結果= "TEN"
ケース11:結果= "Eleven"
ケース12:結果= "12"
ケース13:結果= "Thirteen"
ケース14:結果= "14" "
ケース15:結果= "15" "
ケース16:結果= "16" "
ケース17:結果= "17" "
ケース18:結果= "18"
ケース19:結果= "nineteen"
ケース
終了


ケースval(左(Mytens、1))を選択 ケース2:結果= "20"
ケース3:結果= "30"
ケース4:結果= "40" "
ケース5:結果= "50"
ケース6:結果= "60"
ケース7:結果= "70"
ケース8:結果= "80"
ケース9:結果= "90"
ケース
終了
'1を桁数桁に変換する
結果= result&convertDigit(right(mytens、1))

の場合は終了 converttens= result
終了関数

---

プライベート関数convertDigit(byval mydigit)
ケースval(mydigit)を選択する
ケース1:convertDigit= "ONE"
ケース2:convertDigit= "Two"
ケース3:convertDigit= "3"
ケース4:convertdigit= "four"
ケース5:convertdigit= "five"
ケース6:convertDigit= "6"
ケース7:convertdigit= "seven"
ケース8:convertdigit= "8"
ケース9:convertdigit= "nine"
PCES ELSE:CONVERTDIGIT= ""<"" 終了
終了関数

---

サブTestaboveFunction()
薄暗いmynumber
mynumber= 551521896.32
MsgBox ConvertCurrencyToEnglish(byval mynumber)
終了サブ

---

=

フィールドの場合、米ドルの金額でこれを実行できるスイッチがあります:

\* DollarText

結果を基本テキストとして表示します.Microsoft Wordは、小数点以下に「and」を挿入し、最初の2つの小数点(四捨五入)を100を超えるアラビア語の分子として表示します.結果は、を追加しない限り、小文字でフォーマットされます.
別の大文字を指定するためのフォーマットスイッチ.たとえば、{= 9.20 + 5.35\* DollarText\* Upper}は「FOURTEENAND55/100」を表示します.

ただし、これもマクロダグも提供されていても、バングラデシュの通貨に必要なことはできません.