Zahlen, um Text, Take Three

 In früheren Ausgaben von Word Tipps haben Sie gelernt, wie Sie einen Makro verwenden, um Zahlen in Wörter umzuwandeln. Zum Beispiel, können Sie 123 bis 123 zu konvertieren. Die früheren Inkarnationen dieser Makro-Zahlen wurden auf weniger als eine Million begrenzt. In dieser Version wird die ante tausendmal steigerte - diese Version der VBA-Makros Nummern werden erfolgreich in 999.999.999 zu konvertieren.

 Sub BigCardText
 Als Schnur Schwaches sDigits
 Als Schnur Schwaches sBigStuff

 sBigStuff = ""

 "Geben Sie die vollständige Nummer ein, wo die Einfügemarke befindet
 : = WdWord, Count: = 1, Extend: = wdMove
 : = WdWord, Count: = 1, Extend: = wdExtend

 "Setzen Sie die Zahlen in einer Variablen
 sDigits = Trim

 Wenn Val> 999 999 Dan
 Wenn Val <= 999 999 999 Dan
 sBigStuff = Trim (Int (Str (Val / 1000000)))
 "Erstellen Sie ein Feld mit großen Ziffern und
 "Die Karte Textformat flag
 : =, _
 Typ: = wdFieldEmpty, Text: = "=" + sBigStuff + "\ * Card Text" _
 Formatierung beibehalten: = True

 "Wählen Sie das Feld und kopieren Sie sie
 : = WdWord, Count: = 1, Extend: = wdExtend
 sBigStuff = & "Millionen"
 sDigits = Rechts
 End If
 End If
 Wenn Val
 Sie müssen verstehen, dass das Makro zu verwenden, ist alles, was Sie tun müssen setzen Sie die Einfügemarke überall in der Nummer, die Sie konvertieren möchten. Sie müssen jedoch sicherstellen, dass die Zahl enthält irrelevante Informationen, wie beispielsweise Dollarzeichen oder Kommas. Wenn Sie BigCardText gehen, überprüfen Sie den Makro, um zu sehen, wenn die gewählte Nummer ist mehr als eine Million. Als die ersten Arbeiten im Bereich über einer Million, Konvertieren Wörtern. Dann wird der Wert von weniger als einer Million umgewandelt. Die endgültige und vollständige Text wird zusammen und klebte wieder in dem Dokument, gebrauchsfertig werden.

 Word-Tipps ist Ihre Quelle für kosteneffektive Microsoft Word Training. Dieser Tipp bezieht sich auf Microsoft Word 97, 2000, 2002 und 2003.

(0)
(0)
Bemerkungen - 0
Keine Kommentare

Fügen Sie einen Kommentar

smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile
Zeichen übrig: 3000
captcha