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

エクセルからワードを開き、新規に文書を挿入してサイズ変更したく、以下のコードを作成しました。
ところが、「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行に時間がかかり、ワードが表示される（起動する）前にﾍﾟｰｼﾞ設定がを行ってしまう為、エラーが起きてしまう可能性が考えられます。（ステップインでゆっくり進み、ワードが立ち上がった後に進んで行くと、問題なく進むので、上記の理由からのエラーではないかと考えました。）

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

行動規範の内容に同意します

回答3件

ベストアンサー

追記拝見いたしました。

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

投稿2021/01/30 15:18

WhiteTempest

総合スコア404

ice930

2021/01/31 11:29

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

WhiteTempest

2021/01/31 11:46

Documents.Addの戻り値はご存知でしょうか？ Addされた1ドキュメントのオブジェクトが入ります。 wdDocに作成されたドキュメントのオブジェクトを関連付けさせておき、 wdDoc.Activate にて、アクティブ(選択中状態)にします。アクティブにすることで、表示されるまで待つようになるイメージです。もっとざっくり説明すると、 wdAppはWordっていうExeのオブジェクトで、 wdDocは開いたWordファイルのオブジェクトと考えてもらって、 Addで開いた(新規作成した)後にActivateで表示待ちする、程度に考えてみてはいかがでしょうか？

ice930

2021/01/31 12:07

Set wdDoc = wdApp.Documents.Add の所が、wdDoc にWordというオブジェクトがセットされる→次のコードという考えで合っているでしょうか？（間違えていたらすいません！！）

WhiteTempest

2021/02/01 00:10

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

行動規範の内容に同意します