！！！紧急求助！！！如何利用WordVBA一次性调整所有的表格大小？？？

新诺司机-沃克灵

大家好！紧急求助！！！我的word中的表格是从Excel中粘贴过来的，表格中的文字和内容过于大，想调整缩小：
考虑到一个一个调整太过于麻烦，所以想用VBA处理

还恳请大家技术援助！

谢谢！！！

新诺司机-沃克灵

这是相关附件： 相关附件.zip (37.25 KB, 下载次数: 9) 2019-1-26 15:26 上传 点击文件名下载附件

新诺司机-沃克灵

自己录制不出调整表格大小的部分，很尴尬...

ming0018

1. Sub setTableHeight()
   
2.     Dim doc As Document
   
3.     Set doc = ActiveDocument
   
4.     If doc.Tables.Count = 0 Then Exit Sub
   
5.     For Each myTable In doc.Tables
   
6.         With myTable
   
7.             With .Range
   
8.                 .Rows.Height = CentimetersToPoints(0.5) '行高
   
9.                 .Font.Size = 9
   
10.             End With
    
11.         End With
    
12.     Next
    
13. End Sub

复制代码

新诺司机-沃克灵

ming0018 发表于 2019-1-28 09:26

感谢您！加您一下好友吧^.^

另外还有个问题：
For Each myTable In doc.Tables这一句中的Table前为什么要加my？这个变量没有被定义？

ming0018

新诺司机-沃克灵 发表于 2019-1-28 19:17
感谢您！加您一下好友吧^.^

另外还有个问题：

最好定义一下，只是我临时写的，没预先定义它。

chendeyan126

ming0018 发表于 2019-1-28 09:26

简单实用。