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

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

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

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

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

VBA
1Public Sub CompDocs()
2    
3    '--- Wordのアプリケーションオブジェクト ---'
4    Dim objWord As Word.Application
5    Set objWord = CreateObject("Word.Application")
6    objWord.Visible = True
7    
8    '--- 比較対象のドキュメントオブジェクト１ ---'
9    Dim objDoc_Org As Word.Document
10    Set objDoc_Org = objWord.Documents.Open("[吾輩は猫である_Ver1 ]")
11    
12    '--- 比較対象のドキュメントオブジェクト２ ---'
13    Dim objDoc_Rev As Word.Document
14    Set objDoc_Rev = objWord.Documents.Open("[吾輩は猫である_Ver2]")
15    
16    '--- 文書を比較して比較結果のドキュメントオブジェクトを格納する ---'
17    Dim objDoc_Cmp As Word.Document
18    Set objDoc_Cmp = objWord.CompareDocuments(objDoc_Org, objDoc_Rev)
19    
20    Call objDoc_Org.Close(savechanges:=False)
21    Call objDoc_Rev.Close(savechanges:=False)
22    
23    '--- ワードを閉じる ---'
24    Call objWord.Quit
25    
26End Sub
27
28････…………