Excel VBA使Word文档表中的内容居中

Question

我正在Excel中创建一个宏，该宏在Word中的特定书签处插入一个表。表插入过程和更新表的过程就像我期望的那样工作

现在，我正在尝试将表中的数据对齐。我使用以下代码来对齐表格单元格中的数据：

objTbl.Cell(i, 1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
objTbl.Cell(i, 1).Range.ParagraphFormat.Alignment = wdAlignParagraphRight

这非常有效，正是我希望数据显示的方式。

我遇到的唯一问题是数据显示在每个单元格的顶部，我希望它位于每个单元格的中间。这可能吗？我试图用以下代码调整行高：

WrdApp.ActiveDocument.Tables(1).Rows.Height = 15

我试过15岁和20岁，但都没什么区别。我的VBA经验绝大多数都在Excel中。因此，这是一个从Excel中编程Word的学习曲线。如有任何建议，我们将不胜感激。提前感谢你的帮助。。。。。。。

Answer 1

也许你应该把60分钟的研究时间花在录制宏上。虽然您不想使用录制的代码，但它会将您指向需要使用的对象和属性。当然，你确实需要知道如何使用UI来首先实现你想要的东西。

Sub CellAlignment()
'
' CellAligment Macro
'
'
Selection.SelectCell
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
End Sub

记录了代码后，您可以使用在线帮助或对象资源管理器来获取指向更可用代码的指针，例如

ActiveDocument.Tables(1).Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter