Kuinka lisätä tuhansia erottimia numeroihin Word-asiakirjoissa?

Tuhansien erottimien lisääminen numeroihin Word-asiakirjassa voi parantaa huomattavasti luettavuutta, varsinkin kun käsitellään suuria lukuja. Vaikka Microsoft Wordissa ei ole suoraa ominaisuutta tuhansien erottimien lisäämiseen, on olemassa tehokkaita menetelmiä tämän saavuttamiseksi käyttämällä VBA:ta (Visual Basic for Applications) tai kätevää työkalua, kuten Kutools for Word.

Tässä opetusohjelmassa opastamme sinua vaiheissa, joilla voit lisätä tuhansia erottimia Word-asiakirjasi numeroihin käyttämällä sekä VBA:ta että Kutools for Wordia.

Lisää tuhat erotinta VBA:lla

Lisää tuhat erotinta Kutools for Wordin avulla

Lisää tuhat erotinta VBA:lla

Tuhansien erottimien lisääminen suuriin numeroihin voi olla työlästä, varsinkin jos sinun on tehtävä se toistuvasti. Käyttämällä VBA-koodia voit automatisoida tämän prosessin, jolloin voit yksinkertaisesti valita numeron ja painaa F5 lisätäksesi erottimet välittömästi.

1. Valitse numero, jonka haluat muotoilla tuhansien erottimien avulla, ja paina sitten Alt + F11 avaa Microsoft Visual Basic for Applications ikkunassa.
2. Napauta liite > Moduulit, kopioi ja liitä seuraava koodi tiedostoon Moduulit editori.

   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. paina F5 -näppäintä, ja tuhannen erottimet lisätään valittuun numeroon.

   

4. Jos haluat lisätä erottimet toiseen numeroon, valitse uusi numero ja palaa sitten numeroon Moduulit ikkuna ja paina F5 uudelleen.

Lisää tuhat erotinta Kutools for Wordin avulla

Jos haluat lisätä erottimet useisiin numeroihin valinnassa tai koko Word-asiakirjassa, Lisää tuhaterotin hyödyllisyys Kutools for Word voi ratkaista tämän työn muutamalla napsautuksella.

Asennuksen jälkeen Kutools for Word, toimi seuraavasti:

1. Jos haluat lisätä tuhansia erottimia kaikkiin koko asiakirjan lukuihin, älä valitse mitään tietoja ja napsauta Kutools > liite > Lisää tuhaterotin.

   

2. Näyttöön tulee valintaikkuna, jossa kysytään, haluatko käyttää tätä toimintoa koko asiakirjassa, napsauta Kyllä.

   

3. Nyt kaikkiin numeroihin on lisätty tuhat erotinta.

   

Demo: Lisää tuhat erotinta Word-asiakirjan numeroihin

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!

🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...

📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...

✏ Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...

🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...

➕ Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...

🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...

⭐ Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...

???? Haluatko kokeilla näitä ominaisuuksia? Lataa Kutools for Word nyt! 🚀

Ilmainen lataus     Osta nyt     Lue lisää Kutools for Wordista

 

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Yli 100 Wordin työkalua

• 🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super puolalainen / Super käännös / AI editointi / AI Proofread
• 📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Erämuunnos PDF-muotoon
• ✏ Sisältö Editointi: Erä Etsi ja korvaa / Muuta kaikkien kuvien kokoa
• 🧹 Vaivaton puhdistus: Poista ylimääräiset välilyönnit / Poista osion katkokset
• ➕ Luovat lisäosat: Aseta Tuhat erottimet / Lisää valintaruudut / Luo QR-koodeja

Ilmainen lataus Osta nyt Lue lisää Kutoolsista