|
第一步：打開PPT中VBA界面并輸入代碼 首先按Alt+F11打開相應(yīng)的VBA界面，這時(shí)選擇選項(xiàng)卡中的插入——模塊打開相應(yīng)的界面，如下圖所示： 然后選擇工具選項(xiàng)卡下的引用，如下圖所示： 之后我們在相應(yīng)的界面中找到類型為“Microsoft Word 16.0 ObjectLibrary”，點(diǎn)擊確定。 注意：如果是Office2013版的就找到13即可。 最后在模塊中輸入以下代碼并按F5運(yùn)行 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 下面看下具體操作： 第二步：清除文本格式 運(yùn)行代碼之后，文本就會(huì)本提取出來，但是比較亂，有很多的空行，這時(shí)利用Ctrl+H打開查找和替換對話框，之后在查找中^p^p，在替換中輸入^p，如果空行比較多，多替換幾次即可。 具體操作如下： |
|
|
