2、点击【工具】-【引用】,找到【Microsoft Word 16.0 Object Library】勾选添加 ps:重点是Microsoft Word xxx Object Library,其他.0应该也行
3、点击【插入】-【模块】,复制以下代码进编辑器 代码:
Sub Main()
On Error Resume Next
Dim temp As New Word.Document, tmpShape As Shape, tmpSlide As Slide
For Each tmpSlide In ActivePresentation.Slides
For Each tmpShape In tmpSlide.Shapes
temp.Range().Text = temp.Range() + tmpShape.TextFrame.TextRange.Text
Next tmpShape
Next tmpSlide
temp.Application.Visible = True
End Sub