0

WinActorとPowerpointVBAの連携を考えておりますので、VBAをご存知の方教えてください。
Powerpointファイルの全文字列をテキストファイルに出力するために下記のコードを作成してPowerpointで実行しましたが、

上から9行目の

Set objFile = objFSO.OpenTextFile(writeFilePath, 8, True)

でオブジェクト変数またはWithブロック変数が設定されていません。
というエラーになりました。
原因は何でしょうか?

--<start of code>----
Sub Powerpointファイルの全文字列をテキストファイルに出力する()
 
Dim objFSO As Object
Dim objFile As Object
Dim writeFilePath As String
Dim writeData As String
 
 
writeFilePath = "\\2019\201903\result.ini"
writeData = shp_txt
 
 
'Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(writeFilePath, 8, True)
 
  Dim sld As Slide
  Dim shp As Shape
  'Dim shp_txt As String
     
  
  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
--<end of code>--

gorby5775 質問の投稿
回答とコメントは、会員登録(無料)で閲覧できるようになります。