2017-08-09 133 views
1

嘗試將表格居中,但這似乎不起作用。尋找某種「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 

回答

0

試着這麼做:

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

您可以ActiveDocument.Tables(1)撥弄選擇哪些表到中心。

希望有所幫助。

+0

雖然我將如何定義一個新表?我沒有把它作爲一張桌子,所以我認爲那部分給了我一個錯誤。或者我可以做到這一點,而無需定義表格。 – Philip

+0

在我的手中,第一個'wdapp.Selection.PasteAndFormat'創建一行表;每個後續的'wdapp.Selection.PasteAndFormat'都會在表中添加另一行。然後,'ActiveDocument.Tables(1).Rows.Alignment = wdAlignRowCenter'將表格居中在頁面上。在不知道你正在複製什麼類型的數據或你得到什麼錯誤的情況下,很難提供幫助。 – xidgel