Zum Hauptinhalt springen

Wie fügt man Tausendertrennzeichen zu Zahlen in Word-Dokumenten hinzu?

Author: Sun Last Modified: 2025-05-28

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 good idea


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.

  1. 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.
  2. 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
  3. Drücken Sie die F5-Taste, und die Tausendertrennzeichen werden zur ausgewählten Zahl hinzugefügt.

    Thousand separators are inserted into the selected number

  4. 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.

Kutools für Word,ausgestattet mit KI 🤖, bietet über 100 praktische Funktionen, um Ihre Aufgaben zu vereinfachen.

Nach der Installation von Kutools für Word folgen Sie diesen Schritten:

  1. 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.
    Add Thousand Separator option on the Kutools tab on the ribbon
  2. Ein Dialogfenster erscheint, das fragt, ob Sie diese Funktion auf das gesamte Dokument anwenden möchten, klicken Sie auf Ja.
    Confirmation dialog saying 'Do you want to add thousand separators to all numbers in the whole document?'
  3. Jetzt wurden allen Zahlen Tausendertrennzeichen hinzugefügt.
    Thousand separators are inserted into all numbers

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.
    Thousand separators are inserted into numbers in the selected range
  • Um die Tausendertrennzeichen zu entfernen, klicken Sie auf Kutools > Entfernen > Alle Tausendertrennzeichen im ausgewählten Bereich entfernen.
    Remove Thousand Separators option on the Kutools tab on the ribbon

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...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Laden Sie Kutools für Word jetzt herunter! 🚀