tft每日頭條

 > 生活

 > 怎樣快速把ppt 轉換doc

怎樣快速把ppt 轉換doc

生活 更新时间:2025-02-08 04:51:34

相信大家平時在工作的時候,是否會遇到這樣的問題:

怎麼把100頁的PPT内容提取出來,變成Word文檔?

相信這個問題很多需要做PPT報告的職場人都會遇到,還有學生黨要提取老師的PPT課件也是很頭疼的問題!不要擔心!今天小編就來教大家怎麼來輕松提取PPT内容,你的PPT秒變成Word出來!内容很幹貨,建議收藏嘻嘻!

怎樣快速把ppt 轉換doc(太酷了1分鐘把PPT秒變Word)1

首先給各位看一下我們需要提取的PPT課件内容,整整有100多頁~

怎樣快速把ppt 轉換doc(太酷了1分鐘把PPT秒變Word)2

需要注意的是,我們下面提取的PPT内容範圍,主要是通過文本框形式來加入的内容哦!其他形式的文本内容(例如圖片)是沒有辦法提取的哦!

怎樣快速把ppt 轉換doc(太酷了1分鐘把PPT秒變Word)3

好啦~接下來我們來看看怎麼來轉換吧!

第一步:

首先打開你的PPT,然後按下【Alt F11】鍵進入VBA頁面,點擊【插入】-【模塊】

怎樣快速把ppt 轉換doc(太酷了1分鐘把PPT秒變Word)4

第二步:

再點擊【工具】裡面,選擇【引用】的選項。

怎樣快速把ppt 轉換doc(太酷了1分鐘把PPT秒變Word)5

第三步:

這時候會出現一個引用的可使用選項,我們在下拉框中找到【Microsoft Word 15.0 ObjectLibrary】然後進行勾選,完成後點擊【确定】

怎樣快速把ppt 轉換doc(太酷了1分鐘把PPT秒變Word)6

第四步:

回到代碼框,然後複制下面的代碼(直接複制即可),然後按下【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 = True

End Sub

怎樣快速把ppt 轉換doc(太酷了1分鐘把PPT秒變Word)7

第五步:

然後稍等一會,後台會自動進行轉換,稍等片刻後就會自動生成一個帶有PPT文本内容的Word文案,妥妥的全部都包含在裡面了哈!

怎樣快速把ppt 轉換doc(太酷了1分鐘把PPT秒變Word)8

你可以直接進行保存、編輯、或者修改,别提有多方便啦!

怎樣快速把ppt 轉換doc(太酷了1分鐘把PPT秒變Word)9

好啦~以上就是關于怎麼批量提取PPT内容的方法技巧了,希望對你有所幫助,有了這個方法,老闆給你再多的PPT文檔,你都可以輕松提取裡面的文字到Word文檔裡啦~感興趣的朋友可以收藏起來哦!以免不時之需!

歡迎繼續關注!更多有趣好玩的PPT技巧分享給大家!

,

更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!

查看全部

相关生活资讯推荐

热门生活资讯推荐

网友关注

Copyright 2023-2025 - www.tftnews.com All Rights Reserved