在Excel生成的Word文档中对齐表格列时出现错误438

Question

我花了很多时间试图弄清楚如何完成这项任务但无济于事。

我们使用Excel中的数据基于模板填充新单词doc。 Excel VBA脚本获取数据并将其粘贴到指定书签的Word文档中。这很有效。

但是，当我尝试对齐表中已存在的列时，会抛出错误。我尝试了其他变种，但我只是在黑暗中拍摄。

代码编译没有错误。

' This code runs fine
ActiveDocument.Tables(1).AutoFitBehavior wdAutoFitWindow
ActiveDocument.Tables(1).PreferredWidthType = wdPreferredWidthPercent
ActiveDocument.Tables(1).PreferredWidth = 100

ActiveDocument.Tables(1).Columns(2).Select

' I get an error "438 - Object Doesn't support this property or method"
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

任何想法都表示赞赏。

道格

Answer 1

尝试这样的事情：

Dim c As Cell, t as Table
Set t = ActiveDocument.Tables(1) 
With t.Columns(2) 
    For Each c In .Cells 
        c.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter 
    Next c 
End With