用途
一鍵提取PPT中所有文字到word
可能會(huì)遇到這么一種尷尬情形：
想要把一個(gè)做好的PPT轉(zhuǎn)換成word文件使用，尤其老師發(fā)來的課件基本就是講義的情況下?！偛荒芤粡垙埖膹?fù)制粘貼吧，費(fèi)事費(fèi)力，是強(qiáng)迫癥說不定還要一張張的排版，弄完以后都想過會(huì)再看了。
那么提供這樣一種解決方案，既然Office套件支持VBA編程，那我們就通過VisualBasic編寫一個(gè)模塊批量提取好了。
工具
- Office Powerpoint
- Office Word
操作步驟
1.打開某張PPT
2.啟動(dòng)Visual Basic開發(fā)組件
方法A：快捷鍵Alt+F11
方法B：確保已經(jīng)打開“開發(fā)工具”，Office默認(rèn)是不啟用的。在選項(xiàng)菜單可以找到
然后在開發(fā)工具選項(xiàng)卡點(diǎn)擊“查看代碼”
就可以進(jìn)入VisualBasic用過VB編程的同學(xué)一定不陌生
2.建立提取模塊
- 插入模塊
將下列代碼復(fù)制到彈出的模塊之中
Sub Main()
On Error Resume Next
Dim temp As New Word.Document, tmpShape As Shape, tmpSlide As Slide
For Each tmpSlide In ActivePresentation.Slides
For Each tmpShape In tmpSlide.Shapes
temp.Range().Text = temp.Range() + tmpShape.TextFrame.TextRange.Text
Next tmpShape
Next tmpSlide
temp.Application.Visible = True
End Sub
3.關(guān)聯(lián)Word組件
- 菜單欄>工具>引用
- 找到Word組件打勾
4.提取內(nèi)容
啟動(dòng)程序就會(huì)彈出一個(gè)word文件。（啟動(dòng)快捷鍵：F5）
