? Formatieren von Text als Währung ist ein schwieriges Unterfangen in Microsoft Word 2007. Im Gegensatz zu Excel , Word nicht verfügen Zahlenformatierung (außer in Formeln ) . Es gibt jedoch ein paar mögliche Ansätze zur Formatierung numerischer Text als US-Dollar- Werte . Brute Force

einfach genug , geben die komplette Dollar-Betrag , komplett mit dem Dollarzeichen , Komma und zwei Stellen nach dem Komma . Wenn Sie nur gelegentlich kleine Tabellen erstellen mit nur wenigen Werten , ist dies die einfachste und schnellste Möglichkeit .
Erstellen eines Makros

Hier ist, wo es geht tricky . Schreiben Makros erfordert ein wenig Mühe , aber wenn das Makro erstellt wird, werden Sie in der Lage, schnell zu formatieren große Teile einer Tabelle mit dem Klick auf eine Schaltfläche oder Tastenkombination .

Aktivieren Sie die Registerkarte Entwickler , indem Sie die Office-Schaltfläche und dann auf die " Word-Optionen "-Button am unteren Rand des Menüs . In der Beliebte Abschnitt , aktivieren Sie das Kontrollkästchen neben "Show Registerkarte Entwicklertools in der Multifunktionsleiste " , so gibt es ein Häkchen in das Feld ein. Klicken Sie auf " OK".

Auf der Registerkarte Entwicklertools ( zwischen View und Add-Ins ), klicken Sie auf die Schaltfläche Makros in der Gruppe Code auf Makros , die Fenster zu öffnen. Geben Sie " Format_Currency " für den Makro-Namen . Wählen Sie " Normal.dotm (globale Vorlage ) " aus dem " Makros in "-Menü ( dies wird Ihr Makro in jedem Dokument, das Sie erstellen oder bearbeiten ) . Klicken Sie auf " Erstellen". Visual Basic-Editor wird geöffnet. Ersetzen Sie den Text in den Editor mit dem folgenden Code ( mit der Endung " End Sub " ) : .

Sub Format_Currency () '' Format Zahlen in ausgewählten Tabellenzellen als US-Währung ' Dim TCell Wie Word.CellDim TRANGE wie RangeIf Selection.Type = wdSelectionIP Or Not Selection.Information ( wdWithInTable ) ThenMsgBox "Wählen Sie Zahlenwerte in Tabellen -Zellen , bevor Sie dieses Makro. " , "Fehler " Exit SubEnd IFFOR Jeder TCell in Selection.CellsSet TRANGE = TCell . RangetRange.End = tRange.End - 1Mit tRangeIf IsNumeric ( TRANGE ) Then.Text = FormatCurrency (Expression : = Text . ) Ende IFON Error GoTo SkipSkip : Ende WithNext tCellEnd Sub