摘要： 打开ppt按Alt+F11，插入--模块， 选中“工具”--“引用”--MicroSoft Word 。。 复制代码： Sub Main() On Error Resume Next Dim temp As New Word.Document, tmpShap As Shape, tmpSlide 阅读全文