各位大佬，咨询一个问题，如果一个文档有好多表格，怎么实现根据窗口自动调整表格

chen8587216

各位大佬，咨询一个问题，如果一个文档有好多表格，怎么实现根据窗口自动调整表格。。



单独一个一个表格可以调整，但是表格全选这个按钮就会变灰。。。。。。。。

蜀中草莽

Sub r888()     
Dim 表 As Table   
  For Each 表 In ActiveDocument.Tables   
      表.Select     
    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)  
   Next
End Sub

chen8587216

蜀中草莽 发表于 2023-8-27 10:32
Sub r888()     
Dim 表 As Table   
  For Each 表 In ActiveDocument.Tables   

谢了，真的可以，感谢感谢。。