excel vbaのcenter table to word doc

Question

テーブルを中央に揃えようとしていますが、これは機能していないようです。何らかの「wdtablecenter」参照を探しています。

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

あなたがセンターにどのテーブルを選択するためにActiveDocument.Tables(1)をいじることができますのようなものを試してみてください

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

。

願っています。