文章介紹word數字千分位的一次性批量添加方法，以及word千分位詳細的添加操作步驟。
筆者是一名會計從業者，在word文檔中經常與數字打交道，為了保持數字格式的統一性，需要將數字添加千分位，并保留兩位小數。
通常是需要一次性把word里的數字全部變為會計格式，即改為有千分號且后帶兩位小數點的格式。
很遺憾的是，word自身內置命令，并不能實現數字千分位的添加。常使用excel的朋友知道，excel添加千分位分隔符，保留兩位小數是很簡單容易的事情，單擊工具欄的命令即可完成。
既然內置功能無法滿足，我們可以通過自己編寫一段VBA代碼來實現word數字千分位的批量添加。
我們以word2010版為例，來介紹word數字千分位的批量添加方法。
第一，打開需要添加數字千分位的word文檔。
第二，單擊開發工具——Visual Basic，或者按ALT+F11，打開VBE編輯器。
第三，單擊插入——模塊，插入一個模塊，并在右邊的代碼窗口復制下面的代碼。
第四，關閉VBE界面，回到word文檔。單擊開發工具——宏，找到“qianfen”宏，單擊“運行”，即可完成word數字千分位的批量添加。
下面是具體的word數字千分位批量添加完整代碼，直接復制sub至end sub結束。
Sub qianfen()
‘本代碼旨在解決WORD中數據轉化為千分位
‘數據限定要求:-922,337,203,685,477.5808 到 922,337,203,685,477.5807
‘轉化結果1000以上數據以千分位計算,小數點右側保留二位小數;1000以下數據不變
Dim myRange As Range, i As Byte, myValue As Currency
On Error Resume Next
Application.ScreenUpdating = False ‘關閉屏幕更新
NextFind: Set myRange = ActiveDocument.Content ‘定義為主文檔文字部分
With myRange.Find ‘查找
.ClearFormatting ‘清除格式
.Text = "[0-9]{4,15}" ‘4到15位數據
.MatchWildcards = True ‘使用通配符
Do While .Execute ‘每次查找成功
i = 2 ‘起始值為2
‘如果是有小數點
If myRange.Next(wdCharacter, 1) = "." Then
‘進行一個未知循環
While myRange.Next(wdCharacter, i) Like "#"
i = i + 1 ‘只要是[0-9]任意數字則累加
Wend
‘重新定義RANGE對象
myRange.SetRange myRange.Start, myRange.End + i – 1
End If
myValue = VBA.Val(myRange) ‘保險起見轉換為數據,也可省略
myRange = VBA.Format(myValue, "Standard") ‘轉為千分位格式
GoTo NextFind ‘轉到指定行
Loop
End With
Application.ScreenUpdating = True ‘恢復屏幕更新
End Sub
