Hoe voegt u een scheidingsteken voor duizendtallen toe aan getallen in Word-documenten?

AuteurSun Wijzigingsdatum2024-09-20

Het toevoegen van een duizendtalscheidingsteken aan getallen in een Word-document kan de leesbaarheid aanzienlijk verbeteren, vooral bij grote getallen. Hoewel Microsoft Word geen ingebouwde functie biedt om automatisch een duizendtalscheidingsteken toe te voegen, zijn er efficiënte methoden om dit alsnog voor elkaar te krijgen—bijvoorbeeld met VBA (Visual Basic for Applications) of een handige tool zoals Kutools voor Word.

In deze handleiding begeleiden we u stap voor stap bij het toevoegen van duizendtalscheidingstekens aan getallen in uw Word-document, zowel met VBA als met Kutools voor Word.

Voeg duizendtal scheidingsteken toe met VBA

Voeg duizendtal scheidingsteken toe met Kutools voor Word

Voeg duizendtal scheidingsteken toe met VBA

Het handmatig invoeren van duizendtalscheidingstekens in grote getallen is tijdrovend, zeker als u dit vaker moet doen. Met VBA-code automatiseert u dit proces: selecteer eenvoudig een getal en druk op F5 om direct de scheidingstekens toe te voegen.

Selecteer het getal dat u met duizendtalscheidingstekens wilt opmaken en druk vervolgens op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

Klik op 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 toets F5, en de duizendtalscheidingstekens worden toegevoegd aan het geselecteerde getal.
Om scheidingstekens toe te voegen aan een ander getal, selecteert u eenvoudig het nieuwe getal, gaat u terug naar het Module-venster en drukt u opnieuw op F5.

Voeg duizendtal scheidingsteken toe met Kutools voor Word

Als u scheidingstekens wilt invoegen bij meerdere getallen in een selectie of in het hele Word-document, lost de functie Voeg duizendtalscheidingsteken toe van Kutools voor Word deze taak op met slechts enkele klikken.

Na installatie van Kutools voor Word, volgt u deze stappen:

Om Voeg duizendtal scheidingsteken toe toe te passen op alle getallen in het hele document, selecteert u geen gegevens en klikt u op Kutools>Invoegen>Voeg duizendtal scheidingsteken toe.
Er verschijnt een dialoogvenster met de vraag of u deze functie wilt toepassen op Het hele document; klik op Ja.
Alle getallen zijn nu voorzien van duizendtalscheidingstekens.

Opmerkingen:

Als u Voeg duizendtal scheidingsteken toe wilt toepassen op getallen in een specifieke selectie, selecteert u eerst het gedeelte en klikt u vervolgens op Kutools>Invoegen>Voeg duizendtal scheidingsteken toe.
Om de duizendtalscheidingstekens te verwijderen, klikt u op Kutools>Verwijderen>Verwijder Alle Duizendtallen Scheidingstekens in Geselecteerd Bereik.

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

Kutools voor Word breidt Microsoft Word uit met een breed scala aan praktische hulpmiddelen, zodat u tijd bespaart en repetitief werk bij het dagelijks bewerken van documenten vermijdt.

Downloaden Meer informatie

Beste kantoorproductiviteitstools

Kutools voor Word – Verrijk uw Word-ervaring met meer dan 100 opmerkelijke functies!

🤖KUTOOLS AI-functies: AI-assistent / Realtime-assistent / Super Polish (opmaak behouden) / Super Vertalen (opmaak behouden) / AI-redactie / AI-proeflezen...

📘Documentbeheer: Pagina's splitsen, documenten samenvoegen, selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML…), batchconversie naar PDF…

✏Inhoudsbewerking: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen herschalen / Tabel transponeren: rijen en kolommen omwisselen / Tabel naar tekst converteren...

🧹Moeiteloos opschonen: Veeg overbodige spaties, sectie-einden, tekstvakken en hyperlinks weg. Ga voor nog meer verwijderopties naar de Verwijderen-groep...

➕Creatieve invoegingen: Voeg duizendtalscheidingstekens, selectievakjes, keuzerondjes, QR-codes, streepjescodes en meerdere afbeeldingen in. Ontdek meer in de Invoegen-groep...

🔍Precieze selecties: Selecteer nauwkeurig specifieke pagina's, tabellen, vormen en kopteksten. Verbeter je navigatie met de meer-functies Selecteren…

⭐Sterverhogingen: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Schakelen tussen documentvensters / 11 conversietools Conversie...

🌍Ondersteunt 40+ talen: Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

Gratis downloaden Nu kopen Meer informatie

Office Tab– Brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

Schakel tabbladbewerking en -lezen in in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
Open en maak meerdere documenten aan in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
Verhoog uw productiviteit met 50 % en bespaar dagelijks honderden muisklikken!

Gratis downloaden Nu kopen Meer informatie

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

Bevat Office Tab Pro·Kutools voor Excel·Kutools voor Outlook·Kutools voor Word·Kutools for PowerPoint

📦 Ontvang alle 5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Tijd besparen en verhoog direct uw productiviteit

⬇️ Nu downloaden 🎁 Het volledige pakket kopen 📖 Meer informatie

Beste kantoorproductiviteitstools

Kutools voor Word– 100+ Tools voor Word

🤖KUTOOLS AI-functies:AI Assistent/Realtime Assistent/Super Polish/Super Vertalen/AI Redactie/AI Proeflezen
📘Documentbeheersing:Pagina's splitsen/Documenten samenvoegen/Batchconversie naar PDF
✏Inhoudsbewerking:Batch Zoeken en Vervangen/Alle afbeeldingen herschalen
🧹Moeiteloos opschonen:Overbodige spaties verwijderen/Sectie-einde verwijderen
➕Creatieve invoegingen:Duizendtalscheidingstekens invoegen/Selectievakje invoegen/QR-code maken
🌍Ondersteunt 40+ talen: Kutools spreekt uw taal – met ondersteuning voor meer dan 40 talen!

Gratis downloaden Nu kopen Meer informatie over Kutools