私はパワーポイントでのコーディング、VBA、および VBA に慣れていないので、これは基本的なことかもしれませんが、回避できないようです。パワーポイント ファイルからいくつかのテキストを抽出し、それを別のファイルに保存しようとしています。必要なテキストをメモ帳ファイルに出力するのに役立つコードをオンラインで見つけました。ただし、Excelファイルとして必要です。オンラインで検索するたびに、Excel ベースの VBA にたどり着きますが、Powerpoint から Excel にエクスポートする必要があります (テキストを数値に変換したり、列を太字にするなど、基本的な書式設定を行うこともあります)。以下は、コード全体の関連/エクスポート部分です。ご覧いただき、ありがとうございます。
PS: 技術的な専門知識が限られている少数の人々のために、コードをアドインとしてコンパイルする予定です。そのため、可能であれば、シンプルでわかりやすいソリューション、または任意の PC や PowerPoint/Excel のバージョンで動作するものをリクエストしたいと思います。コードを参照に依存させると、コードを実行する人がコードを正常に実行できるようになる前に、参照などを行う必要がある場合があることを読みました。
Dim strFilename As String
Dim intFileNum As Integer
Dim PathSep As String
....アクティブなプレゼンテーションからの抽出を行うコード....
On Error GoTo ErrorHandler
intFileNum = FreeFile
' PC-Centricity Alert!
' This assumes that the file has a .PPT extension and strips it off to make the text file name.
strFilename = ActivePresentation.Path _
& PathSep _
& Mid$(ActivePresentation.Name, 1, Len(ActivePresentation.Name) - 4) _
& "_Titles.TXT"
Open strFilename For Output As intFileNum
Print #intFileNum, strTitles
NormalExit:
Close intFileNum
Exit Sub
ErrorHandler:
MsgBox Err.Description
Resume NormalExit
End Sub