word文档中，宏调整表格的行高列宽代码

在Word文档中，宏是一种强大的自动化工具，可以编写自定义脚本来完成特定任务，包括调整表格的行高和列宽。以下是一个简单的Excel VBA宏示例，它可以在Word中运行，用于动态调整表格：

Sub AdjustTableSize()
    Dim rng As Range ' 定义范围，这里假设是我们要调整的表格区域
    Set rng = Selection.Tables(1).Range ' 通过"Tables"集合选取第一个表格
    
    ' 调整行高
    rng.Rows.Height = Application.InputBox("请输入新的行高 (厘米)：", "设置行高")
    
    ' 调整列宽
    For Each col In rng.Columns
        col.Width = Application.InputBox("请输入新的列宽 (厘米)：", "设置列宽", col.Width)
    Next col
End Sub

要使用这个宏，你需要按照以下步骤操作：
1. 打开包含表格的Word文档。
2. 按`Alt + F11`打开VBA编辑器。
3. 点击“插入”->“模块”，将上述代码粘贴到新创建的模块窗口中。
4. 运行宏：按`F5`或者选择菜单栏的“运行”->“运行宏”->选择“AdjustTableSize”。
5. 按照提示输入新的行高和列宽数值。