質問編集履歴
2
エラー箇所が間違っていたので修正しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -30,7 +30,7 @@
|
|
|
30
30
|
Next sld
|
|
31
31
|
End Sub
|
|
32
32
|
```
|
|
33
|
-
With
|
|
33
|
+
With .GetFile(pge).OpenAsTextStream で「実行時エラー５」になります。
|
|
34
34
|
|
|
35
35
|
エラー箇所を抜き出してその部分だけ実行するとエラーになりません。
|
|
36
36
|
一体何が問題なのかご教示いただけたら幸いです。
|
1
変数名に間違いがあったので修正いたしました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -12,7 +12,7 @@
|
|
|
12
12
|
For Each shp In sld.Shapes
|
|
13
13
|
With shp
|
|
14
14
|
If shp.Name = "テキスト ボックス 6" Then
|
|
15
|
-
|
|
15
|
+
pge = "ppt_" & shp.TextFrame.TextRange.Text & ".txt"
|
|
16
16
|
End If
|
|
17
17
|
End With
|
|
18
18
|
Next shp
|