Zum Hauptinhalt springen

Kutools für Office — Eine Suite. Fünf Tools. Erledigen Sie mehr.

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

Author Sun Last modified

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 for 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!

Die besten Produktivitätstools für das Büro

Kutools for Word – Erweitern Sie Ihr Word-Erlebnis mit mehr als 100 bemerkenswerten Funktionen!

🤖 Kutools AI Features: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen ...

📘 Dokument beherrschen: Seiten aufteilen / Dokumente zusammenführen / Bereich in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML ...) / Stapelweise Konvertierung zu PDF ...

✏ Text bearbeiten: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Tabelle transponieren (Zeilen und Spalten) / Tabelle in Text umwandeln ...

🧹 Mühelos reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfeld / Verknüpfungen / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen ...

➕ Kreative Einfügen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfeld / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen in der Gruppe Einfügen ...

🔍 Präzise Auswahl: Einzelne Seiten, Referenztabellen, Form, Überschriftenabsatz gezielt festlegen / Navigation mit weiteren Auswählen -Features verbessern ...

⭐ Besondere Erweiterungen: Zu jedem Bereich navigieren / Automatisches Einfügen von wiederkehrendem Text / Zwischen Dokument-Fenster umschalten /11 Konvertierungs-Werkzeuge ...

🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Jetzt Kutools for Word herunterladen! 🚀
 

✨ Kutools for Office – Eine Installation, fünf leistungsstarke Tools!

Enthält Office Tab Pro · Kutools für Excel · Kutools für Outlook · Kutools for Word · Kutools for PowerPoint

📦 Alle5 Tools in einer Suite erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Sofort Zeit sparen und Produktivität steigern

Die besten Produktivitätstools für das Büro

Kutools for Word – 100+ Tools für Word

Kostenloser Download Jetzt kaufen Mehr erfahren über Kutools