Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

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

Author Sun Last modified

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

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.

  1. 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.
  2. 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
  3. Druk op de F5-toets, en de duizendtal scheidingstekens worden toegevoegd aan het geselecteerde getal.

    Thousand separators are inserted into the selected number

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

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

  1. 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.
    Add Thousand Separator option on the Kutools tab on the ribbon
  2. Er verschijnt een dialoogvenster waarin wordt gevraagd of je deze functie op het hele document wilt toepassen, klik op Ja.
    Confirmation dialog saying 'Do you want to add thousand separators to all numbers in the whole document?'
  3. Nu hebben alle getallen duizendtal scheidingstekens ingevoegd gekregen.
    Thousand separators are inserted into all numbers

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.
    Thousand separators are inserted into numbers in the selected range
  • Om de duizendtal scheidingstekens te verwijderen, klik op Kutools > Verwijderen > Verwijder Alle Duizendtallen Scheidingstekens in Geselecteerde Bereiken.
    Remove Thousand Separators option on the Kutools tab on the ribbon

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 Office-productiviteitstools

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

🤖 Kutools AI Features: AI Assistent / Realtime Assistent / Super Polish (Opmaak behouden) / Super Vertalen (Opmaak behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheer: Pagina's opsplitsen / Documenten samenvoegen / Oplossing exporteren in diverse opmaak (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Tekst bewerken: Batch Zoeken en Vervangen in meerdere Bestanden / Formaat Wijzigen van alle Afbeeldingen / Tabel Transponeren (Rijen en Kolommen) / Tabel naar tekst converteren...

🧹 Moeiteloos schoonmaken: Veeg extra Spaties weg / Sectie-einden / Tekstvak / Hyperlinks / Voor meer Verwijderen-tools, bezoek de Verwijderen-groep...

➕ Creatieve invoegingen: Duizendtalscheidingsteken invoegen / Selectievakje / Keuzerondje / QR-code / Barcode / Meerdere Afbeeldingen / Ontdek meer bij de Invoegen-groep...

🔍 Precieze Selecties: Specifieke pagina's selecteren / Referentietabel / Vorm / Kopalinea / Verbeter navigatie met meer Selecteren -functies...

⭐ Ster-upgrades: Navigeer naar elk Bereik / Herhaal tekst automatisch invoegen / Wissel tussen Document-vensters /11 Conversie-tools...

🌍 Ondersteunt meer dan40 Talen: Gebruik Kutools in uw gewenste taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 anderen!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Wilt u deze functies proberen? Download Kutools for Word nu! 🚀
 

✨ Kutools for Office – Één installatie, vijf krachtige tools!

Inclusief Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Krijg alle5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Bespaar tijd en verhoog direct uw productiviteit

Beste Office-productiviteitstools

Kutools for Word – 100+ tools voor Word

Gratis downloaden Nu kopen Lees meer over Kutools