Wie fügt man Tausendertrennzeichen zu Zahlen in Word-Dokumenten hinzu?
Das Hinzufügen von Tausendertrennzeichen zu Zahlen in einem Word-Dokument kann die Lesbarkeit erheblich verbessern, insbesondere bei der Arbeit mit großen Zahlen. Während Microsoft Word keine direkte Funktion zum Hinzufügen von Tausendertrennzeichen bietet, gibt es effiziente Methoden, dies mit VBA (Visual Basic for Applications) oder einem praktischen Tool wie Kutools für Word zu erreichen.
In diesem Tutorial führen wir Sie durch die Schritte zum Hinzufügen von Tausendertrennzeichen zu Zahlen in Ihrem Word-Dokument sowohl mit VBA als auch mit Kutools für Word.
Tausendertrennzeichen mit VBA hinzufügen
Tausendertrennzeichen mit Kutools für Word hinzufügen
Tausendertrennzeichen mit VBA hinzufügen
Das Einfügen von Tausendertrennzeichen in große Zahlen kann mühsam sein, besonders wenn Sie dies wiederholt tun müssen. Durch die Verwendung von VBA-Code können Sie diesen Prozess automatisieren, sodass Sie einfach eine Zahl auswählen und F5 drücken können, um die Trennzeichen sofort hinzuzufügen.
- Wählen Sie die Zahl aus, die Sie mit Tausendertrennzeichen formatieren möchten, und drücken Sie dann Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
- Klicken Sie auf Einfügen > Modul, und kopieren Sie den folgenden Code in das Modul Editor.
Sub InsertThousandSeparators() Dim selectedText As String Dim formattedText As String Dim decimalPos As Integer Dim wholePart As String Dim decimalPart As String Dim temp As String Dim i As Integer Dim charCount As Integer Dim trailingSpace As String Dim trailingParagraphMark As String If Selection.Type <> wdSelectionIP Then selectedText = Selection.Text trailingSpace = "" trailingParagraphMark = "" If Right(selectedText, 1) = " " Then trailingSpace = " " selectedText = Trim(selectedText) End If If Right(selectedText, 1) = Chr(13) Then trailingParagraphMark = Chr(13) selectedText = Left(selectedText, Len(selectedText) - 1) End If If IsNumeric(selectedText) Then decimalPos = InStr(1, selectedText, ".") If decimalPos > 0 Then wholePart = Left(selectedText, decimalPos - 1) decimalPart = Mid(selectedText, decimalPos + 1) Else wholePart = selectedText decimalPart = "" End If wholePart = Replace(wholePart, ",", "") temp = "" charCount = 0 For i = Len(wholePart) To 1 Step -1 temp = Mid(wholePart, i, 1) & temp charCount = charCount + 1 If charCount Mod 3 = 0 And i > 1 Then temp = "," & temp End If Next i wholePart = temp If decimalPart <> "" Then formattedText = wholePart & "." & decimalPart Else formattedText = wholePart End If Selection.Text = formattedText & trailingSpace & trailingParagraphMark Else MsgBox "Please select a valid number." End If Else MsgBox "Please select a number first." End If End Sub
- Drücken Sie die F5-Taste, und die Tausendertrennzeichen werden zur ausgewählten Zahl hinzugefügt.
- Um Trennzeichen zu einer anderen Zahl hinzuzufügen, wählen Sie einfach die neue Zahl aus und gehen Sie zurück zum Modulfenster und drücken Sie erneut F5.
Tausendertrennzeichen mit Kutools für Word hinzufügen
Wenn Sie Trennzeichen in mehrere Zahlen in einer Auswahl oder im gesamten Word-Dokument einfügen möchten, kann das Hilfsprogramm Tausendertrennzeichen hinzufügen von Kutools für Word diese Aufgabe mit nur wenigen Klicks lösen.
Nach der Installation von Kutools für Word folgen Sie diesen Schritten:
- Um Tausendertrennzeichen zu allen Zahlen im gesamten Dokument hinzuzufügen, wählen Sie keine Daten aus, und klicken Sie auf Kutools > Einfügen > Tausendertrennzeichen hinzufügen.
- Ein Dialogfenster erscheint, das fragt, ob Sie diese Funktion auf das gesamte Dokument anwenden möchten, klicken Sie auf Ja.
- Jetzt wurden allen Zahlen Tausendertrennzeichen hinzugefügt.
Hinweise:
- Wenn Sie Tausendertrennzeichen zu Zahlen in einer bestimmten Auswahl hinzufügen möchten, wählen Sie zuerst den Abschnitt aus und klicken Sie dann auf Kutools > Einfügen > Tausendertrennzeichen hinzufügen.
- Um die Tausendertrennzeichen zu entfernen, klicken Sie auf Kutools > Entfernen > Alle Tausendertrennzeichen im ausgewählten Bereich entfernen.
Demo: Tausendertrennzeichen zu Zahlen in einem Word-Dokument hinzufügen
Entdecken Sie die Kutools / Kutools Plus-Registerkarte in diesem Video von Kutools for Word. Nutzen Sie 100+ Funktionen und dauerhaft kostenlose KI-Dienstprogramme. Laden Sie es jetzt herunter!
Beste Büroproduktivitätswerkzeuge
Kutools für Word - Verbessern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!
🤖 Kutools AI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen...
📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise in PDF konvertieren...
✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Zeilen und Spalten der Tabelle transponieren / Tabelle in Text umwandeln...
🧹 Müheloses Reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfelder / Hyperlinks / Für weitere Entfernungstools gehen Sie zur Entfernen-Gruppe...
➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie mehr in der Einfügen-Gruppe...
🔍 Präzise Auswahlen: Bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit mehr Auswahlfunktionen ...
⭐ Sterneverbesserungen: Zu jedem Standort navigieren / Automatisches Einfügen von wiederholtem Text / Wechsel zwischen Dokumentfenstern /11 Konvertierungswerkzeuge...

Beste Büroproduktivitätswerkzeuge
Kutools für Word - 100+ Werkzeuge für Word
- 🤖 Kutools AI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren / Super Übersetzen / KI-Redaktion / KI Korrekturlesen
- 📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Stapelweise in PDF konvertieren
- ✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen / Alle Bilder skalieren
- 🧹 Müheloses Reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche entfernen
- ➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen einfügen / QR-Codes erstellen