【已解决】怎么用VBS提取Powerpoint备注页的文字为单独的文本文件？

tonyabbs · 发表于 2015-6-10 23:46:05

本帖最后由 tonyabbs 于 2015-8-26 00:09 编辑

怎么用VBS提取Powerpoint备注页的文字为单独的文本文件？

yu2n · 发表于 2015-6-16 15:37:42

批量提取PPT备注可试试（Office2007/2010）：

PPT超级工具包
http://excel365.net/20.html

tonyabbs · 发表于 2015-6-17 23:10:18

我是64位的呀。用不起来。

tonyabbs · 发表于 2015-8-25 23:15:48

Sub GetAllNotes()
      For i = 1 To ActivePresentation.Slides.Count
      Debug.Print "P" & i & ":"
      Debug.Print ActivePresentation.Slides.Item(i).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text
      Next
      MsgBox " CTRL+ G 打开VB调试器的立即窗口", vbInformation, "完成"
End Sub

tonyabbs · 发表于 2015-8-25 23:17:19

谁能把这段写在立即窗口的，改成输出到和当前打开的PPT同一目录下，同样文件名的doc文件？

tonyabbs · 发表于 2015-8-26 00:09:05

我自己解决了：

Sub EXPORTNotes()
On Error Resume Next
Dim str As String
str = ""
For i = 1 To ActivePresentation.Slides.Count
str = str & "P" & VBA.str(i)& ":"
str = str & ActivePresentation.Slides.Item(i).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text & Chr(13) & Chr(10)
Next
FileName = Left(Application.ActivePresentation.Name, 29) & ".txt"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set sFile = FSO.CreateTextFile(FileName, True, True)
sFile.WriteLine (str)
sFile.Close
Set sFile = Nothing
Set FSO = Nothing
MsgBox "备注文件已保存至：" & FileName
End Sub

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] 【已解决】怎么用VBS提取Powerpoint备注页的文字为单独的文本文件？

评分

评分