自動でWordを起動して、挿入 リボンをクリックしたい

Question

こんばんは。

Powershell,もしくはVBScriptで、まずWordを自動で起動して、その後
リボンの「挿入」タブを自動でクリックするようにしたいと思います。

当方で色々試しているのですが、Wordは起動するものの、自動でリボン
をクリックしてくれず、Sendkeysなども動作せず困っております。

どなたかやり方をご存知の方がいらっしゃれば教えて頂けると幸いです。

宜しくお願い致します。

Answer 1

環境により調整が必要そうですが、Sendkeysで問題なくできますね。
実際に試したコードを載せて頂けると、なぜダメだったのか、の判断ができるのですが。

Option Explicit
'https://teratail.com/questions/161363

Call ShowWordInsertTab

Sub ShowWordInsertTab()
    '必要に応じて待機する用
    'Const Wait_ms = 100
    'WSH.Sleep Wait_ms
    
    Dim appWd 'As Word.Application
    Set appWd = CreateObject("Word.Application") '常に新規起動（要求により調整）
    
    appWd.Visible = True
    
    Dim doc 'As Word.Document
    Set doc = appWd.Documents.Add() '何かファイルを開く（要調整）
    
    
    Dim wsShell 'As IWshRuntimeLibrary.WshShell
    Set wsShell = CreateObject("WScript.Shell")
    
    If Not wsShell.AppActivate(appWd.Caption) Then _
        Err.Raise 5, , "Wordを最前面にできません。"
    
    'Alt->Nで挿入タブ選択
    'NはWordのバージョンによって要チェック
    wsShell.SendKeys "%", True
    wsShell.SendKeys "N{ENTER}", True
    
End Sub

Comments

[SUSU0703]

imihitoさん

ありがとうございます！確かに動作しました。
最終的にやりたいことは、挿入 - 個人用アドイン、からアドインを読み込む作業を自動化したいのですが、この一覧から社内のとあるアドインを選ぶと、”xxxxx-manifest-production.xml” というファイルが読み込まれ、Wordの”ホーム”タブにアドインとしてアイコンが追加されます。

このアドインを読み込む過程を自動化する事は可能でしょうか。重ねての質問で申し訳ありませんが教えて頂けると幸いです。宜しくお願い致します。

[imihito]

Officeアドインに関してはあまりお力になれそうにないです
また、ユーザー操作模倣ではちょっと面倒そうな雰囲気もします。

以下のページを見ると、管理側の設定として一元展開は出来そうなきがしますが。
https://docs.microsoft.com/ja-jp/office/dev/add-ins/publish/publish
http://mitomoha.hatenablog.com/entry/2018/06/29/014016

[SUSU0703]

ありがとうございました!!