如何用vba宏设置表格的行高，请高手们抽空看看，谢谢。

yzcg · 发表于 2012-8-30 19:46

本帖最后由 yzcg 于 2012-8-30 19:47 编辑

我有篇文档，里面有几个表格，需要把它们的行高设置为最小值。
经过搜索查询，使用vba，已可以选定全部表格了，但是在录制新宏Macro2设置行高后发现，新打开文档，运行全部选中表格没问题，再运行Macro2设置行高时报错。不过对手工选中的表格倒是可以正常运行。
不知道哪有问题，请高手指点，谢谢。

1.zip (6.24 KB, 下载次数: 40)

另外我是新手，对word的vba不懂，像选中表格的语句，虽然作者已添加了解释，我还是搞不清，如果方便，也请指点一二。再谢。
--------------------------------------------
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
'添加可编辑区域
For Each tempTable In ActiveDocument.Tables
tempTable.Range.Editors.Add wdEditorEveryone
Next
'选中所有可编辑区域
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

yzcg · 发表于 2012-9-12 20:12

高手们不感兴趣奥

pemp · 发表于 2012-9-12 20:54

试试下面的代码

Sub test()
Dim t As Table
For Each t In ActiveDocument.Tables
t.Rows.HeightRule = wdRowHeightAtLeast
Next
End Sub

复制代码

yzcg · 发表于 2012-9-15 15:31

高手！
谢谢您的热心帮助。

274242487 · 发表于 2022-12-14 15:06

我也遇到这种问题，但没人回答

		自动登录	找回密码
密码			免费注册

[求助] 如何用vba宏设置表格的行高，请高手们抽空看看，谢谢。