Excel VBA Word 文档中的内容居中 table

Question

我正在 Excel 中创建一个宏，它在 Word 中的特定书签处插入一个 table。 table 插入过程和更新 table 的过程如我所料。

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

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

记录代码后，您可以使用 online help 或对象资源管理器获取指向更多可用代码的指针，例如

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

Excel VBA Word 文档中的内容居中 table

Excel VBA Centering contents in a Word Document table

excel

vba

ms-word

text-alignment