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