一区二区三区日韩精品-日韩经典一区二区三区-五月激情综合丁香婷婷-欧美精品中文字幕专区

分享

只要1分鐘,就可以將100頁PPT轉(zhuǎn)換為Word文檔

 weimiao 2018-07-05

第一步:打開PPT中VBA界面并輸入代碼

首先按Alt+F11打開相應(yīng)的VBA界面,這時選擇選項卡中的插入——模塊打開相應(yīng)的界面,如下圖所示:

只要1分鐘,就可以將100頁PPT轉(zhuǎn)換為Word文檔

然后選擇工具選項卡下的引用,如下圖所示:

只要1分鐘,就可以將100頁PPT轉(zhuǎn)換為Word文檔

之后我們在相應(yīng)的界面中找到類型為“Microsoft Word 16.0 ObjectLibrary”,點擊確定。

只要1分鐘,就可以將100頁PPT轉(zhuǎn)換為Word文檔

注意:如果是Office2013版的就找到13即可。

最后在模塊中輸入以下代碼并按F5運行

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 = TrueEnd Sub

下面看下具體操作:

只要1分鐘,就可以將100頁PPT轉(zhuǎn)換為Word文檔

第二步:清除文本格式

運行代碼之后,文本就會本提取出來,但是比較亂,有很多的空行,這時利用Ctrl+H打開查找和替換對話框,之后在查找中^p^p,在替換中輸入^p,如果空行比較多,多替換幾次即可。

具體操作如下:

只要1分鐘,就可以將100頁PPT轉(zhuǎn)換為Word文檔

    本站是提供個人知識管理的網(wǎng)絡(luò)存儲空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點。請注意甄別內(nèi)容中的聯(lián)系方式、誘導購買等信息,謹防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點擊一鍵舉報。
    轉(zhuǎn)藏 分享 獻花(0

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多

    激情图日韩精品中文字幕| 欧美日韩国产精品第五页| 午夜福利视频偷拍91| 日韩精品中文字幕亚洲| 蜜臀人妻一区二区三区| 在线日韩欧美国产自拍| 高清免费在线不卡视频| 日韩人妻中文字幕精品| 欧美成人国产精品高清| 久久精品国产99国产免费| 男生和女生哪个更好色| 大尺度激情福利视频在线观看| 精品人妻一区二区三区四区久久| 亚洲丁香婷婷久久一区| 亚洲天堂有码中文字幕视频| 日韩黄色一级片免费收看| 欧美视频在线观看一区| 国产亚洲精品香蕉视频播放| 人妻乱近亲奸中文字幕| 正在播放玩弄漂亮少妇高潮| 欧洲一区二区三区自拍天堂| 国产精品尹人香蕉综合网| 亚洲精品一区二区三区日韩| 日韩在线视频精品视频| 日韩欧美综合中文字幕| 日韩精品一区二区毛片| 好吊妞在线免费观看视频| 日本道播放一区二区三区| 亚洲中文字幕在线观看黑人| 91偷拍与自偷拍精品| 亚洲中文字幕视频在线观看| 欧美日韩在线第一页日韩| 加勒比日本欧美在线观看| 亚洲天堂男人在线观看| 视频一区日韩经典中文字幕| 精品少妇人妻av一区二区蜜桃| 日本欧美一区二区三区就| 人妻熟女欲求不满一区二区| 欧美日韩亚洲国产精品| 色鬼综合久久鬼色88| 丰满少妇高潮一区二区|