如何把Word里的图片批量转换成嵌入式

发表于 更新于

这原本是2020年1月15日，我在百度问答中回答网友的问题，现收录到本博客。

1
2
3
4
5
6
7
8
Sub 图片版式转换()
Dim n '图片个数
Dim oShape As Variant
On Error Resume Next
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
    ActiveDocument.Shapes(1).ConvertToInlineShape
    Next n
End Sub

参考: 如何把word里的图片批量转换成嵌入式