Excelで開いたドキュメントがアイコンでタスクトレイにできますが、デスクトップに大きく広がりません。

Question

前略、次にコードは、ネット上で公開されているものを利用してさせていただき作成しました。

なお、コードの途中にin作業中と書かれたところを探して表示しています。これは、

前日に読んだ最後に記載しておき、次に開いたとき、ここから読むためです。

　よろしくお願いします。

'’呼び出しコード

Sub Test_練習Open()　’呼び出しコード

    Dim Tagdir As String, Tagbook As String

    Tagdir = "C:\test2019"

    Tagbook = "Test1.doc"

    CP_正しい語句検索 Tagdir, Tagbook

End Sub

'呼び出されるコード；ここだコードの書き方は正しいらしいが,挙動は正しくない

Public Sub CP_正しい語句検索(Tagdir, Tagbook)

    Dim wdApp As Word.Application

    Dim wdDoc As Word.Document

    Dim Sword As String

    Dim Fpath As String

    Dim waitTime As Variant

'Inisial

    Sword = "in作業中"

    Fpath = Tagdir & Tagbook  'Openするドキュメントをﾊﾟｽ名付きで設定する

'ここでワードを開く

    Set wdApp = CreateObject("Word.Application")   '何もないWordが立ち上がる

    waitTime = Now + TimeValue("0:00:01")          'エラー回避のために1秒待つ設定

    Application.Wait waitTime                      '1秒後経過(待つ)

    wdApp.Visible = True

' ドキュメントを開く準備と開く

''普通の編集モードで開く,閲覧モードは(Fpath,True)?で開く'別法Set wdDoc = wdApp.Documents.Open(ThisWorkbook.Path & "" & tagbook)

    Set wdDoc = wdApp.Documents.Open(Fpath)

    wdApp.Visible = True  'ここでドキュメントが開く

    wdApp.Activate

'in作業中 検索****

    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

    wdApp.Visible = True

    wdApp.Activate

'最大化　以下は,いろいろ苦労したところ不要です。どれも意味なしです。

    If wdApp.WindowState = xlMinimized Then

        wdApp.WindowState = xlNormal

        wdApp.WindowState = xlMaximized

    ElseIf wdApp.WindowState = xlNormal Then

           wdApp.WindowState = xlMaximized

    Else

    End If

    Application.WindowState = wdWindowStateMaximize

    wdApp.WindowState = xlMaximized

    wdApp.Visible = False

    wdApp.Visible = True

    wdApp.Activate

    Set wdApp = Nothing

End Sub

**モデレーター注**

この質問は [コミュニティ センター / コミュニティ センター / 新着情報とお知らせ] のカテゴリに投稿されましたが、内容から判断しこちらのカテゴリに移動いたしました。適切なカテゴリに投稿すると、返信や回答が得られやすくなり、同じ質問を持つ他のユーザーの参考にもなります。

Answer 1

多分ですが、ご指摘のサイトに登録してみました。

Answer 2

次回から投稿してみます。

Answer 3

こんにちは。

ご質問の内容は、VBA で操作して開いたドキュメントがタスクバー上には最小化して表示されるが、デスクトップに最大化して表示されないという事でよろしいでしょうか？

VBA に関するご質問になりますと、VBA 専用のフォーラムがあります MSDN フォーラムの VBA のカテゴリに投稿すると情報が集まり易いと思います。

◆ Msdn フォーラム(VBA)

よろしければご利用になってみて下さいね。