PowerpointVBAに関する質問です。Powerpointファイルの全文字列をテキストファイルに出力する(その2)
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>--