.ParagraphFormat.Alignment = wdAlignParagraphCenter不对齐

Question

Do While Z <= partcount - 3
    With wordapp.Documents(worddoc).Tables(2)
        With .Cell(Z, 1)
            With .Range
                .ParagraphFormat.Alignment = wdAlignParagraphCenter
                With .Font
                    .Size = 11
                    .Bold = False
                    .ColorIndex = 1
                    .Name = "Arial"
                End With
            End With
        End With
    End With
    Z = Z + 1
 Loop

宏将一直运行，但单元格不会与中心对齐。所有其他的格式化works...probably都缺少一些非常基本的东西，我总是会遇到这种情况。

Answer 1

我想通了。因为我正在从excel中创建一个word实例(我在问题中忽略了这一点)，所以问题出在word的预定义属性上。新代码：

Do While Z <= partcount + 1
    With wordapp.Documents(worddoc).Tables(2).Cell(Z, 1).Range
        .ParagraphFormat.Alignment = 1
        With .Font
            .Size = 11
            .Bold = False
            .ColorIndex = 1
            .Name = "Arial"
        End With
    End With
    Z = Z + 1
Loop

谢谢!