MSWord垂直对齐Excel中的单元格VBA

时间:2017-05-03 08:14:27

标签: excel vba excel-vba ms-word word-vba

我目前正在excel中创建一个函数,它将在MS word中创建一个表并用excel中的数据填充,我正在尝试格式化表并且在对齐方面存在一些问题。 我试图让每个表的前两行在中心垂直对齐,虽然它没有出现错误,但我没有看到任何变化。

然而,当我直接在MS word中运行相同的代码时,它没有任何问题。 Excel中的代码(单词对象创建为单词对象,tblnew设置为新创建的表格,其他格式更改为格式工作表格,即字体大小,单元格大小和内容)

    with word
        with tblnew
            .Rows(1).Cells.VerticalAlignment = wdAlignVerticalCenter
        end with
   end with

在单词的即时窗口中运行以下内容也可以

    activedocument.Tables(1).Rows(1).Cells.VerticalAlignment = wdAlignVerticalCenter

如果我的理解是正确的,“tblnew”应该已经引用了“actidocument.tables(1)”,所以代码应该是identicle,而“with word”对象应该意味着代码是用word执行的因为它本来就已经存在,所以我不确定问题出在哪里。

0 个答案:

没有答案