从excel vba中心表格Word文档

试图居中表，但这似乎并没有工作。 寻找某种“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 

Answer 1

尝试像这样：

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

您可以摆弄ActiveDocument.Tables(1)来select哪个表居中。

希望有所帮助。