Office宏 PowerPoint提取文字到Word
来源:互联网 发布:js input 参数 编辑:程序博客网 时间:2024/04/29 23:41
PowerPoint直接转存为大纲格式Word,会丢失一些非标题的内容文字,使用简单的脚本尽可能多的提取幻灯片中的文字到WORD。
该宏需要引用对应的WORD库。
Attribute VB_Name = "模块1"
Sub toWord()
On Error Resume Next
Dim a As New Application
Dim sl As PowerPoint.slide
Dim sh As PowerPoint.shape
Dim c As PowerPoint.View
Dim i As Integer
i = 1
Dim str As String
str = ""
Set c = Application.ActiveWindow.View
For Each sl In PowerPoint.ActivePresentation.Slides
c.GotoSlide i
str = str + "page" + VBA.str(i) + vbLf
For Each sh In sl.Shapes
sh.Select
str = str + a.ActiveWindow.Selection.TextRange.Text + vbLf
Next sh
i = i + 1
str = str + "----------------------------------------------" + vbLf
Next sl
Dim d As New Word.Application
Dim dd As Word.Document
d.Visible = True
d.Activate
Set dd = d.Documents.Add
dd.Select
dd.Words.First.Text = str
End Sub
该宏需要引用对应的WORD库。
Attribute VB_Name = "模块1"
Sub toWord()
On Error Resume Next
Dim a As New Application
Dim sl As PowerPoint.slide
Dim sh As PowerPoint.shape
Dim c As PowerPoint.View
Dim i As Integer
i = 1
Dim str As String
str = ""
Set c = Application.ActiveWindow.View
For Each sl In PowerPoint.ActivePresentation.Slides
c.GotoSlide i
str = str + "page" + VBA.str(i) + vbLf
For Each sh In sl.Shapes
sh.Select
str = str + a.ActiveWindow.Selection.TextRange.Text + vbLf
Next sh
i = i + 1
str = str + "----------------------------------------------" + vbLf
Next sl
Dim d As New Word.Application
Dim dd As Word.Document
d.Visible = True
d.Activate
Set dd = d.Documents.Add
dd.Select
dd.Words.First.Text = str
End Sub
- Office宏 PowerPoint提取文字到Word
- Office宏 PowerPoint提取文字到Word - -
- 图片提取文字到word
- Confluence Office PowerPoint 宏
- Microsoft Office PowerPoint 2007 文字重叠
- (OK) install-WPS-Fedora23 - office word powerpoint
- Python office编程:word和PowerPoint
- Edraw Office Viewer component教程(三):将MS Word、Excel、PowerPoint嵌入到WPF应用程序中
- 将office文档(word,excel,powerpoint)转换为pdf
- 将office文档(word,excel,powerpoint)转换为pdf
- Microsoft Office Word、Excel 和 PowerPoint 文件格式兼容包
- Office Tab 在 Word、Excel、PowerPoint 加入分页标签功能
- POI操作Microsoft Office(Word、Excel、PowerPoint)全面了解
- POI:全面了解POI操作Microsoft Office(Word、Excel、PowerPoint)
- 基于COM的word,execl,powerpoint,pdf文本过滤提取
- 提取Office以及PDF里的文字
- Office Powerpoint 学习
- Office PowerPoint 计时器
- 用assertions使你的代码更加稳定
- COME ON, WOOYEA!!!!
- Script: Windows关机
- 10月15日,WOOYEA开发小组成立
- 学习如何在 Java 代码中启用和禁用断言
- Office宏 PowerPoint提取文字到Word
- Google 发布硬盘搜索引擎
- Java陷阱一箩筐----面试题集及解答
- XML XLS转换
- Charles朝阳博士在《时尚健康》杂志有张裸露到腰际的上半身像
- Freebsd 下 整合 apache2 和 resin3
- 类型不匹配引发的一个issue
- I am going to Macau tomorrow, and now I am installing Tomcat 4
- 邵东二中毕业的名人:金和耀