Sut i ychwanegu miloedd o wahanwyr at rifau mewn dogfennau Word?

Gall ychwanegu miloedd o wahanwyr at rifau mewn dogfen Word wella darllenadwyedd yn fawr, yn enwedig wrth ymdrin â ffigurau mawr. Er nad oes gan Microsoft Word nodwedd uniongyrchol ar gyfer ychwanegu mil o wahanwyr, mae yna ddulliau effeithlon i gyflawni hyn gan ddefnyddio VBA (Visual Basic for Applications) neu offeryn defnyddiol fel Kutools ar gyfer Word.

Yn y tiwtorial hwn, byddwn yn eich tywys trwy'r camau i ychwanegu mil o wahanwyr at rifau yn eich dogfen Word gan ddefnyddio VBA a Kutools ar gyfer Word.

Ychwanegu mil o wahanwyr gyda VBA

Ychwanegu mil o wahanwyr gyda Kutools ar gyfer Word

Ychwanegu mil o wahanwyr gyda VBA

Gall gosod miloedd o wahanwyr yn niferoedd mawr fod yn ddiflas, yn enwedig os oes angen i chi ei wneud dro ar ôl tro. Trwy ddefnyddio cod VBA, gallwch awtomeiddio'r broses hon, gan ganiatáu i chi ddewis rhif a phwyso F5 i ychwanegu'r gwahanyddion ar unwaith.

1. Dewiswch y rhif rydych chi am ei fformatio gyda mil o wahanwyr, yna pwyswch Alt + F11 i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, yna copïwch a gludwch y cod canlynol i'r Modiwlau golygydd.

   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. Gwasgwch y F5 allwedd, a bydd y mil o wahanwyr yn cael eu hychwanegu at y rhif dethol.

   

4. I ychwanegu gwahanyddion at rif arall, dewiswch y rhif newydd ac yna ewch yn ôl i'r rhif Modiwlau ffenestr a'r wasg F5 unwaith eto.

Ychwanegu mil o wahanwyr gyda Kutools ar gyfer Word

Os ydych chi am fewnosod gwahanyddion i rifau lluosog mewn detholiad neu'r ddogfen Word gyfan, mae'r Ychwanegwch Mil o Wahanydd cyfleustodau Kutools am Word yn gallu datrys y swydd hon gyda dim ond ychydig o gliciau.

Ar ôl gosod Kutools am Word, dilynwch y camau hyn:

1. Ar gyfer ychwanegu mil o wahanwyr at yr holl rifau yn y ddogfen gyfan, peidiwch â dewis unrhyw ddata, a chliciwch Kutools > Mewnosod > Ychwanegwch Mil o Wahanydd.

   

2. Mae deialog yn ymddangos yn gofyn a ydych chi am gymhwyso'r swyddogaeth hon i'r ddogfen gyfan, cliciwch Ydy.

   

3. Nawr, mae miloedd o wahanyddion wedi'u gosod ym mhob rhif.

   

Demo: Ychwanegu mil o wahanwyr at rifau mewn dogfen Word

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!

🤖 Nodweddion Kutools AI: Cynhyrchu Cynnwys / Ailysgrifennu Testun / Dogfen Holi ac Ateb / Cael Atebion Cyflym / Cyfieithu dogfennau / Dogfen Bwyleg (Fformat Cadw)...

📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF...

✏ Golygu Cynnwys: Darganfod Swp ac Amnewid ar draws Ffeiliau Lluosog / Newid Maint Pob Llun / Trawsosod Rhesi Bwrdd a Cholofnau / Trosi Tabl i Testun...

🧹 Ymdrech Glân: swap i ffwrdd Mannau Ychwanegol / Toriadau Adran / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'r Dileu grŵp...

➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Lluniau Lluosog / Darganfod mwy yn y Mewnosod grŵp...

🔍 Detholiadau Manwl: pinbwynt Tudalennau Penodol / Tablau / Siapiau / Pennawd Paragraffau / Gwella llywio gyda mwy dewiswch Nodweddion...

⭐ Gwelliannau Seren: Llywiwch i Unrhyw Leoliad / Awto-Mewnosod Testun Ailadroddus / Toglo Rhwng Windows Document / 11 Trosi offer...

???? Eisiau rhoi cynnig ar y nodweddion hyn? Dadlwythwch Kutools ar gyfer Word nawr! 🚀

Lawrlwythiad Am Ddim     Prynu Nawr     Dysgwch fwy am Kutools ar gyfer Word

 

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - 100+ Offer ar gyfer Word

• 🤖 Nodweddion Kutools AI: cynhyrchu, Ailysgrifennu, Crynhowch, cyfieithu Dogfennau / Cael Atebion Cyflym / Dogfen Bwyleg (Fformat Cadw)
• 📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Trosi swp i PDF
• ✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid / Newid Maint Pob Llun
• 🧹 Ymdrech Glân: Tynnwch Fannau Ychwanegol / Dileu Toriadau Adran
• ➕ Mewnosodiadau Creadigol: Mewnosod Mil o Wahanwyr / Mewnosod Blychau Gwirio / Creu Codau QR

Lawrlwythiad Am Ddim Prynu Nawr Dysgwch fwy am Kutools