从excel vba中心表到word doc

【问题标题】：Center table to word doc from excel vba从excel vba中心表到word doc
【发布时间】：2018-01-17 22:18:44
【问题描述】：

试图使表格居中，但这似乎不起作用。寻找某种“wdtablecenter”参考。

Dim equip As Integer
equip = 11
Do While Sheet2.Cells(equip, 4).Value <> 0
    wdapp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Sheet2.Rows(equip).Copy
    wdapp.Selection.PasteAndFormat wdFormatOriginalFormatting
    wdapp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    equip = equip + 1
Loop

【问题讨论】：

标签： excel vba ms-word formatting

【解决方案1】：

尝试类似：

ActiveDocument.Tables(1).Rows.Alignment = wdAlignRowCenter

您可以使用ActiveDocument.Tables(1) 来选择要居中的表格。

希望有所帮助。

【讨论】：

我将如何定义一个新表？我没有将它设置为表格，所以我认为那部分给了我一个错误。或者我可以在不定义表格的情况下这样做吗？
在我手中，第一个wdapp.Selection.PasteAndFormat 创建了一个只有一行的表格；随后的每个wdapp.Selection.PasteAndFormat 都会向表中添加另一行。然后ActiveDocument.Tables(1).Rows.Alignment = wdAlignRowCenter 将表格置于页面中心。在不知道您正在复制什么类型的数据或遇到什么错误的情况下，很难提供帮助。