Hoe voeg je duizendtal scheidingstekens toe aan getallen in Word-documenten?

Author: Sun Last Modified: 2025-05-29

Het toevoegen van duizendtal scheidingstekens aan getallen in een Word-document kan de leesbaarheid aanzienlijk verbeteren, vooral bij het omgaan met grote cijfers. Hoewel Microsoft Word geen directe functie heeft voor het toevoegen van duizendtal scheidingstekens, zijn er efficiënte methoden om dit te bereiken met behulp van VBA (Visual Basic for Applications) of een handig hulpmiddel zoals Kutools voor Word.

In deze handleiding zullen we je stap voor stap uitleggen hoe je duizendtal scheidingstekens kunt toevoegen aan getallen in je Word-document met behulp van zowel VBA als Kutools voor Word.

Voeg duizendtal scheidingstekens toe met VBA

Voeg duizendtal scheidingstekens toe met Kutools voor Word

Voeg duizendtal scheidingstekens toe met VBA

Het invoegen van duizendtal scheidingstekens in grote getallen kan tijdrovend zijn, vooral als je dit herhaaldelijk moet doen. Door VBA-code te gebruiken, kun je dit proces automatiseren, waardoor je simpelweg een getal kunt selecteren en op F5 kunt drukken om direct de scheidingstekens toe te voegen.

Selecteer het getal dat je wilt formatteren met duizendtal scheidingstekens, en druk vervolgens op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

Klik Invoegen > Module, kopieer en plak vervolgens de volgende code in de Module 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

Druk op de F5-toets, en de duizendtal scheidingstekens worden toegevoegd aan het geselecteerde getal.
Om scheidingstekens toe te voegen aan een ander getal, selecteer dan het nieuwe getal en ga terug naar het Module-venster en druk opnieuw op F5.

Voeg duizendtal scheidingstekens toe met Kutools voor Word

Als je scheidingstekens wilt invoegen in meerdere getallen in een selectie of het hele Word-document, kan het hulpprogramma Voeg Duizendtal Scheidingsteken Toe van Kutools voor Word dit werk uitvoeren met slechts een paar klikken.

Kutools voor Word,uitgerust met AI 🤖, biedt meer dan 100 handige functies om uw taken te vereenvoudigen.

Nu downloaden

Na het installeren van Kutools voor Word, volg deze stappen:

Om duizendtal scheidingstekens toe te voegen aan alle getallen in het hele document, selecteer geen gegevens, en klik op Kutools > Invoegen > Voeg Duizendtal Scheidingsteken Toe.
Er verschijnt een dialoogvenster waarin wordt gevraagd of je deze functie op het hele document wilt toepassen, klik op Ja.
Nu hebben alle getallen duizendtal scheidingstekens ingevoegd gekregen.

Opmerkingen:

Als je duizendtal scheidingstekens wilt toevoegen aan getallen in een specifieke selectie, selecteer dan eerst de sectie, en klik vervolgens op Kutools > Invoegen > Voeg Duizendtal Scheidingsteken Toe.
Om de duizendtal scheidingstekens te verwijderen, klik op Kutools > Verwijderen > Verwijder Alle Duizendtallen Scheidingstekens in Geselecteerde Bereiken.

Demo: Voeg duizendtal scheidingstekens toe aan getallen in een Word-document

Ontdek de Kutools / Kutools Plus tab in deze video van Kutools voor Word. Geniet van 100+ functies en permanente gratis AI-hulpprogramma's. Download nu!

Beste productiviteitstools voor kantoor

Kutools voor Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools (Formaat behouden) / Super Vertalen (Formaat behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Inhoud bewerken: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen formaat wijzigen / Rij- en kolomindeling van tabellen transponeren / Tabel naar tekst converteren...

🧹 Moeiteloos opschonen: Verwijder extra spaties / sectie-eindes / tekstvakken / hyperlinks / Voor meer verwijderopties, ga naar de groep Verwijderen...

➕ Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / selectievakjes / keuzerondjes / QR-code / barcode / meerdere afbeeldingen / Ontdek meer in de groep Invoegen...

🔍 Nauwkeurige selecties: Selecteer specifieke pagina’s / tabellen / vormen / kopalinea’s / Verbeter de navigatie met meer Selecteer -functies...

⭐ Ster-upgrades: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Wissel tussen documentvensters /11 conversietools...