vba批量化调整word的图和图表标题

@vba代码

   ' 将图片进行居中操作
Sub ChangePictureFormate()Dim oPara As ParagraphDim oRange As RangeDim i As LongDim beforeIsPicture As BooleanbeforesIsPicture = False' 确保文档中至少有图片If ActiveDocument.InlineShapes.Count = 0 ThenMsgBox "没有找到图片。"Exit SubEnd If' 遍历所有段落For Each oPara In ActiveDocument.Paragraphs' 检查段落是否包含图片'wdAlignParagraphLeft:         左对齐
'wdAlignParagraphCenter: 居中对齐
'wdAlignParagraphRight: 右对齐
'wdAlignParagraphJustify: 两端对齐
'wdAlignParagraphDistribute：分散对齐（文本均匀分布在行的左右两边'所有的图片居右操作If oPara.Range.InlineShapes.Count > 0 ThenoPara.Alignment = wdAlignParagraphRightEnd IfNext oParaMsgBox "程序运行完成！"
End Sub' 更改图片标题
Sub ChangePictureLabelFormate()Dim oPara As ParagraphDim oRange As RangeDim i As LongDim beforeParaIsPicture As BooleanbeforeParaIsPicture = False' 确保文档中至少有图片If ActiveDocument.InlineShapes.Count = 0 ThenMsgBox "没有找到图片。"Exit SubEnd If' 遍历所有段落For Each oPara In ActiveDocument.ParagraphsDebug.Print oPara.Range.TextDebug.Print beforeParaIsPictureIf (beforeParaIsPicture = True) Then'Debug.Print 1oPara.Range.Font.Bold = TrueoPara.Alignment = wdAlignParagraphLeftEnd IfIf oPara.Range.InlineShapes.Count > 0 Then'选中下一个自然段'Set oRange = oPara.Range'oRange.Collapse Direction:=wdCollapseEnd'oRange.Move Unit:=wdParagraph, Count:=1'oRange.Font.Bold = True'MsgBox oRange.TextbeforeParaIsPicture = TrueElsebeforeParaIsPicture = FalseEnd IfNext oPara'MsgBox "程序运行完成！"
End Sub‘’对所有的表格进行批量化的操作
Sub ChangeAllTables()Dim tbl As TableDim selectionRange As Range' 创建一个新的 Range 对象以存储所有表格的合并范围Set selectionRange = ActiveDocument.Range' 遍历每个表格并扩展选择的范围For Each tbl In ActiveDocument.TablesWith tbl.PreferredWidthType = wdPreferredWidthPercent.PreferredWidth = 100.Range.Rows.Alignment = wdAlignRowCenterEnd WithFor Each Cell In tbl.Range.Cells' 更改单元格内所有文本的字体大小With Cell.Range.Font.Name = "宋体".Font.Name = "Times New Roman".Font.Size = 12 ' 设置为24号字.ParagraphFormat.Alignment = wdAlignParagraphRightEnd WithNext CellNext tblDebug.Print "所有表格调整完毕"End Sub‘’更改所有表格的图例
Sub SetFontSizeAboveTables()Dim tbl As TableDim rng As Range' 遍历文档中的所有表格For Each tbl In ActiveDocument.Tables' 设置 rng 为表格上方的段落Set rng = tbl.Rangerng.MoveStart wdParagraph, -1 ' 移动到表格的前一个段落rng.MoveEnd wdParagraph, 1 ' 种回到表格的结尾' 设置上方段落的字体大小为 12If rng.Paragraphs.Count > 0 Thenrng.Paragraphs(1).Range.Font.Size = 28rng.Paragraphs(1).Range.Font.Name = "宋体"rng.Paragraphs(1).Range.Font.Name = "Times New Roman"End IfNext tbl
End Sub