更改表的第一行的行高度和段落线间距

Question

我将一组从Excel复制到Word，并格式化每个表格。

For t = 1 To 6
    With appWD.Selection.Tables(t)
        .TopPadding = 0
        .BottomPadding = 0
        .LeftPadding = 0.11
        .RightPadding = 0
        .Spacing = 0
        .AllowPageBreaks = True
        .AllowAutoFit = True
        .Rows.SetHeight RowHeight:=12, HeightRule:=2
    End With
Next t

为了容纳较大的字体，我需要更改第一行的行高度，并更改段落线间距。

这件代码无法做到这一点。

For t = 1 To 6
    With appWD.Selection.Tables(t).Rows(1)
        .SetHeight RowHeight:=18
        .ParagraphFormat.LineSpacing = 15
    End With
Next t

我正在Mac上运行Excel/Word 2016。

Answer 1

使用AppWD.Selection是糟糕的实践。您有一个要处理的开放文档，因此请直接参考。例如：

With wdDoc
  For t = 1 To 6
    With .Tables(t)
      .TopPadding = 0
      .BottomPadding = 0
      .LeftPadding = 0.11
      .RightPadding = 0
      .Spacing = 0
      .AllowPageBreaks = True
      .AllowAutoFit = True
      .Rows.SetHeight RowHeight:=12, HeightRule:=2
      .Rows(1).SetHeight RowHeight:=18, HeightRule:=1
      .Rows(1).Range.ParagraphFormat.LineSpacing = 15
    End With
  Next t
End With

请注意，第1行方法的合适的Heightrule参数包含。还请注意，所有处理都是在单个循环中完成的，而不是您使用的代码两个循环。