Sub bachReplaceBiaozhongyangshi()
Dim image As InlineShape
For Each image In ActiveDocument.InlineShapes
image.Select
If Selection.Style <> ActiveDocument.Styles("Figure") Then
Selection.Style = ActiveDocument.Styles("Image")
End If
Next image
End Sub
批量替换样式
最新推荐文章于 2024-09-05 22:19:32 发布