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

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

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

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

评分人数

批量提取PPT备注可试试(Office2007/2010):
PPT超级工具包
http://excel365.net/20.html
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

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

TOP

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

TOP

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

TOP

我自己解决了:
  1. Sub EXPORTNotes()
  2.         On Error Resume Next
  3.         Dim str As String
  4.             str = ""
  5. For i = 1 To ActivePresentation.Slides.Count
  6.         str = str & "P" & VBA.str(i)& ":"
  7.         str = str & ActivePresentation.Slides.Item(i).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text & Chr(13) & Chr(10)
  8.         Next
  9.         FileName = Left(Application.ActivePresentation.Name, 29) & ".txt"
  10.         Set FSO = CreateObject("Scripting.FileSystemObject")
  11.         Set sFile = FSO.CreateTextFile(FileName, True, True)
  12.             sFile.WriteLine (str)
  13.             sFile.Close
  14.         Set sFile = Nothing
  15.         Set FSO = Nothing
  16.         MsgBox "备注文件已保存至:" & FileName
  17. End Sub
复制代码
1

评分人数

TOP

返回列表