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.csdn.net/postedit/102366698開啓宏功能。）

3.隨便輸入宏名稱點擊創建

4.將開頭的代碼粘貼到代碼框中,注意修改路徑爲要修改的文件路徑

5.點擊執行，等待完成即可

以上就是批量讓word中的所有表格統一根據窗口自動調整的方法。

注意：這種批量修改後最好再檢查一下，有可能部分表格因爲某種原因未實現居中效果，需要手動調整。