Office 2013 为例：

视图 – 宏 - 查看宏 - 创建

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

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