-
2020-12-31 14:06:08
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
例：123456变成123,456，而不是将123456变成123,456.00。
找到了一段宏代码，但运行后将123456变成123,456.00了，而不是我要的123,456。
Sub CurrencyNumber()
Dim i As Range, Acell As Cell, CR As Range
On Error Resume Next
Application.ScreenUpdating = False
If Selection.Type = 2 Then
For Each i In Selection.Words
If i Like "####*" = True Then
If i.Next Like "." = True And i.Next(wdWord, 2) Like "#*" = True Then
i.SetRange Start:=i.Start, End:=i.Next(wdWord, 2).End
i = Format(i, "Standard")
Else
i = Format(i, "Standard")
End If
End If
Next i
ElseIf Selection.Type = 5 Then
For Each Acell In Selection.Cells
Set CR = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)
MsgBox CR
If CR Like "####*" = True Then
If CR Like "####.#*" = True Then
Yn = Format(CR, "Standard")
CR.Text = Nn
Else
Yn = Format(CR, "Standard")
CR.Text = Nn
End If
End If
Next Acell
Else
MsgBox "您只能选定文本或者表格之一!", vbOK + vbInformation
End If
Application.ScreenUpdating = True
End Sub
更多相关内容 -
批量抽取word文档中的表格
2022-04-12 22:16:57用于抽取word文档中指定表格的指定数据 供学习交流 import pandas as pd import docx import os def get_data_from_path(save_path): document = docx.Document(save_path) col_keys = [] # 获取列名 col_...展开全文用于抽取word文档中指定表格的指定数据
供学习交流import pandas as pd import docx import os def get_data_from_path(save_path): document = docx.Document(save_path) col_keys = [] # 获取列名 col_values = [] # 获取列值 i = 0 # 用来筛选指定表格（对于文档中有多个表格的情况） for table in document.tables: if i == 0: i += 1 continue if i > 1 : break i += 1 for row_index, row in enumerate(table.rows): for col_index, cell in enumerate(row.cells): if row_index > 0: if col_index == 0: col_keys.append(cell.text.replace('\n','')) if col_index == 2: col_values.append(cell.text) # print(f'col keys is {col_keys}') # print(f'col values is {col_values}') return col_keys, col_values def docx2csv(wordlist_path, csv_path): key, value = get_data_from_path(wordlist_path) res = [] # 存txt size = len(key) for i in range(size): txt_temp = key[i] + ',' + value[i].replace('\n', ',') txt_temp = txt_temp.split(',') res.append(txt_temp) df = pd.DataFrame(res) df.to_csv(csv_path, encoding='utf_8_sig', index=False, header = None) print('3Q') wordlist_path = 'E:\\数字电子技术.docx' csv_path = r'E:\1.csv' docx2csv(wordlist_path, csv_path) docxs_path = r'E:\电子系课程' # 文件夹路径 file_list = os.listdir(docxs_path) print(file_list) for fl in file_list: if not os.path.splitext(fl)[1] == ".docx": # 筛选文件类型,注意”.“ continue docx_path = os.path.join(docxs_path, fl) # 文件路径 csv_name = fl.split('.')[0] + '.csv' # csv文件名 csv_path = os.path.join(docxs_path, csv_name) # 文件路径 docx2csv(docx_path, csv_path)
-
word数字千分位的批量添加方法
2020-12-31 14:06:07内容提要：文章介绍word数字千分位的一次性批量添加方法，以及word千分位详细的添加操作步骤。笔者是一名会计从业者，在word文档中经常与数字打交道，为了保持数字格式的统一性，需要将数字添加千分位，并保留两位...展开全文内容提要：文章介绍word数字千分位的一次性批量添加方法，以及word千分位详细的添加操作步骤。
笔者是一名会计从业者，在word文档中经常与数字打交道，为了保持数字格式的统一性，需要将数字添加千分位，并保留两位小数。
通常是需要一次性把word里的数字全部变为会计格式，即改为有千分号且后带两位小数点的格式。
很遗憾的是，word自身内置命令，并不能实现数字千分位的添加。常使用excel的朋友知道，excel添加千分位分隔符，保留两位小数是很简单容易的事情，单击工具栏的命令即可完成。
既然内置功能无法满足，我们可以通过自己编写一段VBA代码来实现word数字千分位的批量添加。
我们以word2010版为例，来介绍word数字千分位的批量添加方法。
第一，打开需要添加数字千分位的word文档。
第二，单击开发工具——Visual Basic，或者按ALT+F11，打开VBE编辑器。
附：图文教程：word2010开发工具的显示和关闭http://www.ittribalwo.com/show.asp?id=1447
第三，单击插入——模块，插入一个模块，并在右边的代码窗口复制下面的代码。
第四，关闭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表格中进行加减乘除法计算
2021-07-25 08:58:00在word表格中进行加减乘除法计算在MicrosoftWord2003中，您可以对输入表格单元格的值进行加、减、乘、除运算。在下面的示例中，每个表格单元格中的值用列字母和行号表示。例如，“A1”表示第一列和第一行中的单元格...展开全文在word表格中进行加减乘除法计算
在MicrosoftWord2003中，您可以对输入表格单元格的值进行加、减、乘、除运算。在下面的示例中，每个表格单元格中的值用列字母和行号表示。例如，“A1”表示第一列和第一行中的单元格。
执行下列步骤，将3加到单元格A1(A1的值为2)。
将插入点置于单元格A4中。
在“表格”菜单上，单击“公式”。
在“公式”下将自动显示公式(=Sum(Above))。
删除自动显示的公式，保留等号(=)。
在等号后输入(A1)+3。
单击“确定”。
公式的结果(2+3=5)将显示在单元格A4中。
在下列示例中执行上述步骤，然后在步骤4中插入下面的公式之一。
加法 将数字加到单元格
=(A1)+3
在示例中等于5
对两个相邻的单元格求和
=SUM(A1:A2)
或
=(A1+A2)
在示例中等于9
对两个不相邻的单元格求和
=(A1+A3)
或
=(A1)+(A3)
在示例中等于10
对一组单元格求和
=SUM(B1:B3)
在示例中等于9
减法 从单元格中减去数字
=(A1)-1
在示例中等于1
对两个单元格求差
=(A3-B2)
在示例中等于5
乘法 将数字和单元格相乘
=(A1)*3
在示例中等于6
将两个相邻的单元格相乘
=PRODUCT(A1:A2)
在示例中等于14
将两个不相邻的单元格相乘
=(B1*B3)
或
=PRODUCT(B1)*(B3)
在示例中等于5
除法 将数字和单元格相除
=(C2)/3
在示例中等于2
将两个单元格相除
=(C2)/(A1)
在示例中等于3
注意如果在表格中添加了行或列，则必须手动重新计算Word表格中的运算。要执行复杂的计算，您应当考虑使用MicrosoftExcel。
来源：互联网
-
word 批量给表格增加题注
2019-12-26 12:15:501.选中一个表，增加题注（引用->...此时显示为“表{SEQ 表格 \* ARABIC }” 5.复制“表{SEQ 表格 \* ARABIC }” 6.开始->替换，打开替换窗口。 7.输入查找内容（我的情况是本来每个表都有表名，但... -
用VBA从word的表格中提取数据到excel中
2019-12-06 23:45:30该VBA脚本可以实现从word文档的多个表中提取数据，每个表格的信息提取到一行。 Sub word2els() Set wdApp = CreateObject(“kwps.application”) path_ = ThisWorkbook.Path wdApp.Documents.Open (path_ & “”... -
WORD文档中的宏代码操作（表格批量操作））
2022-06-13 16:26:57word中利用宏代码，快速统一调整表格 -
word中如何为金额数字批量添加千分位符号
2010-05-26 17:44:09可批量对word中的数据添加千分位号 Sub 设置千分位() '卡奇兵团：仅对已设置小数位的数值有效 With ActiveDocument.Range.Find .ClearFormatting .Replacement.ClearFormatting .MatchWildcards = True Do ... -
Python 批量提取 Word 中表格内容，一键写入 Excel
2021-03-31 00:40:59案例思想是源于前两天帮读者做了一个 demo ，需求大致将一上百个 word 中表格内容提取出来(所有word 中表格样式一样)，把提取到的内容自动存入 Excel 中 word 中表格形式如下 目前含有数个上面形式的 word 文档需要... -
vb操作word数字编号
2018-12-17 20:06:12关于vb操作word文档中数字编号有关知识 ListGallery 对象 (Word) 代表单个列表格式的库。 ListGallery对象是ListGalleries集合的成员。 使用ListGalleries (Index)，其中 Index 是wdBulletGallery 、 ... -
批量修改替换多个Word文档中同一内容的方法
2015-10-28 15:53:55批量修改替换多个Word文档中同一内容的方法 -
向大量Word文档的表格中填写数据
2022-02-13 10:25:31在工作中，我们经常遇到将Excel表中的部分信息填写到Word文档的对应表格中，以生成报告，方便打印。今天我们就来试试如何往固定的Word模板中填写数据。此例要求将Excel档的“收货数据”填写到Word档的“收货记录”中... -
如何给word文档中的数字添加千分位分隔符
2020-12-23 11:03:01展开全部准备工具/材料：windows10...2、windows10Build10158版本创建新的Word文档，在32313133353236313431303231363533e78988e69d8331333431353430文档中输入演示数据，并操作如何在Word文档中设置数字的千位分... -
word表格排版工具 v6.1.zip
2019-07-11 09:42:20word表格排版工具是一款可以批量自动排版工具软件，适合有大量排版任务的会计师事务所，设计院等。 使用方法： 运行本软件，按软件界面提示打开要排版的word文件，在界面中对表格进行统一格式设置，点击开始后可能... -
WPS表格中中文数字怎么转换为阿拉伯数字
2021-01-11 19:59:26excel中怎么把中文数字变成阿拉伯数字啊比如小编现在有 一 三 四 小编希望能变成 1 3 4有些记忆，注定无法抹去;就象有些人，注定无法替代一样。需要使用到“方方格子”插件，EXCEL 2007及以上版本可用，百度搜索下载... -
将word中表格批量导入到Excel
2016-05-17 17:07:35通过宏命令将word中表格批量导入到Excel -
word表格计算方法详解
2021-07-10 03:26:08当我们在Word表格的单元格中输入数据后，然后就可以对表格单元格进行相关的一些计算。在对word表格进行计算，首先有几点需要说明：第一，Word表格中单元格的命名是由单元格所在的列行序号组合而成。列号在前行号在后... -
python读取word表格
2021-01-12 02:18:11python如何获取word文件中... 本文实例讲述了Python实现批量读取word中表格信息的方法。分享给大家供大家参考。具体如下： 单位收集了很多word格式的调查表，领导需要收集表单里的信息，我就把所有调查表放一个文件... -
如何批量插入图片到Word文档表格中并自动排版调整尺寸
2021-04-12 16:12:40※操作步骤※：1、安装《慧办公》软件后，打开Word，《慧办公》软件将出现在Word的功能区，如下图：2、单击【批量插图】→【表格批量插入图片】，如下图：3、在弹出窗体中，选择插入图片的方式，如下图：说明：... -
word中批量改数字为千分位格式的宏
2010-11-24 16:49:41word中千分位宏，在word中批量改变数字为千分位，比较方便好用 -
word数字批量转为会计计数
2020-03-17 15:41:00因为报告是由python自动输出的，因此数字都是normal显示形式，对于用户阅读不甚友好，因此需要将word中的数字批量转为会计计数。 操作 打开word的VBA option（alt）+ F8 将代码复制到程序框 Sub qianfen() '本代码... -
如何在word中设置数字的千位分隔符？两种方法轻松搞定
2020-12-23 11:02:55不过你可以在Excel中输入这样的数据，“复制”后，到WORD中“编辑”/“选择性粘贴”/“无款式文本”即可。 在Excel中输入这样的数据的法子是： 选中将要输入的单元格区域，右击该区域，在弹出的快捷菜单中选择“设置... -
word文档中表格顶头怎么调整_word使用技巧之-Word文字处理技巧，学会不求人！...
2020-10-27 00:49:09假期最后一天，明天就要上班了，今天给大家分享20个Word实用技巧，希望你们能够喜欢。01、一键选择同样的内容编辑Word时，如果需要将相同样式的内容全选复制出去该怎么办...02、表格文字自适应我们在Word里面插入表... -
从多个Word文档中批量取值，整理到Excel表中的技能，整理简历者必备
2021-11-07 09:28:23从多个Word文档中批量取值，整理到Excel表中的技能，整 从多个Word文件中提取指定的值到Excel中，也可以理解为把多个Word文件的值放在一个表格中，便于统计或查阅。 本教材提供了4种不同情况下的WORD文件取值手法... -
word文档中表格顶头怎么调整_简单好用的Word技巧（全）
2020-11-13 23:01:34简单好用的Word技巧一秒对齐文字在Word中如何对齐文字，我想十个人中有九个都会像三顿这样手打空格。只有短短几行倒还好说，如果是几十行甚至几百行，一定会打空格打到吐吧。标尺一秒对齐！只需要选中文字，在标尺处... -
word快速提取纯数字
2021-07-25 08:53:12在Word中，如何在文本数字混排的表格中提取自己想要的数值呢？以便计算数值。这时候，可能很多人会使用复制、粘贴的方法一个个地提取出来？NO,NO,NO......这里给大家推荐1个技巧：Word查找和替换功能。比如说，快速... -
自定义自动将大量word读取统计到excel中，中间环节采用了本地数据库
2018-04-17 11:05:452、选上刚刚建的模板，右键创建引导逻辑，指定excel每一列需要从word表格中哪一个单元格取值。复选框的需要下拉选择是复选框 3、选中模板右键上传，选择好要上传的word文档，一次性加载路径，统计入本地数据库。 4、... -
java导入excel | 怎么把excel中的数据批量导入到word中的表格中
2021-03-26 10:32:54用javascript怎么实现把excel中的数据批量导入到数据库表中这个js不能直接实现吧 我们程序用到 先读取excel内容转换成数组 然后放到页面上 再提交表单 储存MySql如何批量添加数据或导入excel表中的内容。只能做成sql...
