質問編集履歴
1
エラー原因が異なっていたため質問を修正しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -10,9 +10,11 @@
|
|
|
10
10
|
|
|
11
11
|
というエラーが表示されてしまいます。
|
|
12
12
|
|
|
13
|
-
|
|
13
|
+
デバック画面で確認したところ、Loopの1回目は問題なく処理できており、
|
|
14
14
|
|
|
15
|
-
|
|
15
|
+
Loopの2回目の★のところで停止してしまっていました。
|
|
16
|
+
|
|
17
|
+
バックグラウンドでWordが開いたままになってしまうので、再開に手間取っております。
|
|
16
18
|
|
|
17
19
|
|
|
18
20
|
|
|
@@ -22,9 +24,7 @@
|
|
|
22
24
|
|
|
23
25
|
Do While MyFile <> ""
|
|
24
26
|
|
|
25
|
-
Set objDoc = wdApp.Documents.Add()
|
|
26
|
-
|
|
27
|
-
|
|
27
|
+
Set wdDoc = wdApp.Documents.Open(MyPath & MyFile)
|
|
28
28
|
|
|
29
29
|
j = wdDoc.Range.Information(wdNumberOfPagesInDocument)
|
|
30
30
|
|
|
@@ -32,7 +32,7 @@
|
|
|
32
32
|
|
|
33
33
|
ws1.Cells(i, 7).Value = j
|
|
34
34
|
|
|
35
|
-
Documents.Close SaveChanges:=wdDoNotSaveChanges
|
|
35
|
+
Documents.Close SaveChanges:=wdDoNotSaveChanges ★
|
|
36
36
|
|
|
37
37
|
Set wdDoc = Nothing
|
|
38
38
|
|