Выровнять содержимое ячейки по горизонтали во всей строке в Word

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

Обратите внимание, что ничего не нужно выбирать.