PowerPoint (一般・VBA)

PowerPoint 一般・VBAに関する話題を扱うフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10全般 : PowerPoint 2016)
Powerpointファイルの全文字列をテキストファイルに出力したい。
投稿日時: 20/03/17 16:12:47
投稿者: gorby

Powerpointファイルの全文字列をテキストファイルに出力するPowerpoinVBAコードを下記の通り作成しました。
実行すると
   objFile.Write (shp_txt)の行で
プロシージャの呼び出しまたは引数が不正です
というエラーになります。どなたか、デバッグを助けてください。
 
 
 
-------
Sub Powerpointファイルの全文字列をテキストファイルに出力する()
    
Dim objFSO As Object
 Dim objFile As Object
 Dim writeFilePath As String
 Dim writeData As String
 Dim shp_txt As String
    
    
 writeFilePath = "\\絶対パスを貼る予定"
 writeData = shp_txt
    
    
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set objFile = objFSO.OpenTextFile(writeFilePath, 8, True)
    
   Dim sld As Slide
   Dim shp As Shape
        
     
   For Each sld In ActivePresentation.Slides ' アクティブPPTMファイルの全スライドをループ
    For Each shp In sld.Shapes ' スライド内の全Shapeオブジェクトをループ
      If shp.TextFrame.HasText Then
         shp_txt = shp.TextFrame.TextRange.Text
         objFile.Write (shp_txt)
         objFile.Write (vbCrLf)
         ' MsgBox "テキストの内容は" & vbCrLf & shp_txt
       End If
     Next shp
   Next sld
    
         
      
 objFile.Close
 Set objFile = Nothing
 Set objFSO = Nothing
    
 End Sub
ーーーーー

回答
投稿日時: 20/03/17 17:09:56
投稿者: WinArrow
投稿者のウェブサイトに移動

掲示のコードをこちらの環境でテストしてみました。
 
問題なく終了しました。

投稿日時: 20/03/17 17:20:59
投稿者: gorby

WinArrow さんの引用:
掲示のコードをこちらの環境でテストしてみました。
 
問題なく終了しました。

 
当方の環境では、
やはり objFile.Write (shp_txt) の行で
 
プロシージャの呼び出しまたは引数が不正です
 
というエラーになります。
何か考えられる原因はありませんか? ライブラリが不足しているとか。

回答
投稿日時: 20/03/17 20:23:01
投稿者: WinArrow
投稿者のウェブサイトに移動

ネット検索
のページを紹介します。
 
https://blog.systemjp.net/entry/2013/04/10/191821

投稿日時: 20/03/18 17:53:14
投稿者: gorby

WinArrow さんの引用:
ネット検索
のページを紹介します。
 
https://blog.systemjp.net/entry/2013/04/10/191821

このページだけ見ても、まだ判らないですね。
fso.CreateTextFile("c:\sandbox\hoge.txt",true,true)
 
を挿入すれば良いわけではないようです。時間がないので、この問題はしばらく放置します。
ありがとうございました。

トピックに返信