文書の変更点を抽出するマクロのエラー

Question

２つのWordファイルの文書を比較して、Ver1からVer2への変更点一覧を作成したいと考えています。

ネットで調べたマクロを試してみましたが、「Set objWord = CreateObject("Word.Application")」の箇所でオートメーションエラーと表示されてしまいます。

解決方法をご存知の方がいらっしゃったらご教示いただけると幸いです。

参考サイト：http://www.fingeneersblog.com/1141/

Public Sub CompDocs()
    
    '--- Wordのアプリケーションオブジェクト ---'
    Dim objWord As Word.Application
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    
    '--- 比較対象のドキュメントオブジェクト１ ---'
    Dim objDoc_Org As Word.Document
    Set objDoc_Org = objWord.Documents.Open("[吾輩は猫である_Ver1 ]")
    
    '--- 比較対象のドキュメントオブジェクト２ ---'
    Dim objDoc_Rev As Word.Document
    Set objDoc_Rev = objWord.Documents.Open("[吾輩は猫である_Ver2]")
    
    '--- 文書を比較して比較結果のドキュメントオブジェクトを格納する ---'
    Dim objDoc_Cmp As Word.Document
    Set objDoc_Cmp = objWord.CompareDocuments(objDoc_Org, objDoc_Rev)
    
    Call objDoc_Org.Close(savechanges:=False)
    Call objDoc_Rev.Close(savechanges:=False)
    
    '--- ワードを閉じる ---'
    Call objWord.Quit
    
End Sub

････…………

Comments

[meg_]

マクロを記述しているアプリケーションは何ですか？

Answer 1

起動再起動を実施して何度か試してみて1回も上手くいかないという状況でしょうか。
そうでないなら何度か試して下さい。

何度か試してダメなら、思い当たるのはこの辺り。
https://support.microsoft.com/en-us/help/828550/you-receive-run-time-error-429-when-you-automate-office-applications

それか、レイトバインディングにしてみたら如何でしょう。
オートメーションではないですが、エラーが解消した事例があります。

後は、そもそも提示されている情報が少ないので、
エラー番号とか生のエラーコードとか実行環境とかその他諸々追記した方がいいです。