ALTF11调出开发窗口 加入引用 插入模块 输入代码运行 1 Sub Main()2 On Error Resume Next3 Dim temp As New Word.Document, tmpShape As Shape, tmpSlide As Slide4 For Each tmpSlide In ActivePresentation.Slides5 For Each tmpShape In tmpSlide.Sha…
最近接到一个朋友的需求,需要将大量的PPT中的文字提取出来并识别其中是否有错别字。 整理思路如下
将PPT另存为pptm格式,这是一种可以执行代码的文件将以下代码放到VBE中,运行即可提取文字
Public Sub Main()Dim temp As String, tmpShape …