ワードの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ベストアンサー
- 回答日時:
この質問と関連するものですね。
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年度\旧図書\北海道.docx")
Set doc2 = Application.Documents.Open("C:\Users\〇〇\Desktop\更新図書\2023年度\新図書\北海道.docx")
Application.CompareDocuments doc1, doc2, wdCompareDestinationNew, wdGranularityWordLevel
End Sub
フォルダ名やファイル名などは変数にすれば、カスタマイズし易く
なるでしょうね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) エクセルのマクロについて教えてください。 5 2023/01/21 09:39
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 09:24
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/02 11:48
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/01/23 17:13
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) 【マクロ】ファイルを古い順に、1個ずつ移動する 1 2022/09/06 20:30
- Excel(エクセル) マクロのコードを、少しでも削って短くしたい 3 2022/08/30 07:46
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
読む声や、YouTubeをテキストフ...
-
再起動が必要です
-
ワードの終了について
-
[word(ワード)]ツールバー、...
-
OUTLOOKで・・・
-
至急!!原稿用紙のようなテキ...
-
Word2007のリボン機能内のそれ...
-
PDFの文章にURLを入れてクリッ...
-
Wordの文字数について。
-
.lwp のファイルを読む方法
-
学校の運動場の遊具の配置やラ...
-
どなたか宛名ラベルの枠線を表...
-
レポートの宿題は、pdf化の指示...
-
ワードの文章を一部、黒くマス...
-
PDFがすべてワードに変わってます
-
課題でワード2枚程度と言われ...
-
一太郎ビューアのデータをWo...
-
LINEのオプチャですが、はじか...
-
エクセルとワードで作ったデー...
-
エクセル。行を挿入すると、関...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
[word(ワード)]ツールバー、...
-
OUTLOOKで・・・
-
ワードのチェックボックスの色
-
ワードの差し込み印刷の参照先...
-
ワードの終了について
-
Word2007のリボン機能内のそれ...
-
PDFの文章にURLを入れてクリッ...
-
ワード2000でローマ字入力...
-
ワードのアイコンが全てメモ?...
-
ワードのマクロについて教えて...
-
.lwp のファイルを読む方法
-
どなたか宛名ラベルの枠線を表...
-
縦書きする方法
-
文字列周辺にぼかしを付ける方法
-
ワードに貼り付けた画像が表示...
-
ワードで勝手に空白ができる。
-
ワード2003で過去に作った文書...
-
ワードに貼り付けた画像をPhoto...
-
ワードで戻りすぎて全部消えて...
-
(^・^) デジカメ写真をプリン...
おすすめ情報