如何将Word中的数字转换为千分位的格式
ããwordä¸ï¼æ²¡æèªå¨å®ç°æ°å转æ¢ä¸ºååä½æ ¼å¼çæ¹æ³ï¼åªè½éè¿æå·¥ç¼åå®å½ä»¤çæ¹æ³æ¥å®ç°ã
ããå ·ä½æ¥éª¤å¦ä¸ï¼
ãã1ãæå¼wordï¼'
ãã2ãæalt+F11æVBAç¼è¾å¨ï¼ç¹å»æå ¥->模åï¼
ãã3ãå¨æ¨¡åçªå£è¾å ¥ä»¥ä¸å®æ令ï¼
ããSub FormatNumbers()
ãã Selection.TypeText Text:=Format(Selection, "#,##0.00")
ããEnd Sub
ãã4ãä¿åéåºVBAç¼è¾å¨ï¼
ãã5ãç¹å»officeæé®->wordé项ï¼
ãã6ãæå¼èªå®ä¹å¯¹è¯æ¡ï¼éæ©å®ï¼ç¹å»æ·»å ï¼ç¡®å®;
ãã7ãéæ©éè¦è®¾ç½®ä¼è®¡æ ¼å¼çæ°åï¼ç¹å»å¿«æ·æ ä¸çå®å½ä»¤ï¼
ãã8ãå®æã
Sub FormatNumbers()
Selection.TypeText Text:=Format(Selection, "#,##0.00")
End Sub
打VBA编辑器,在Normal.dot文件里填加模块,把上面的宏输入或拷贝进去
保存退出VBA编辑器
打开自定义对话框,自定义刚才那个宏的快捷键,如指定为Ctrl+,
每次在操作时,选中需格式的数字,按Ctrl+,键即可。