版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA版权协议,转载请附上原文出处链接和本声明。
4 篇文章0 订阅
订阅专栏
Attribute VB_Name = "CreateNewMacros" Sub www() Dim oDoc As Document Dim oTable As Table Set oDoc = Documents.Open("C:\Users\测试用例\1.doc") '文档路径 For Each oTable In oDoc.Tables oTable.AutoFitBehavior (wdAutoFitWindow) '根据窗口调整内容 Next MsgBox "完成!" End Sub
注:代码来自网络
1.打开word
2.点击开发工具-----宏(如果【宏】显示为灰色,需参考https://mp.csdn.net/postedit/102366698开启宏功能。)
3.随便输入宏名称点击创建
4.将开头的代码粘贴到代码框中,注意修改路径为要修改的文件路径
5.点击执行,等待完成即可
以上就是批量让word中的所有表格统一根据窗口自动调整的方法。
注意:这种批量修改后最好再检查一下,有可能部分表格因为某种原因未实现居中效果,需要手动调整。