word 宏命令 表头与图名的设置

表格的批量调整：

   Sub adjustTable()
  '该代码可以批量调整技术报告的表格格式，每行有注释，可以情况进行自定义调整
  Dim i, j, k As Integer
  On Error Resume Next
  T = Timer
  Application.Browser.Target = wdBrowseTable
  Application.ScreenUpdating = False
  k = ActiveDocument.Tables.Count
  For i = 1 To k
   ActiveDocument.Tables(i).Style = "网格型 5" '设置表格样式为网格型 5
   For m = 1 To ActiveDocument.Tables(i).Rows.Count
     ActiveDocument.Tables(i).Rows(m).Range.Style = "表中文字"
    If m = 1 Then ActiveDocument.Tables(i).Rows(m).Range.Style = "表头"
     
     
   Next m
  '设置每个表格前一段落为图表头格式
  ActiveDocument.Tables(i).Range.Previous(wdParagraph, 1).Select
  Selection.Style = ActiveDocument.Styles("表") '设置表头的样式为样式名为“图表头”的样式，可更改成存在的样式
  j = j + 1
  'StatusBar = "正在调整第" & i & "个表格,共" & k & "个表格，请稍候..."
  Next i
  Application.ScreenUpdating = True
  'MsgBox "恭喜您!" & Chr(13) & Chr(10) & "已处理完" & j & "个表格,耗时" & Format(Timer - T, "0.00" & "秒。"), , "by sysware "
  End Sub

图片的批量调整

     Sub adjustImage()
      On Error Resume Next
  '该代码可以批量调整技术报告的表格格式，每行有注释，可以情况进行自定义调整
  For i = 1 To ActiveDocument.InlineShapes.Count
  If ActiveDocument.InlineShapes(i).Type = 3 Then
  ActiveDocument.InlineShapes(i).Range.Style = "图表居中"
  ActiveDocument.InlineShapes(i).Range.Next(wdParagraph, 1).Select
  Selection.Style = ActiveDocument.Styles("图")
   End If
  Next i
  End Sub