1.选中一个表，增加题注（引用->插入题注）

2.点击“新建标签”按钮，输入你想要的标签名，如“表”

3.点击确定

4.插入题注为  “表1”，鼠标选中“1”，右键，“切换域代码”。此时显示为“表{SEQ 表格 \* ARABIC }”

5.复制“表{SEQ 表格 \* ARABIC }”

6.开始->替换，打开替换窗口。

7.输入查找内容（我的情况是本来每个表都有表名，但是没有题注），替换为，输入”^c“+替换内容

8.点击全局替换

9.ctrl+a全选文档，按F9更新域，题注中的数字自动更新

 

注意：第5步后，不能复制其他东西，要保证剪切板上的赋值内容为题注的域代码。

^c就代表那段域代码

 

关注公众号：【小张Python】，为你准备了 50+ 本Python 精品电子书籍 与 50G + 优质视频学习资料，后台回复关键字：1024 即可获取；如果对博文内容有什么疑问，后台添加作者【个人微信】，可与作者直接进行交流

Hello，我是小张，大家好久不见~
今天文章介绍一个实战案例，与自动化办公相关；案例思想是源于前两天帮读者做了一个 demo ，需求大致将一上百个 word 中表格内容提取出来(所有word 中表格样式一样)，把提取到的内容自动存入 Excel 中
word 中表格形式如下

目前含有数个上面形式的 word 文档需要整理，目标是利用 python 自动生成下面形式 excel 表格

正式案例讲解之前，先看一下转换效果，脚本先把指定文件夹下的 doc 文件转化为 docx ，随后自动生成一个 excel 表格，表格内中即为所有 word 中的内容

涉及的库
本案例中用到的 Python 库有以下几个
python-docx
pandas
os
pywin32

doc 转化为 docx
本案例中 word 中表格内容的提取用到的是 python-docx 库，关于 python-docx 一些基础用法可以参考
，
word 文档有时是以 doc 类型保存的， python-docx 只能处理 docx 文件类型，在提取表格内容之前，需进行一次文件类型格式转换：把 doc 批量转化为 docx；
doc 转 docx 最简单的方式 通过Office 中 word 组件打开 doc 文件，然后手动保存为 docx 文件，对于单个文档这个方法还行，文档数量达到上百个的话还用这种方法就有点烦了，
这里介绍一个 python  库 pywin32 来帮助我们解决这个问题，pywin32 作为扩展模块， 里面封装了大量 Windows API 函数，例如调用 Office 等应用组件、删除指定文件、获取鼠标坐标等等
利用 pywin32 控制Office 中 Word 组件自动完成 打开、保存 操作，把所有 doc 文件类型转化为 docx 文件类型，步骤分为以下三步：
1，建立一个 word 组件
from win32com import client as wc
word = wc.Dispatch('Word.Application')

2，打开 word 文件
doc = word.Documents.Open(path)

3，保存关闭
doc.SaveAs(save_path,12, False, "", True, "", False, False, False, False)
doc.Close()

完整代码
	path_list = os.listdir(path)
    doc_list = [os.path.join(path,str(i)) for i in path_list if str(i).endswith('doc')]
    word = wc.Dispatch('Word.Application')
    print(doc_list)
    for path in doc_list:
        print(path)
        save_path = str(path).replace('doc','docx')
        doc = word.Documents.Open(path)
        doc.SaveAs(save_path,12, False, "", True, "", False, False, False, False)
        doc.Close()
        print('{} Save sucessfully '.format(save_path))
    word.Quit()

docx 库提取单个表格内容
在批量操作之前，首先需要搞定单个表格中的内容，只要我们搞定了单个 word，剩下的加一个递归即可
用 docx 库对 word 中表格内容提取，主要用到 Table、rows、cells 等对象

Table 表示表格，rows 表示表格中行列表，以迭代器形式存在；cells 表示单元格列表，也是以迭代器形式

操作之前，需了解下面几个基础函数


通过 Document  函数读取文件路径，返回一个 Document 对象


Document.tables 可返回 word 中的表格列表;


table.rows 返回表格中的行列表;


row.cells 返回该行中含有的单元格列表;


cell.text 返回该单元格中文本信息


了解了上面内容之后，接下来的操作思路就比较清晰了；word 表格中文本信息可以通过两个 for 循环来完成：第一个 for 循环获取表格中所有行对象，第二个 for 循环定位每一行的单元格，借助 cell.text 获取单元格文本内容；
用代码试一下这个思路是否可行
	document = docx.Document(doc_path)
    for table in document.tables:
        for row_index,row in enumerate(table.rows):
            for col_index,cell in enumerate(row.cells):
                print(' pos index is ({},{})'.format(row_index,col_index))
                print('cell text is {}'.format(cell.text))

会发现，最终提取到的内容是有重复的，，，

出现上面原因，是由于单元格合并问题，例如下面表格的单元格 是 合并了 (1,1)->(1,5)，docx 库在处理这类合并单元格 时并没有当成一个，而是以单个形式进行处理，因此 for 迭代时 (1,1)->(1,5) 单元格返回了五个，每一个单元格文本信息都返回  是

面对以上文本重复问题，需要添加一个去重机制， 姓名、性别、年龄...学历学位 等字段作为列名 col_keys，后面王五、女、37、... 学士 等作为col_values，提取时设定一个索引，偶数为 col_keys, 奇数为 col_vaues ；
代码重构后如下:
	document = docx.Document(doc_path)
    col_keys = [] # 获取列名
    col_values = [] # 获取列值
    index_num = 0
    # 添加一个去重机制
    fore_str = ''
    for table in document.tables:
        for row_index,row in enumerate(table.rows):
            for col_index,cell in enumerate(row.cells):
                if fore_str != cell.text:
                    if index_num % 2==0:
                        col_keys.append(cell.text)
                    else:
                        col_values.append(cell.text)
                    fore_str = cell.text
                    index_num +=1

    print(f'col keys is {col_keys}')
    print(f'col values is {col_values}')

最终提取后的效果如下

批量 word 提取，保存至 csv 文件中
能够处理单个 word 文件之后，一个递归即可提取到所有 word 文本表格内容，最后利用 pandas 把获取到的数据写入到 csv 文件即可！
def GetData_frompath(doc_path):
    document = docx.Document(doc_path)
    col_keys = [] # 获取列名
    col_values = [] # 获取列值
    index_num = 0
    # 添加一个去重机制
    fore_str = ''
    for table in document.tables:
        for row_index,row in enumerate(table.rows):
            for col_index,cell in enumerate(row.cells):
                if fore_str != cell.text:
                    if index_num % 2==0:
                        col_keys.append(cell.text)
                    else:
                        col_values.append(cell.text)
                    fore_str = cell.text
                    index_num +=1
    return col_keys,col_values

pd_data = []
for index,single_path in enumerate(wordlist_path):
    col_names,col_values = GetData_frompath(single_path)
    if index == 0:
        pd_data.append(col_names)
        pd_data.append(col_values)
    else:
        pd_data.append(col_values)

df = pd.DataFrame(pd_data)
df.to_csv(word_paths+'/result.csv', encoding='utf_8_sig',index=False)

证件号、身份证号格式
打开生成的 csv 文件会发现联系方式、身份证号 两栏的数字格式是以数值存储，不是我们想要的类型，想要完整展示，需存储之前把数值转化为文本

解决方法，找到所在的单元格，前面元素前面加一个 ’\t‘ 制表符即可
col_values[7] = '\t'+col_values[7]
col_values[8] = '\t'+col_values[8]


源码获取
本案例中用到的 源码数据获取方式，关注微信公号：小张Python ，在公众号后台回复关键字：210328 即可！
小结
本案例中只用到了 docx 库中的一部分方法，主要涉及到了 word 中 Table 的基本操作，对于一些从事文职工作的同学来说日常工作中可能会遇到上面相似问题，因此特意分享在这里，希望能够对大家有所帮助
好了，以上就是本篇文章的全部内容了，最后感谢大家的阅读，我们下期见！

平时我们在用 WPS 表格处理数据的时候，特别是单价或者总价的地方只输入了数字，数字前面没有人民币符号，后面也没有添加“元”，有时候我们确实需要显示人民币符号和在数字后面显示“元”，那我们应该怎么办呢？不会要人工一个个地修改和输入吧？



如上图红框中的数字就是没有人民币符号，后面也没有“元”，下面我们来详细说一下如何批量添加人民币符号和“元”。 

1、在数字前面批量添加人民币符号 

1.1 选择所需要添加的数字所在单元格 >> 将鼠标移动到这些单元格上面并点击鼠标右键 >> 点击“设置单元格格式”。



1.2 在单元格格式中点击切换到“数字”>> 在分类中点击“货币”，调整小数位数后点击【确定】按钮即可。



调整之后的数字前面都已经添加上了人民币符号，具体见下图：



2、在数字后面批量添加“元” 

选择所需要添加的数字所在单元格 >> 将鼠标移动到这些单元格上面并点击鼠标右键 >> 点击“设置单元格格式”>> 在单元格格式中点击切换到“数字”>> 在分类中点击“自定义”>> 在“类型”中点击“G/通用格式”并在其后面添加上“ 元”>> 点击【确定】按钮即可。



调整之后的数字后面都已经添加上了“ 元”，具体见下图：



3、在数字前面添加人民币符号在后面添加“元” 

选择所需要添加的数字所在单元格 >> 将鼠标移动到这些单元格上面并点击鼠标右键 >> 点击“设置单元格格式”>> 在单元格格式中点击切换到“数字”>> 在分类中点击“自定义”>> 在“类型”中点击“¥#,##0.00;[红色]¥-#,##0.00”并在“0.00”后面添加上“元”>> 点击【确定】按钮即可。



调整之后的数字前面已经都加上了人民币符号，数字后面也都添加上了“元”，具体见下图：



如果想要数字前面或后面批量添加其他符号或者文字，同样是通过设置单元格来完成，特别是通过数字分类中的“自定义”来实现。 

来源：boke112联盟 - https://boke112.com/postwd/8225.html​​​​


 

背景
因为报告是由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

点击运行