我有一大堆PPT文件,想要提取所有的文本并将其整合到一个大的文本文件中。每个源(PPT)文件都有多个页面(幻灯片)。我不关心格式-只关心文字。
我可以通过在PPT中使用^ A ^ C,然后在记事本中使用^ V手动完成此操作;然后在PPT中向下翻页,并为幻灯片中的每一页重复此过程。(太遗憾了,我无法使用^ A来全选……然后我就可以使用sendkey来复制/粘贴)
但是有很多这些具有不同幻灯片数量的PPT文件。
这似乎是一件常见的事情,但我找不到任何示例。
是否有人有样例代码可以做到这一点?
我可以通过在PPT中使用^ A ^ C,然后在记事本中使用^ V手动完成此操作;然后在PPT中向下翻页,并为幻灯片中的每一页重复此过程。(太遗憾了,我无法使用^ A来全选……然后我就可以使用sendkey来复制/粘贴)
但是有很多这些具有不同幻灯片数量的PPT文件。
这似乎是一件常见的事情,但我找不到任何示例。
是否有人有样例代码可以做到这一点?
对于每个s In p.Slides 对于每个sh In s.Shapes 如果sh.HasTextFrame Then 如果sh.TextFrame.HasText Then Print #1, sh.TextFrame.TextRange.Text End If End If 下一个 下一个
- elbillaf