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

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

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