ワードのマクロについて教えてください。

ワードのThisDocumentに下記のコードがあります。
Private Sub Document_Open()

Dim tmp As Long

With Application
tmp = .RecentFiles.Maximum
.RecentFiles.Maximum = 0
.Dialogs(wdDialogToolsCompareDocuments).Show
.RecentFiles.Maximum = tmp
End With

End Sub
このコードは先ほど教えて頂いたのですが
ブックを保存しているワードを開くとワード機能の比較が実行されます。
このコードに下記の内容の項目を追加する方法を教えてください。
1．比較画面の左側の元の文章に
C:\Users\〇〇\Desktop\更新図書\2023年度\旧図書に保存されている
ファイル名：「北海道」を自動で選択し表示
2．比較画面の右側の元の文章に
C:\Users\〇〇\Desktop\更新図書\2023年度\新図書に保存されている
ファイル名：「北海道」を自動で選択し表示
が出来る方法を教えてください。
よろしくお願いします。

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2023/01/21 17:49

この質問と関連するものですね。

https://oshiete.goo.ne.jp/qa/13320282.html

比較のダイアログを出さなくても、指定のファイルを比較するのは
可能です。
https://www.ka-net.org/office/of51.html

そのまま書き換えたものです。
Public Sub Sample()
Dim doc1 As Word.Document
Dim doc2 As Word.Document

Set doc1 = Application.Documents.Open("C:\Users\〇〇\Desktop\更新図書\2023年度\旧図書\北海道.docｘ")
Set doc2 = Application.Documents.Open("C:\Users\〇〇\Desktop\更新図書\2023年度\新図書\北海道.docｘ")
Application.CompareDocuments doc1, doc2, wdCompareDestinationNew, wdGranularityWordLevel
End Sub

フォルダ名やファイル名などは変数にすれば、カスタマイズし易く
なるでしょうね。

この回答へのお礼

回答ありがとうございました
早速試してみます

お礼日時：2023/01/21 17:59