如何删除 Microsoft Word 中的所有形状

Question

我想删除 Word 中的所有形状。我该怎么办？请帮帮我。

我用红色标记来查看：

Answer 1

VBA 是实现此目的的一种方法。请按照以下步骤操作：

• “开发人员”选项卡
• 宏（新标题为“RemoveShapes”（或任何您想要的））
• 点击“加号”
• 复制/粘贴（以下）
• 运行（下次只需选择该宏）

---

For i = ActiveDocument.Shapes.Count To 1 Step -1  
    ActiveDocument.Shapes(i).Delete  
Next i

信用：https://social.msdn.microsoft.com/Forums/en-US/a514a54a-fc33-4c8b-9e9c-1f179b5e1d46/word-vba-to-delete-all-shapes?forum=isvvba