vba - 当表格标题出现在垂直合并的行中时如何加粗表格标题

Question

我想加粗表头，

我使用代码

Selection.Tables.Item(1).Rows(1).Range.Bold = True

但对于垂直合并行中的表头，它不起作用。

然后我将代码更改如下，但如图所示仍有两个单元格不是粗体。谁能给我一些帮助？

Dim i, t As table
If selection.Tables.count > 0 Then
Set t = selection.Tables.Item(1)
  For i = 1 To t.Columns.count
    t.Range.Cells(i).Range.Font.Bold = -1
  Next i
End If

标签： vbams-word

Answer 1

尝试：

Sub Demo()
Dim i As Long
With Selection.Tables(1).Range
  For i = 1 To .Cells.Count
    If .Cells(i).RowIndex < 3 Then
      .Cells(i).Range.Font.Bold = True
    Else
      Exit For
    End If
  Next
End With
End Sub