For i = 1 To ActiveDocument.Tables.Count ActiveDocument.Tables(i).Cell(1, 1).Select With Selection .SelectRow .Font.Bold = True .Shading.BackgroundPatternColor = -603923969 End With ActiveDocument.Tables(i).Range.Font.Size = 10 Next 宏内容:修改表格第一行字体为粗体,