Office 2013 为例：
视图 – 宏 – 查看宏 – 创建
在代码框里填写下列代码，然后保存运行。
Sub 非嵌入转嵌入()
Dim oShape As Shape
For Each oShape In ActiveDocument.Shapes
oShape.ConvertToInlineShape
Next
End Sub
LIUGUOFENG THE DARKEST HOUR IS THAT BEFORE THE DAWN
Office 2013 为例：
视图 – 宏 – 查看宏 – 创建
在代码框里填写下列代码，然后保存运行。
Sub 非嵌入转嵌入()
Dim oShape As Shape
For Each oShape In ActiveDocument.Shapes
oShape.ConvertToInlineShape
Next
End Sub