批处理之家 - Powered by Discuz! Board

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

作者: tonyabbs 时间: 2015-6-10 23:46 标题: 【已解决】怎么用VBS提取Powerpoint备注页的文字为单独的文本文件？

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

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

作者: yu2n 时间: 2015-6-16 15:37

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

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

作者: tonyabbs 时间: 2015-6-17 23:10

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

作者: tonyabbs 时间: 2015-8-25 23:15

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

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

作者: tonyabbs 时间: 2015-8-26 00:09

我自己解决了：

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
复制代码

欢迎光临批处理之家 (http://bathome.net./)