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

Rank: 1

帖子
41 
积分
70 
技术
1  
捐助
0  
注册时间
2015-3-22 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2015-6-10 23:46 | 只看该作者

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

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

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

评分人数

收藏 分享

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
2楼
发表于 2015-6-16 15:37 | 只看该作者
批量提取PPT备注可试试（Office2007/2010）：
PPT超级工具包
http://excel365.net/20.html
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

tonyabbs

Rank: 1

帖子
41 
积分
70 
技术
1  
捐助
0  
注册时间
2015-3-22 
3楼
发表于 2015-6-17 23:10 | 只看该作者
我是64位的呀。用不起来。

TOP

tonyabbs

Rank: 1

帖子
41 
积分
70 
技术
1  
捐助
0  
注册时间
2015-3-22 
4楼
发表于 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

TOP

tonyabbs

Rank: 1

帖子
41 
积分
70 
技术
1  
捐助
0  
注册时间
2015-3-22 
5楼
发表于 2015-8-25 23:17 | 只看该作者
谁能把这段写在立即窗口的，改成输出到和当前打开的PPT同一目录下，同样文件名的doc文件？

TOP

tonyabbs

Rank: 1

帖子
41 
积分
70 
技术
1  
捐助
0  
注册时间
2015-3-22 
6楼
发表于 2015-8-26 00:09 | 只看该作者
我自己解决了：
  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

返回列表