一次性全部删除图文框和文本框

fzh2618182

用OCR把PDF文件转换成Word文档，出现了大量的图文框和文本框。想用VBA一次性全部删除图文框和文本框（保留框中的内容），在网上找到了很多这类的VBA代码，都没有成功。今天找到了山菊花老师在“Word2019通用模板宏(2022元旦版)-Win10”中写的代码，我试用了一下，还是没有成功，页面上跳出要求调试的提示卡，进入调试程序一看还是某一代码出现黄色（在网上收集到的这类代码似乎都卡在这一环节）。 我在这方面还是门外汉，无奈，只能向大家求助，恳请请各位高手指教和帮助。我使用的是Word10 64位版本。

vbee

第2行代码，加一行 On Error Resume Next

fzh2618182

谢谢vbee老师，真是高手！代码能正常运转了。还有少数的文本框不能去除，可能是整个文档页数太多了（或者是整个代码还缺少些什么），多运转几下就可以了。能告诉我加的 On Error Resume Next这一句代码是什么意思吗？因为我曾试过网上好几个删除图文框的VBA都卡在这一句中。是我的Word版本问题吗？再次感谢您为我解惑！