ワードドキュメントをExcelコードで開いて最大化できない

こんにちは。

Copilot にコードを書いてもらって試した所、２台のパソコンでどちらもWord は最大化しました。

サンプルのWord のファイルサイズ：約65,000kb

・ポイント：Word の読み込み中に最大化すると無視されるため、

ActiveWindow が Nothing でなくなるまで待つ。

Sub OpenWordMaximized()
    Dim wordApp As Word.Application
    Dim doc As Word.Document
    Dim f As String
    f = "C:\test\bigfile.docx"    ' ★パスを差し替え
    Set wordApp = New Word.Application
    wordApp.Visible = True
    ' ドキュメントを開く
    Set doc = wordApp.Documents.Open(f)
    ' Word がウィンドウを作るまで待つ
    Do While wordApp.ActiveWindow Is Nothing
        DoEvents
    Loop
    ' 最大化
    wordApp.WindowState = wdWindowStateMaximize
    ' Word を前面に出す（最重要）
    AppActivate wordApp.Caption
    ' 念のため Word 内部のアクティブ化も行う
    doc.Activate
    wordApp.Activate
End Sub

ご指摘のオブジェクトの取り扱いが入り混じったエラーがありました.

あまり理解できていない私なりに修正して不要な行を削除して多分ですが一応希望通り処理できました汚いコードですが,使える状態になりましたのでコードを掲載して解決といたします．最初に重要なコードを提供して下さった方ありがとうございました.

Public Const pathn13 As String = "C:\Myi Family2019" & "Noriyuki29"

Public Const pathn10 = "C:\練習場所Test2019"

Public Const pathn15 As String = "C:\Myi Family2019" & "Yukiko29"

'ExcelからWordを開いて最大化するVBAコード

Sub Sample10open_wordMS() '正しい

Dim Tagdir As String, Tagbook As String

Tagdir = pathn15

Tagbook = "印刷NEC再インストール印刷.doc"

OpenWordMaximizedMS Tagdir, Tagbook

End Sub

Sub OpenWordMaximizedMS(Tagdir, Tagbook) '正しい

Dim wordApp As Word.Application, doc As Word.Document, f As String

Dim filePath As String

Dim Sword As String



waitTime = Now + TimeValue("0:00:02")



Sword = "in作業中"

filePath = Tagdir & Tagbook

Set wdApp = CreateObject("Word.Application")  'Wordを表示起動,Wordが立ち上がる



Set wordApp = New Word.Application

wordApp.Visible = True



' ドキュメントを開く

Set doc = wordApp.Documents.Open(filePath)



' Word がウィンドウを作るまで待つ

Do While wordApp.ActiveWindow Is Nothing

    DoEvents

Loop



' 最大化

wordApp.WindowState = wdWindowStateMaximize

' Word を前面に出す(最重要)

' AppActivate wordApp.Caption '一時停止

' 念のため Word 内部のアクティブ化も行う

doc.Activate

wordApp.Activate

'ドキュメントの全体を選択し,in作業中検索 ****************************************

doc.StoryRanges(wdMainTextStory).Select

With wordApp ' With wdApp

    .Selection.Find.ClearFormatting

    .Selection.HomeKey Unit:=wdStory  ' 検索する方向文末方向

    .Selection.Find.Text = Sword      ' 検索するキーワード

    .Selection.Find.Forward = True

    If .Selection.Find.Execute Then  '見つかったら全画面

        With .Selection

        End With

    Else

    End If

End With

Set wordDoc = Nothing

Set wordApp = Nothing

End Sub