使用宏(Macro)功能(適用于 Windows 平臺)
打開 PowerPoint 幻燈片,并確保每個幻燈片上都添加了備注。
啟用"開發(fā)人員"選項卡:
如果您已經(jīng)看到 PowerPoint 的"開發(fā)人員"選項卡,請?zhí)料乱徊健?br> 如果未看到"開發(fā)人員"選項卡,請按照以下步驟啟用它:
點擊 PowerPoint 工具欄中的"文件"選項。
在文件選項中,選擇"選項"。
在"PowerPoint 選項"對話框中,選擇"自定義功能區(qū)"。
在右側(cè)的"主選項卡"列表中,找到并選中"開發(fā)人員"選項。
點擊"確定"按鈕。
創(chuàng)建宏:
點擊"開發(fā)人員"選項卡中的"宏"按鈕。
在宏對話框中,輸入一個宏的名稱(例如"ExportNotes")。
點擊"創(chuàng)建"按鈕,將打開 Visual Basic for Applications(VBA)編輯器。
編寫宏代碼:
在 VBA 編輯器中,將以下代碼復(fù)制并粘貼到宏編輯窗口中:?
Sub ExportNotes()
Dim Slide As Slide
Dim Notes As String
Dim i As Integer
Dim FilePath As String
' 設(shè)置保存路徑和文件名
FilePath = "C:\Export\All_Notes.txt"
Open FilePath For Output As #1
For Each Slide In ActivePresentation.Slides
i = i + 1
Notes = Slide.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text
Print #1, "Page " & i & ":"
Print #1, Notes
Print #1, ""
Next Slide
Close #1
MsgBox "備注已導(dǎo)出到:" & FilePath
End Sub
將代碼中的保存路徑"C:\Export\All_Notes.txt"替換為您希望保存?zhèn)渥⒌膶嶋H路徑和文件名。
運行宏:
關(guān)閉 VBA 編輯器。
回到 PowerPoint 中,點擊"宏"按鈕。
在宏對話框中,選擇剛才創(chuàng)建的宏"ExportNotes",然后點擊"運行"。
完成導(dǎo)出:
宏將逐個幻燈片遍歷,并將每個幻燈片的備注按頁面順序追加到同一個文本文件中。
當(dāng)運行完畢后,您將收到一個TXT文章來源:http://www.zghlxwxcb.cn/news/detail-743019.html
————————————————
版權(quán)聲明:本文為CSDN博主「夏の流水賬博客」的原創(chuàng)文章,遵循CC 4.0 BY-SA版權(quán)協(xié)議,轉(zhuǎn)載請附上原文出處鏈接及本聲明。
原文鏈接:https://blog.csdn.net/chengzi5984223/article/details/131278132文章來源地址http://www.zghlxwxcb.cn/news/detail-743019.html
到了這里,關(guān)于批量導(dǎo)出 PPT的備注到一個txt文本中的文章就介紹完了。如果您還想了解更多內(nèi)容,請在右上角搜索TOY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關(guān)文章,希望大家以后多多支持TOY模板網(wǎng)!