word 数字千分位的一次性批量添加方法,以及word千分位详细的添加操作步骤
时间:2022-11-13 19:12:05
是一名会计从业者,在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
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Word表格中内容太多不能全部显示该怎么设置?
![](https://img.aspxhome.com/file/2023/1/28851_0s.jpg)
如何将图文并茂的网页快速转换为WPS(WORD)文档
![](https://img.aspxhome.com/file/2023/1/21921_0s.png)
如何下载并安装 Office 2010 ProPlus
![](https://img.aspxhome.com/file/2023/1/16371_0s.png)
word文档中页码怎么设置
word如何插入艺术字教程
![](https://img.aspxhome.com/file/2023/7/32977_0s.jpg)
如何查看自己电脑的IP地址?查看自己电脑的IP地址教程
![](https://img.aspxhome.com/file/2023/5/47935_0s.png)
Win10系统画面定格死机怎么办
![](https://img.aspxhome.com/file/2023/5/49395_0s.png)
用word制作一张课程表
![](https://img.aspxhome.com/file/2023/0/26110_0s.jpg)
Word表格中数据的自动排序方法步骤
Word如何删除编号与文字间的空格
![](https://img.aspxhome.com/file/2023/2/17642_0s.png)
怎么删除word最后一页空白页
![](https://img.aspxhome.com/file/2023/5/22635_0s.jpg)
Word中怎么居中打印表格
![](https://img.aspxhome.com/file/2023/9/31899_0s.png)
word文档如何设置页面边距
如何在Word中添加删除线?
Word怎么打印稿纸
![](https://img.aspxhome.com/file/2023/8/31688_0s.png)
win10专业版怎么关闭更新?win10专业版关闭更新方法
![](https://img.aspxhome.com/file/2023/1/48511_0s.png)
仅需三步,让你玩转Word文档中的回车符
![](https://img.aspxhome.com/file/2023/7/24867_0s.jpg)
Win10系统强制更改Edge为默认浏览器如何处理?修改默认浏览器的方法
![](https://img.aspxhome.com/file/2023/4/48874_0s.jpg)
Office 2013无法安装,提示“该程序包安装失败”
word 压缩文档图片的方法图解教程
![](https://img.aspxhome.com/file/2023/3/33073_0s.jpg)