Word 使用宏非嵌入图片批量转嵌入图片

Office 2013 为例:

视图 – 宏 – 查看宏 – 创建

在代码框里填写下列代码,然后保存运行。

Sub 非嵌入转嵌入()
Dim oShape As Shape
For Each oShape In ActiveDocument.Shapes
oShape.ConvertToInlineShape
Next
End Sub

reeoo.com - web design inspiration

发表评论

电子邮件地址不会被公开。 必填项已用*标注

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。