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
绛旓細鍦Word涓璁剧疆鏁板瓧涓鍗冨垎浣鏍煎紡锛屽彲浠ラ氳繃浠ヤ笅姝ラ瀹炵幇锛氭柟娉曚竴锛氬埄鐢ㄢ滃叕寮忊濆璇濇璁剧疆鍗冨垎浣 1. 鐐瑰嚮銆愯嚜瀹氫箟蹇熻闂伐鍏锋爮銆戔斻愬叾浠栧懡浠ゃ戙2. 鍦ㄢ滀粠涓嬩綅缃夋嫨鍛戒护鈥濅笅鎷夊垪琛ㄦ涓夋嫨鈥滄墍鏈夊懡浠も濋夐」锛屽湪涓嬫柟鐨勫垪琛ㄦ涓夋嫨鈥滃叕寮忊濄3. 鍗曞嚮鈥滄坊鍔犫濃斺滅‘瀹氣濇寜閽4. 榧犳爣瀹氫綅鍦ㄦ暟瀛楀鈥...
绛旓細鍦Word鏂囨。涓姞鍗冨垎浣绗︼紝鍙互閫氳繃浠ヤ笅涓や釜姝ラ瀹炵幇锛1. 棣栧厛锛屽湪Word鏂囨。涓変腑瑕佸姞鍗冨垎浣嶇鐨鏁板瓧;2.鐒跺悗鍦ㄥ脊鍑鸿彍鍗曢噷锛屽崟鍑烩滄牸寮忊濓紝鍐嶅崟鍑烩滄暟瀛椻濓紝鍦ㄥ叾涓夋嫨鈥滃崈浣嶅垎闅旂鈥濓紝鐐瑰嚮纭畾锛屽嵆鍙皢鏁板瓧鍔犱笂鍗冨垎浣嶇銆
绛旓細word涓涓嶈兘鑷姩璁剧疆鏁板瓧鐨勫崈浣嶅垎闅旂锛屽彧鑳芥墜鍔ㄨ緭鍏ワ紙鍗筹紝鑻辨枃鏍囩偣鐨勯楀彿锛夈傚彉閫氱殑鍋氭硶鏄厛鍦╡xcel琛ㄦ牸涓緭鍏ヨ缃簡鍗冨垎浣嶇殑鏁板瓧锛屽啀绮樿创鍒皐ord鏂囨。涓紝鍒嗕负涓ゆ锛屽叿浣撳涓嬶細绗竴姝ワ細鏂板缓excel琛ㄦ牸锛岄変腑鍗曞厓鏍煎彸閿-璁剧疆鍗曞厓鏍兼牸寮忥紝鎵撳紑璁剧疆鍗曞厓鏍兼牸寮忓璇濇銆傜浜屾锛氣滃垎绫烩濊涓衡鏁板鈥濓紝鍕鹃夆...
绛旓細2. 鎸塁trl+X灏嗘墍閫鏁板瓧鍓垏鍒板壀璐存澘銆3. 鎸塁trl+F9鎻掑叆涓涓┖鐧藉煙锛屽湪鍏朵腑杈撳叆鈥=鈥濆彿锛屽苟绮樿创鍒氭墠鍓垏鐨勬暟鎹1250000銆4. 杈撳叆涓涓崐瑙掔┖鏍硷紙閫氳繃鏁茬┖鏍奸敭锛夛紝鍐嶅綍鍏ヤ互涓嬪煙浠ｇ爜锛歕\# #,#0 銆5. 鎸堿lt+F9闅愯棌鍩熶唬鐮侊紝鏄剧ず涓哄甫鏈鍗冨垎浣鍒嗛殧绗︾殑鏁板瓧銆傛敞鎰忥細鏂规硶浜屼腑鐨勫煙浠ｇ爜鍙兘鍦Word涓鏄剧ず锛...
绛旓細浠PS 2019鐗堜负渚 1. 鎵撳紑琛ㄦ牸锛岄変腑闇瑕佽缃殑鍗曞厓鏍硷紝榧犳爣鍙抽敭閫夋嫨鈥滆缃崟鍏冩牸鏍煎紡鈥濓紱2.鍦ㄥ脊鍑烘閫夋嫨鈥鏁板瓧鈥濃斺鏁板鈥濓紝鍕鹃夆滀娇鐢ㄥ崈浣嶅垎闅旂鈥濆嵆鍙
绛旓細鏂规硶/姝ラ 鎵撳紑word鏂囨。锛屽湪word涓鎻掑叆涓涓〃鏍硷紝杈撳叆灏忔暟鐐瑰唴瀹广傜劧鍚庨変腑鏈鍚庝环鏍肩殑灏忔暟鐐瑰唴瀹癸紝鎵惧埌杈规涓嬮潰鐨勬寜閽備細鍑虹幇娈佃惤閫夋锛岄夋嫨鍒惰〃浣嶃傚湪鍒惰〃浣嶅璇濇涓紝浣嶇疆涓2瀛楃锛屽榻愭柟寮忓皬鏁扮偣瀵归綈锛屽墠瀵肩涓烘棤锛岀‘瀹氥傛渶鍚庣湅涓涓嬪皬鏁扮偣鏄惁宸茬粡瀵归綈浜嗐倃ord璁╅夋嫨棰樼殑閫夐」瀵归綈锛屽湪鏇挎崲涓煡鎵惧唴瀹逛负...
绛旓細3.鍦ㄦ洿澶氳缃腑锛屽皢鎼滅储閫夐」涓殑鈥滀娇鐢ㄩ氶厤绗︹濆嬀閫夈4.鍦ㄦ煡鎵惧唴瀹逛腑濉叆鎯虫浛鎹㈢殑123锛屾浛鎹腑濉叆锛1\2\3锛堟敞鎰忥細鍦ㄨ緭鍏ユ硶涓鸿嫳鏂囧崐瑙掔殑鐘舵佽緭鍏ワ級锛岀劧鍚庡啀鐐瑰嚮鍏ㄩ儴鏇挎崲銆5.閲嶅鎸夊叏閮ㄦ浛鎹㈡寜閽紝鐩磋嚦鎻愮ず鍏ㄩ儴瀹屾垚锛屽畬鎴0澶勬浛鎹负姝6.鍥炲埌Word鏂囨湰涓紝鎴戜滑鍙互鐪嬪埌姝ゆ椂鐨鏁板瓧灏卞凡缁忓叏閮ㄥ姞涓婁簡鍗冧綅鍒嗛殧...
绛旓細鏂规硶涓銆佸湪word涓锛岀偣鍑烩滄彃鍏モ-鈥滅壒娈婄鍙封濓紝閫夋嫨鈥滃崟浣嶇鍙封濋夐」鍗★紝浠庝腑鎵惧埌闇瑕佺殑绗﹀彿锛岀偣鍑绘彃鍏ュ嵆鍙傛柟娉曚簩銆1銆佹悳鐙楁嫾闊宠緭鍏ユ硶锛岀偣鍑昏緭鍏ユ硶鍥炬爣涓婄殑閿洏绗﹀彿锛岄夋嫨鈥滅壒娈婄鍙封濄2銆佸湪寮瑰嚭鐨勨滅鍙峰ぇ鍏ㄢ濈獥鍙ｄ腑锛岀偣鍑烩滄暟瀛/鍗曚綅鈥濓紝鍦ㄥ彸渚х鍙锋爮鍐呴夋嫨鈥鍗冨垎鍙封濄
绛旓細閫変腑瑕佹坊鍔犵殑鍗曚綅锛屽彸閿紝閫夋嫨銆愯缃崟鍏冩牸鏍煎紡銆-銆鏁板瓧銆-銆愯嚜瀹氫箟銆戯紝閫夋嫨銆0銆戯紝鍐嶈緭鍏ラ渶瑕佹坊鍔犵殑鍗曚綅鍗冲彲銆 2銆佺粰鏁版嵁娣诲姞灏忔暟鐐瑰拰鍗曚綅 鍚屾牱鍙抽敭锛岄夋嫨銆愯缃崟鍏冩牸鏍煎紡銆-銆愭暟瀛椼-銆愯嚜瀹氫箟銆戯紝閫夋嫨銆0.00銆戯紝鍐嶆坊鍔犺嚜宸辫鐨勫崟浣嶏紝杩欐牱灏辫兘鏄剧ず鍑哄皬鏁扮偣銆 3銆佹坊鍔鍗冨垎浣鍒嗛殧绗﹀拰...
绛旓細鍦WORD涓锛岀洰鍓嶈繕娌℃湁杩欐牱鐨勫懡浠ゅ彲浠涓娆瑙ｅ喅鍗冨垎浣嶇殑闂锛屽湪excel鐢靛瓙琛ㄦ牸涓篃娌℃湁浣犳兂瑕佺殑绠鏄撴搷浣滐紝鍙槸鍦ㄣ愬伐鍏枫戣彍鍗曚腑鈥斺斺滈夐」鈥濆懡浠や笅鈥斺斺滅紪杈戔濅腑鏈変竴涓滆嚜鍔ㄨ缃皬鏁扮偣鈥濊繖鏍风殑鎿嶄綔锛屽氨鏄彲浠ヨ嚜鍔ㄥ畾浣嶏紝姣斿浣犺杈撳叆5.26锛屽畾浣嶄负2鐨勮瘽锛屼綘鍙渶瑕佽緭鍏526灏卞彲浠ヤ簡銆
