word中，用宏加千分位，拜求高手！！ 如何在word中实现千分位符
WORD\u91cc\u6570\u5b57\u7528\u5343\u5206\u4f4d\u600e\u4e48\u8bbe\u7f6eword\u4e2d\uff0c\u6ca1\u6709\u81ea\u52a8\u5b9e\u73b0\u6570\u5b57\u8f6c\u6362\u4e3a\u5343\u5206\u4f4d\u683c\u5f0f\u7684\u65b9\u6cd5\uff0c\u53ea\u80fd\u901a\u8fc7\u624b\u5de5\u7f16\u5199\u5b8f\u547d\u4ee4\u7684\u65b9\u6cd5\u6765\u5b9e\u73b0\u3002
\u3000\u3000\u5177\u4f53\u6b65\u9aa4\u5982\u4e0b\uff1a
\u3000\u30001\u3001\u6253\u5f00word\uff1b'
\u3000\u30002\u3001\u6309alt+F11\u6253VBA\u7f16\u8f91\u5668\uff0c\u70b9\u51fb\u63d2\u5165->\u6a21\u5757\uff1b
\u3000\u30003\u3001\u5728\u6a21\u5757\u7a97\u53e3\u8f93\u5165\u4ee5\u4e0b\u5b8f\u6307\u4ee4\uff1a
\u3000\u3000Sub FormatNumbers()\u3000\u3000 Selection.TypeText Text:=Format(Selection, "#,##0.00")\u3000\u3000End Sub
\u3000\u30004\u3001\u4fdd\u5b58\u9000\u51faVBA\u7f16\u8f91\u5668\uff1b
\u3000\u30005\u3001\u70b9\u51fboffice\u6309\u94ae->word\u9009\u9879\uff1b
\u3000\u30006\u3001\u6253\u5f00\u81ea\u5b9a\u4e49\u5bf9\u8bdd\u6846\uff0c\u9009\u62e9\u5b8f\uff0c\u70b9\u51fb\u6dfb\u52a0\uff0c\u786e\u5b9a;
\u3000\u30007\u3001\u9009\u62e9\u9700\u8981\u8bbe\u7f6e\u4f1a\u8ba1\u683c\u5f0f\u7684\u6570\u5b57\uff0c\u70b9\u51fb\u5feb\u6377\u680f\u4e2d\u7684\u5b8f\u547d\u4ee4\uff1b
\u3000\u30008\u3001\u5b8c\u6210\u3002
\u5176\u4ed6\u8f93\u5165\u6cd5\u4e0d\u6e05\u695a\uff0c\u641c\u72d7\u8f93\u5165\u6cd5\u5148\u8f93\u5165v\u518d\u8f93\u5165\u6570\u5b57\u4f1a\u51fa\u73b0\u5343\u5206\u4f4d\u5f62\u5f0f\uff0c\u4f46.00\u8fd8\u662f\u8981\u81ea\u5df1\u8f93\u5165
\u6709\u4e00\u6bb5\u5b8f\u4ee3\u7801\u8fd0\u884c\u540e\u53ef\u4ee5\u81ea\u52a8\u7ed9\u6570\u5b57\u52a0\u5343\u5206\u4f4d\u53ca\u4e24\u4f4d\u5c0f\u6570\u4f4d
\u8f6c\u5e16
\u5728Word\u4e2d\u4e5f\u5b9e\u73b0\u6570\u5b57\u81ea\u52a8\u5343\u5206\u4f4d\u683c\u5f0f
\u8fd9\u4e2a\u65b9\u6cd5\u6bd4\u8f83\u597d\u3002\u6536\u85cf\u4e00\u4e0b\u3002\uff08\u8f6c\u81ea\u201c\u4e2d\u56fd\u4f1a\u8ba1\u89c6\u91ce\u8bba\u575b\u201d\u91cczhufree\u670b\u53cb\u7684\u5e16\u5b50\u3002\uff09
\u6253\u5f00WORD\u7a0b\u5e8f\uff0c\u5728\u4e0a\u65b9\u83dc\u5355\u533a\u57df\u4e2d\uff0c\u53f3\u952e\u5355\u51fb\uff0c\u9009\u4e2dVisual Basic\u3002\u70b9\u51fb\u201cVisual Basic\u7f16\u8f91\u5668\u201d\u56fe\u6807\uff0c\u6253\u5f00Visual Basic\uff0c\u5728\u201cThisDocument \u201d\u4e2d\u53cc\u51fb\uff0c\u7136\u540e\u5728\u53f3\u8fb9\u7684\u7a97\u53e3\u4e2d\u590d\u5236\u4e0b\u65b9\u7684\u4ee3\u7801\uff1a
2\u3001\u5bf9\u6240\u6709\u7684\u6570\u5b57\u52a0\u5343\u5206\u4f4d\uff0c\u5e76\u4e14\u81ea\u52a8\u52a0\u4e0a\u5c3e\u6570.00
Sub yycealjj1()
'\u672c\u4ee3\u7801\u65e8\u5728\u89e3\u51b3WORD\u4e2d\u6570\u636e\u8f6c\u5316\u4e3a\u5343\u5206\u4f4d
'\u6570\u636e\u9650\u5b9a\u8981\u6c42:-922,337,203,685,477.5808 \u5230 922,337,203,685,477.5807
'\u8f6c\u5316\u7ed3\u679c1000\u4ee5\u4e0a\u6570\u636e\u4ee5\u5343\u5206\u4f4d\u8ba1\u7b97,\u5c0f\u6570\u70b9\u53f3\u4fa7\u4fdd\u7559\u4e8c\u4f4d\u5c0f\u6570;1000\u4ee5\u4e0b\u6570\u636e\u4e0d\u53d8
Dim myRange As Range, i As Byte, myValue As Currency
On Error Resume Next
Application.ScreenUpdating = False '\u5173\u95ed\u5c4f\u5e55\u66f4\u65b0
NextFind: Set myRange = ActiveDocument.Content '\u5b9a\u4e49\u4e3a\u4e3b\u6587\u6863\u6587\u5b57\u90e8\u5206
With myRange.Find '\u67e5\u627e
.ClearFormatting '\u6e05\u9664\u683c\u5f0f
.Text = "[0-9]{4,15}" '4\u523015\u4f4d\u6570\u636e
.MatchWildcards = True '\u4f7f\u7528\u901a\u914d\u7b26
Do While .Execute '\u6bcf\u6b21\u67e5\u627e\u6210\u529f
i = 2 '\u8d77\u59cb\u503c\u4e3a2
'\u5982\u679c\u662f\u6709\u5c0f\u6570\u70b9
If myRange.Next(wdCharacter, 1) = "." Then
'\u8fdb\u884c\u4e00\u4e2a\u672a\u77e5\u5faa\u73af
While myRange.Next(wdCharacter, i) Like "#"
i = i + 1 '\u53ea\u8981\u662f[0-9]\u4efb\u610f\u6570\u5b57\u5219\u7d2f\u52a0
Wend
'\u91cd\u65b0\u5b9a\u4e49RANGE\u5bf9\u8c61
myRange.SetRange myRange.Start, myRange.End + i - 1
End If
myValue = VBA.Val(myRange) '\u4fdd\u9669\u8d77\u89c1\u8f6c\u6362\u4e3a\u6570\u636e,\u4e5f\u53ef\u7701\u7565
myRange = VBA.Format(myValue, "Standard") '\u8f6c\u4e3a\u5343\u5206\u4f4d\u683c\u5f0f
GoTo NextFind '\u8f6c\u5230\u6307\u5b9a\u884c
Loop
End With
Application.ScreenUpdating = True '\u6062\u590d\u5c4f\u5e55\u66f4\u65b0
End Sub
\u5173\u95edVisual Basic\u7f16\u8f91\u5668\uff0c\u56de\u5230WORD\u754c\u9762\u3002\u8f93\u5165\u6587\u7ae0\u540e\uff0c\u70b9\u51fb\u201c\u8fd0\u884c\u5b8f\u201d\u56fe\u6807\uff0c\u8fd0\u884cyycealjj1\u5b8f\uff0c\u5373\u53ef\u5bf9\u6570\u5b57\u52a0\u5343\u5206\u4f4d\u3002\uff08\u53ef\u4ee5\u63d2\u5165\u6a21\u677f\uff0c\u4ee5\u540e\u800c\u8981\u65f6\u52a0\u8f7d\u5373\u53ef\u3002\uff09
步骤1：有小数点的整数部分加空格
ctrl+h调出替换对话框
查找内容输入：([0-9])([0-9]{3})([. ])
替换为输入：\1 \2\3
高级或更多选择“使用通配符”，点击全部替换若干次，直到提示替换了0处为止。
步骤2：有小数点的小数部分加空格
ctrl+h调出替换对话框
查找内容输入：([. ])([0-9]{3})([0-9])
替换为输入：\1\2 \3
高级或更多选择“使用通配符”，点击全部替换若干次，直到提示替换了0处为止。
步骤3：不含小数点的部分加空格
ctrl+h调出替换对话框
查找内容输入：([0-9])([0-9]{3})([!0-9 .年])
替换为输入：\1 \2\3
高级或更多选择“使用通配符”，点击全部替换若1次。
步骤4：超过6位的无小数点部分加空格
ctrl+h调出替换对话框
查找内容输入：([0-9])([0-9]{3})([. ])
替换为输入：\1 \2\3
高级或更多选择“使用通配符”，点击全部替换若干次，直到提示替换了0处为止。
绛旓細瀛︿笉鑷弧姹傚垱鏂 娓呴鏄庢湀鏈棤浠 杩戞按閬ュ北鐨嗘湁鎯 闆勯浮涓夊敱閫佽厞鍘 鍠滈箠涓澹拌繋鏄ユ潵 鍦版殩鑺遍暱鍙 鏉戝菇楦熶换姝 鏃棩妯┖鍑轰笘 鑵婃鍋氶洩杩庢槬 鐕曠炕鐜夊壀绌跨孩闆 鑾烘幏閲戞鐮寸豢鐑 娌惧ⅷ鎵嶉姊呬技闆 鎸ユ鍙堣祴鏌冲鐑 搴嗕赴鏀跺叏瀹舵涔 杩庢柊鏄ユ弧闄㈢敓杈 宸х悊鍗冨浜 娓╂殩涓囦汉蹇 骞翠赴寰疯寕绂忕洓 瀹舵椇鍥藉叴浜哄拰 鏅寸豢涔...
绛旓細宸︾墿鍙崇爜 鐢ㄩ晩瀛愬す 鍏堝姞澶х殑 鍐嶅姞灏忕殑璇 鏈鍚庤皟鑺傛父鐮佹爣灏
绛旓細杩欎竴褰㈠紡涓栫晫鍚勫浗鑳藉鎶婂悇鑷法澶х殑鍐涗簨鏂归潰 鐨勮祫閲戙佷汉鎵嶃佽澶囩瓑璧勬簮閮借浆鐢ㄥ埌鐢熶骇鍔涘彂灞曚笂,寰堝ぇ鐨勪績杩涚敓浜у姏鍙戝睍,骞朵笖鐜板湪缁忔祹鍏ㄧ悆鍖栧悇鍥界浉浜掑甫鏉ュ緢澶у彂灞,鍚勫浗灏变笉鏄悇澧炲姞涓浠界敓浜у姏鍙戝睍,鑰屾槸鐩镐簰甯︽潵寰堝浠界敓浜у姏鍙戝睍銆傜幇鍦ㄤ笘鐣屼笂鏈夊緢灏戞暟鐨勫浗瀹舵病鏈夊啗闃,杩欎簺鍥藉鍥藉唴鏀挎不涓婃病鏈夊啗闃熷瓨鍦ㄤ篃瀹炵幇浜嗗お骞崇洓涓栥傚浗鍐呮斂娌...
绛旓細椤电爜浠庝换鎰忛〉寮濮 1銆佸皢鍏夋爣瀹氫綅浜庨渶瑕佸紑濮嬬紪椤电爜鐨勯〉棣栦綅缃2銆侀夋嫨鈥滄彃鍏-鍒嗛殧绗︹濓紝鎵撳紑鈥滃垎闅旂鈥濆璇濇锛屽湪鈥滃垎闅旂绫诲瀷鈥濅笅鍗曞嚮閫変腑鈥滀笅涓椤碘濆崟閫夐挳銆3銆侀夋嫨鈥滆鍥-椤电湁鍜岄〉鑴氣濓紝骞跺皢鍏夋爣瀹氫綅浜庨〉鑴氬銆4銆佸湪鈥滈〉鐪夊拰椤佃剼鈥濆伐鍏锋爮涓緷娆¤繘琛屼互涓嬫搷浣滐細鈶犲崟鍑烩滃悓鍓嶁濇寜閽紝鏂紑鍚屽墠涓鑺...
绛旓細鏈嬪弸浣犲ソ锛佸洓鏂规槸涓滆タ鍗楀寳銆佸瓙鍗堝嵂閰夋柟鍝︼紝鍥涢┈銆愬瘏鐢冲烦浜ャ戯紝鍥涘銆愯景鎴嶄笐鏈戯紝鍥涚淮鍚戙愪咕鍧よ壆宸恒戙備笢瑗挎柟銆佸垯45搴︿笢鍔45搴﹁タ鐨勬柟鍚戯紝灏辨槸鍦ㄤ綘鐨勪綇瀹朵互涓滆タ鏂瑰悜鏃犻檺浼稿欢鐨勪竴涓悏绁ユ柟鍚戜綅缃傚氨杩欐牱绛斾綘鐨勬彁闂紝杩樹笉鐭ュ涓嶅锛岃澶у笀浠枾姝ｅ摝銆傘愬箍娼汉2228銆...
绛旓細jsz搴旇鏄釜瀹氫箟鐨勫悕绉,鎴栬浠ｈ〃鏌愪釜鍏紡,杩欎釜鍏紡鐨勭粨鏋滃彲鑳芥槸鏁板,涔熷彲鑳芥槸閿欒鍊,濡傛灉鏄敊璇煎氨杩斿洖绌哄崟鍏冩牸,濡傛灉鏄暟鍊煎氨杩斿洖鍥涜垗浜斿叆骞朵繚鐣欎袱浣嶅皬鏁扮殑缁撴灉銆傛纭娇鐢ㄦ柟娉曪細1銆佷换鎰忕偣鍑讳竴涓〃鏍硷紝杈撳叆鈥=if鈥濓紙涓嶅尯鍒嗗ぇ灏忓啓锛夊湪榧犳爣鍗曞嚮宸﹁竟鐨勨渇x鈥2銆佽繘鍏ュ埌鍑芥暟鐨勫弬鏁拌缃晫闈 3銆佽繖閲屼妇涓涓...
绛旓細杩愮敤浜嗘瘮鍠汇佹嫙浜虹殑淇緸鎵嬫硶銆備粠绁炲湪楂樼┖鎺変笅鏉ョ殑鈥滈摱绾库濓紝闃挎柦濉旂壒濂崇鐜嬪啝涓婃暎钀戒笅鏉モ滅弽鐝犫濓紝杩欎簺浼樼編鐨勬瘮鍠讳綋鏉ユ弿鍐欓洦鏈韩搴旀湁鐨勭敓鍛藉Э鎬侊紝鎰忓闈炲父浼樼編銆傛帴鐫锛屾枃涓張鍐欏埌瑕佺敤鐢ㄩ洦鐨勭溂娉潵瑁呯偣娌冲窛.銆
绛旓細/閲婃斁 姣掕泧閽夊埡 绛夌骇9 /閲婃斁 闇囪崱灏勫嚮 绛夌骇5 /閲婃斁 濂ユ湳灏勫嚮 绛夌骇7 寰堢畝鍗曞晩 鎵撳紑瀹璁剧疆 鐒跺悗鎵撳紑娉曟湳鎶鑳借〃 鍙抽敭鎵鎯抽噴鏀剧殑鎶鑳 鐒跺悗瀹忓懡浠ゅ氨鑷姩澶嶅埗鍒颁簡 瀹忚缃噷浜嗐
绛旓細GB/T 30597-2014 鐕冩皵鐕冪儳鍣ㄥ拰鐕冪儳鍣ㄥ叿鐢ㄥ畨鍏ㄥ拰鎺у埗瑁呯疆閫氱敤瑕佹眰 浣犲ソ锛屽凡涓婁紶鍒伴檮浠讹紝婊℃剰璇峰強鏃堕噰绾充负鏈浣崇瓟妗堛傛爣鍑嗙畝浠 鏈爣鍑嗚瀹氫簡浣跨敤 GB/T13611瑙勫畾鐨勫煄闀囩噧姘旂殑鐕冩皵鐕冪儳鍣ㄥ拰鐕冪儳鍣ㄥ叿鐢ㄥ畨鍏ㄥ拰鎺у埗瑁呯疆鍙婂叾缁勪欢(浠ヤ笅绠绉扳滄帶鍒惰缃)鐨勬湳璇拰瀹氫箟銆佸垎绫诲拰鍒嗙粍銆佺粨鏋勫拰鏉愭枡銆佽姹傘佽瘯楠屾柟娉曘佹爣璇嗐...
