参考宏代码:Sub ShaToInSha() Dim Sha As Shape For Each Sha In ActiveDocument.Shapes Sha.ConvertToInlineShape NextEnd Sub