求助大神！用word vba 自动改变表格高度和宽度。

三三008

制作公司电话表，由于独立表格较多，每个表格的行高，宽度都不一样，为能统一每个表格，想用word vba程序编辑一个可以 自动改变表格高度和宽度的宏。具体数据见附件。

三三008

另外，如何指定当前表格自己改变，而不是文件中所有表格。

tmtony

用Word录制宏可实现不？

三三008

tmtony 发表于 2018-3-21 08:01
用Word录制宏可实现不？

就是因为录制不了，之前试过。

三三008

tmtony 发表于 2018-3-21 08:01
用Word录制宏可实现不？

Sub 设置每列宽度()

If MsgBox("设置每列宽度？", vbYesNo + vbQuestion) = vbYes Then
For i = 1 To ActiveDocument.Tables.Count
' MsgBox (ActiveDocument.Tables(i).Cell(1, 1).Range.Text)
ActiveDocument.Tables(i).Columns(1).PreferredWidth = 35
ActiveDocument.Tables(i).Columns(2).PreferredWidth = 11
ActiveDocument.Tables(i).Columns(3).PreferredWidth = 11
ActiveDocument.Tables(i).Columns(4).PreferredWidth = 13
ActiveDocument.Tables(i).Columns(5).PreferredWidth = 13
ActiveDocument.Tables(i).Columns(6).PreferredWidth = 17
Next
MsgBox ("完成")
Else
MsgBox ("任务取消")
End If
End Sub

三三008

能不能帮我把这个VBA改成指定行的列设置，而不是每行每列？

Sub 设置每列宽度()

If MsgBox("设置每列宽度？", vbYesNo + vbQuestion) = vbYes Then
For i = 1 To ActiveDocument.Tables.Count
' MsgBox (ActiveDocument.Tables(i).Cell(1, 1).Range.Text)
ActiveDocument.Tables(i).Columns(1).PreferredWidth = 35
ActiveDocument.Tables(i).Columns(2).PreferredWidth = 11
ActiveDocument.Tables(i).Columns(3).PreferredWidth = 11
ActiveDocument.Tables(i).Columns(4).PreferredWidth = 13
ActiveDocument.Tables(i).Columns(5).PreferredWidth = 13
ActiveDocument.Tables(i).Columns(6).PreferredWidth = 17
Next
MsgBox ("完成")
Else
MsgBox ("任务取消")
End If
End Sub