WPS（word）中批量设置表格根据窗口居中对齐

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.youkuaiyun.com/postedit/102366698开启宏功能。）

3.随便输入宏名称点击创建

4.将开头的代码粘贴到代码框中,注意修改路径为要修改的文件路径

5.点击执行，等待完成即可

以上就是批量让word中的所有表格统一根据窗口自动调整的方法。

注意：这种批量修改后最好再检查一下，有可能部分表格因为某种原因未实现居中效果，需要手动调整。