word 宏加粗
Sub table自动()
'
' table自动 宏
For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).Style = "comac"
ActiveDocument.Tables(i).Rows(1).Cells(1).Range.Font.Bold = True
ActiveDocument.Tables(i).Rows(1).Cells(2).Range.Font.Bold = True
Next
End Sub