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 宏内容:修改表格第一行字体为粗体,
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> <tit
一.批量修改表格,实现所有表格的宽度根据窗口自动调整. Sub test() ' ' test 宏 ' ' Dim i As Table, N As Integer On Error Resume Next For Each i In ActiveDocument.Tables i.AutoFitBehavior (wdAutoFitWindow) Next i Application.ScreenUpdating = True End Sub