0

WinActorとPowerpointVBAの連携を考えておりますので、VBAをご存知の方教えてください。

Powerpointファイルの全文字列をテキストファイルに出力するために下記のコードを作成してPowerpointで実行しましたが、

objFSOは2行目でオブジェクトであると宣言しているにも関わらず、
 

上から8行目の
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

でオブジェクトがありません。

というエラーになりました。

原因は何でしょうか?参照設定あたりがまずいのでしょうか?

---<Start of code>----
Sub Powerpointファイルの全文字列をテキストファイルに出力する()
 
Dim objFSO As Object
Dim objFile As Object
Dim writeFilePath As String
Dim writeData As String
 
 
writeFilePath = "\\Reports\2019\201903\result.ini"
writeData = shp_txt
 
 
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(writeFilePath, 8, True)
 
  Dim sld As Slide
  For Each sld In ActivePresentation.Slides ' アクティブPPTMファイルの全スライドをループ
    Dim shp As Shape
    'Dim shp_txt As String
    For Each shp In sld.Shapes ' スライド内の全Shapeオブジェクトをループ
      If shp.TextFrame.HasText Then
        shp_txt = shp.TextFrame.TextRange.Text
        MsgBox "テキストの内容は" & vbCrLf & shp_txt
      End If
    Next shp
  Next sld
 
 
 
objFile.Write (shp_txt)
objFile.Write (vbCrLf)
   
   
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
 
End Sub
---<End of code>----

Zawawa 編集済みのコメント
回答とコメントは、会員登録(無料)で閲覧できるようになります。