vbscript 加粗表头-18-7-26

Posted 2021-05-21

Sub BoldTableHeaderVertMergedCells()
    Dim tbl As Word.Table
    Dim cel As Word.Cell
    Dim sel As Word.Selection
    Dim nrCols As Long, nrCol As Long

    Set sel = Selection
    nrCol = 1
    If sel.Information(wdWithInTable) Then
        Set tbl = sel.Tables(1)
        nrCols = tbl.Columns.Count
        Set cel = tbl.Cell(1, 1)
        cel.Select
        Set sel = Selection
        sel.MoveEnd wdCell, nrCols - 1
        sel.Font.Bold = True
    End If
End Sub