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
雖然我將如何定義一個新表?我沒有把它作爲一張桌子,所以我認爲那部分給了我一個錯誤。或者我可以做到這一點,而無需定義表格。 – Philip
在我的手中,第一個'wdapp.Selection.PasteAndFormat'創建一行表;每個後續的'wdapp.Selection.PasteAndFormat'都會在表中添加另一行。然後,'ActiveDocument.Tables(1).Rows.Alignment = wdAlignRowCenter'將表格居中在頁面上。在不知道你正在複製什麼類型的數據或你得到什麼錯誤的情況下,很難提供幫助。 – xidgel