エクセルで開いたワードのﾍﾟｰｼﾞ設定

Question

エクセルからワードを開き、新規に文書を挿入してサイズ変更したく、以下のコードを作成しました。
ところが、「With wdApp.Documents.PageSetup」の所で「メソッド又はデータメンバーが見つかりません」とのエラーが出てしまいます。

この部分を「With ActiveDocuments.PageSetup」に変更すると、「リモートサーバーが無いか、使用できる状態にありません」
とエラーが出てきてしまいます。

Dim wdApp As Word.Application
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True

wdApp.Documents.Add

With wdApp.Documents.PageSetup
      .PageWidth = MillimetersToPoints(148)
      .PageHeight = MillimetersToPoints(210)
End With

これらのエラーの原因と、対策についてアドバイスいただきたく質問致しました。
当方、VBAは触っていましたが、ワードについてのコードはこれが初めてで、基本的なところが抜けている場合もございますが、その部分も含めご指摘いただければ嬉しく思います。
よろしくお願いします。

〈追記〉
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
この2行に時間がかかり、ワードが表示される（起動する）前にﾍﾟｰｼﾞ設定がを行ってしまう為、エラーが起きてしまう可能性が考えられます。（ステップインでゆっくり進み、ワードが立ち上がった後に進んで行くと、問題なく進むので、上記の理由からのエラーではないかと考えました。）

ワードが立ち上がったら、次の行に進むような方法はないでしょうか。
専用のメソッドが有ればうれしいですが、そうで無くとも構いません。
上記の理由からではないかもしれませんが、何か知恵をおかしいただければ幸いです。
よろしくお願いします。

Answer 1

追記拝見いたしました。

wdApp.Documents.Add

を

Dim wdDoc As Word.Document
Set wdDoc = wdApp.Documents.Add
wdDoc.Activate

にすることで、待ちませんかね？

もし待たないようでしたら、
固定時間待たせるのも手かと。
※Visible後に数秒sleep入れる

VBAでは、waitやsleepが用意されていないので、
WinAPIで代用可能となります。
以下、ご参考までに。
https://www.sejuku.net/blog/37388

Comments

[ice930]

ありがとうございます！！
ご指摘の通りで解決しました！
ちなみに何が起きて待つようになったのでしょうか？色々考えたのですが分からず・・・。

[WhiteTempest]

Documents.Addの戻り値はご存知でしょうか？
Addされた1ドキュメントのオブジェクトが入ります。

wdDocに作成されたドキュメントのオブジェクトを関連付けさせておき、
wdDoc.Activate
にて、アクティブ(選択中状態)にします。
アクティブにすることで、
表示されるまで待つようになるイメージです。

もっとざっくり説明すると、
wdAppはWordっていうExeのオブジェクトで、
wdDocは開いたWordファイルのオブジェクトと考えてもらって、
Addで開いた(新規作成した)後にActivateで表示待ちする、
程度に考えてみてはいかがでしょうか？

[ice930]

Set wdDoc = wdApp.Documents.Add
の所が、wdDoc にWordというオブジェクトがセットされる→次のコード

という考えで合っているでしょうか？（間違えていたらすいません！！）

[WhiteTempest]

どちらかと言うと、
　wdDoc.Activate
で待つイメージでしたがどうでしょう？
Activateを抜いてみたら分かると思いますよ！

Answer 2

＞「With wdApp.Documents.PageSetup」の所で
＞「メソッド又はデータメンバーが見つかりません」とのエラーが出てしまいます。

まず、PageSetupは、Documentsのメンバーではないはずです。
※あくまで、単一ドキュメントを指すはず。

たとえばですが、
Dim doc
Set doc = wdApp.Documents.Add
としたうえで、
doc.PageSetup
等である必要があるかと。

＞この部分を
＞「With ActiveDocuments.PageSetup」に変更すると、
＞「リモートサーバーが無いか、使用できる状態にありません」

これは、Word(Document)がActiveになっていないことが、予想されます。

たとえばですが、
Dim doc
Set doc = wdApp.Documents.Add
としたうえで、
doc.activate
した後であれば通るのではないでしょうか？

参考URL:
https://docs.microsoft.com/ja-jp/office/vba/word/concepts/working-with-word/working-with-document-objects

Comments

[ice930]

ご指摘ありがとうございます。
ご指摘の通りやってみましたが、原因は違う様でした。
その後判明した詳細を追記しましたので、思い当たる点など在りましたらアドバイスお願いいたします。

Answer 3

With wdApp.ActiveDocument.PageSetup
でいぃんでないかぃ。

Excel中では、wdApp. を省略できない。
ActiveDocuments ← 複数ドキュメントをアクティブにはできない。
Documents(1) ← 複数ドキュメントの内の一つ。

Comments

[ice930]

ご回答ありがとうございます。
質問について追記しましたので、アドバイスいただければ幸いです。