在整个行中水平对齐单元格

Question

基本上，要选择一行并将中心对齐每个单元的内容，但似乎无法使其正常工作。什么都不做：

For r = 1 To rCount
    wd.ActiveDocument.Tables(c).Cell(r, 1).Select
    textVal = wd.Selection.Text
    If textVal Like "Job*" Then
        wd.Selection.Font.Allcaps = True
        wd.ActiveDocument.Tables(c).Rows(r).Alignment = wdAlignRowCenter
    End If
Next

wd.ActiveDocument.Tables(c).Rows(r).Alignment = wdAlignRowCenter似乎只是在谈论该行本身在页面上而不是内容的对齐。我只能在一个单元格上找到文档，但不能找到整个行。

有什么建议？

Answer 1

您需要更改段落格式，而不是表对齐：

With wd.ActiveDocument.Tables(c)
  For r = 1 To .Rows.Count
    With .Cell(r, 1)
      If InStr(.Range.Text, "Job") = 1 Then
        .Range.Font.AllCaps = True
        .Row.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
      End If
    End With
  Next
End With

也要注意，没有任何选择。