word表批量处理小技巧（python+宏）

2024-05-10 23:34:23

1.选择所有的表

Sub SelectAllTables()

Dim tempTable As TableApplication.ScreenUpdating = False'判断文档是否被保护
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields ThenMsgBox "文档已保护，此时不能选中多个表格！"Exit Sub
End If
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
'添加可编辑区域
For Each tempTable In ActiveDocument.TablestempTable.Range.Editors.Add wdEditorEveryone
Next
'选中所有可编辑区域
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryoneApplication.ScreenUpdating = True

End Sub
上面代码用于选择word中所有表当我们运行完上面的宏后，我们所有打开的word中表已被选择，选中后可以改变表的统一所有表的样式

2.所表设置内容自适应

Sub SelectAllTables()
Application.Browser.Target = wdBrowseTable

For i = 1 To ActiveDocument.Tables.Count

ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent) '根据内容自动调整表格

ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow) '根据窗口自动调整表格

ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中

ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中
Next i

3.末行合并自动分类填充

def word1():
# 打开word文档
word = win32com.client.Dispatch(‘Word.Application’)
path = “D:\work\cs\测试记录.docx”
doc = word.Documents.Open(FileName=path, Encoding=‘gbk’)
for table in doc.Tables:

    youxiao=[0,1,2,3,4,5]youxiao.append(len(table.rows)-1)youxiao.append(len(table.rows)-2)istabl=Truefor index,row in enumerate( table.Rows):changdu=len(row.Cells)if(index  in youxiao):# print(index)word.Selection.SetRange(table.Cell(index+1,changdu-1).Range.Start, table.Cell(index+1,changdu).Range.End)word.Selection.Cells.Merge()else:if(istabl):table.Cell(index+1, changdu).Range.Text = "实际执行结果"istabl=Falseelse:table.Cell(index + 1, changdu).Range.Text = "通过"# table.AutoFitBehavior(wdAutoFitContent)
path = "D:\\work\\cs\\新建 Microsoft Word 文档4.docx"
doc.SaveAs(path)
doc.Close()
word.Quit()

4.统一加列

path=“D:\work\cs\新建 Microsoft Word 文档.docx”
doc =Document(path)
for table in doc.tables:
table.add_column(Cm(20))
doc.save(“D:\work\cs\新建 Microsoft Word 文档1.docx”)

word表批量处理小技巧（python+宏）相关推荐

wps的word文档怎么全选内容_word全选的快捷键选择Word文档内容小技巧
有可能很多人看了小编这个题目之后很不以为然,不就是选择文档吗?有什么大不了的,但是,你看完小编写的经验之后,再来进行评价.选择Word文档内容说白了就是选择文字,当中存在哪些技巧,听小编给你一一道来. ...
Word中的阿拉伯数字小技巧(转)
Word中的阿拉伯数字小技巧(转) 时间过得真快,又到了一年的年终,写各种各样的总结少不了要用到大大小小的数据.于是,笔者将Word中有关阿拉伯数字的小技巧整理出来供大家参考. 技巧一:将阿拉伯数字转 ...
ndbcluster 批量修改表空间_Excel小技巧：使用这招快速保护你的工作表
excel中批量保护或者隐藏工作表效果:当更改b或者d列的条件,对应的工作表就被隐藏或者保护!经常需要将工作表发给老板或者同事,有的表又不想让他们编辑,赶快使用这招保护你的工作表吧: 第一步:批量提取 ...
批量修改栏目名_Endnote中英文混排批量修改小技巧
来源:卓琳赵一鸣北医三院临床流行病学和循证医学如果参考文献量大,涉及多种类型和语言,手工附上参考文献非常低效,还是得借助文献管理软件.由于output style选择的不同,中文参考文献的书写 ...
Word空白页删除小技巧
平时在编辑Word文档的时候,是不是在中间或者最后一页的时候,常常会莫名出现空白页,而且这个空白页还经常是怎么删都删不掉的?这时候真的是很苦恼,特别是有页码设置的排版,无端端多出的空白页非常影响排版~ ...
4种删除Word空白页的小技巧，都是你需要用到的！
有时在使用Word办公软件时,经常会有空白页的出现,不管我们怎样删都是删不掉的,那么为了美观,你会怎样去做了?还没找到方法的朋友请看这里,小编为大家总结了4个关于Word空白页删除的方法,需要的拿去用 ...
python调用IE浏览器进行数据批量下载小技巧
一.为什么要使用浏览器下载? 使用场景:已经有了大量的数据下载链接信息,这些保存在txt文本中,每一行是一个完整的下载链接地址,很多人首先就会想到,直接使用迅雷批量下载就好了,确实如此,这也是最简单的 ...
关于跨DB增量（增、改）同步两张表的数据小技巧
有些场景下,需要隔离不同的DB,彼此DB之间不能互相访问,但实际的业务场景又需要从A DB访问B DB的情形,这时怎么办?我认为有如下常规的三种方案: 1.双方提供RESET API,需要访问不同DB ...
卸载注册表_系统小技巧：软件卸载不了？这里办法多
在正常情况下,我们都是通过软件程序组中的卸载图标,或利用控制面板中的"程序和功能"模块来卸载软件的.但有时,我们也会发现利用卸载图标无法卸载软件或者卸载图标干脆丢失找不到了,甚至控 ...

最新文章

热门文章