背景

因为报告是由python自动输出的，因此数字都是normal显示形式，对于用户阅读不甚友好，因此需要将word中的数字批量转为会计计数。

操作

打开word的VBA

option（alt）+ F8

将代码复制到程序框

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数字批量转为会计计数相关推荐

数据库导出的csv文件纯数字被转为科学计数法
前言在使用阿里云的数据库管理控制台,查询到的身份证想要导出csv表格,但是发现打开之后的身份证使用了科学计数法,并且只保留15位,多余的全都被自动填充了0,效果如下. 原因这个的原因其实和数据库. ...
如何批量将 Word 文档转为 HTML 格式
概要:HTML 的全称为超文本标记语言,是一种标记语言.我们可以将所需要表达的信息按某种规则写成 HTML 文件,这样可以通过专用的软件来识别,比如常用的浏览器.这些软件可以将这些 HTML 文件&q ...
如何批量将 Word 文档转为 ePub 格式
概要:ePub 是一个自由的开放标准,属于一种可以"自动重新编排"的内容,也就是文字内容可以根据阅读设备的特性,以最适于阅读的方式显示,所以现在主流的电子书基本都是 ePub 的. ...
如何将多个 Docx 格式 Word 文档批量转为 Doc 格式
概要:前面我们介绍过常见的 Word 文档有多种格式,比如 Doc.Docx,并且详细介绍了如何批量将多个 Doc 格式的 Word 文档批量转为 Docx 格式文档,相信对大家都有一些的帮助.那 D ...
如何批量将 Doc 格式的 Word 文档转为 Docx 格式
概要:我们都知道 Word 格式有多种.比如常见的有 Doc.Docx,这两种类型是能够相互兼容的,也是能够相互转化的.那今天给大家介绍的是如何将多个 Doc 格式文档批量转为 Docx 格式. 我们 ...
xdf文件改word_真正Txt 文本文件和Doc Word文件批量互转工具
电近经常上网下载小说文本,电脑里一大堆,虽然文本文件简洁方便,可是用记事本打开阅读,眼睛看起来却很累,还是觉得保存为WORD文件,阅读起来更舒服,也许一个两个TXT文本,转换成WORD,我们直接打开复 ...
PPT转Word文档及word图片批量居中
PPT转Word文档及word图片批量居中一.PPT转word文档 1.工作中经常会需要把PPT的内容转成文档打印出来,操作需要频繁的复制粘贴,需要耗费大量的时间和精力. 2.首先打开PPT点击另存 ...
怎样在word中批量替换文字？Word替换文字这一招你会吗？
平时我们在编辑word文档的时候,经常会遇到将文档中的某一个文字或者是数字替换成别的内容,很多人想到的方法就是一个字一个字的找,之后进行更改,这样会很耽误我们的时间,如果你的文档内容过多的话难道你也会 ...
多个html文件转换为excel,如何Excel批量转为Html或者Html转换成Excel
在工作中时常遇到转换的问题,这也是很正常的事.那么需要将Exce表格批量转为Html,或者将Html转换成Excel表格.以下是小编为您带来的关于Excel批量转为Html或者Html转换成Excel ...

word数字批量转为会计计数

背景

操作

打开word的VBA

将代码复制到程序框

点击运行

word数字批量转为会计计数相关推荐

最新文章

热门文章