Excel VBA 在 Word 文档表中居中内容

剃须

我正在 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 的一点学习曲线。任何建议,将不胜感激。在此先感谢您的帮助.......

蒂莫西·赖拉特

也许您应该花 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

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章