从excel vba中心表格Word文档

问题描述：

尝试将表格居中，但这似乎不起作用。寻找某种“wdtablecenter”参考。从excel vba中心表格Word文档

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

答

试着这么做：

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

您可以ActiveDocument.Tables(1)拨弄选择哪些表到中心。

希望有所帮助。

虽然我将如何定义一个新表？我没有把它作为一张桌子，所以我认为那部分给了我一个错误。或者我可以做到这一点，而无需定义表格。 – Philip

在我的手中，第一个'wdapp.Selection.PasteAndFormat'创建一行表;每个后续的'wdapp.Selection.PasteAndFormat'都会在表中添加另一行。然后，'ActiveDocument.Tables（1）.Rows.Alignment = wdAlignRowCenter'将表格居中在页面上。在不知道你正在复制什么类型的数据或你得到什么错误的情况下，很难提供帮助。 – xidgel

从excel vba中心表格Word文档

相关推荐