ワードの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ランキング
-
OUTLOOKで・・・
-
[word(ワード)]ツールバー、...
-
ワードのチェックボックスの色
-
ホームページビルダーで間取り...
-
PDFの文章にURLを入れてクリッ...
-
ワードの終了について
-
ワードの使い方で教えて頂きた...
-
文字が出ないようにするやり方
-
ワードのアイコンが全てメモ?...
-
ワード2000でローマ字入力...
-
個人での電子図書出版
-
ワードのデータを同僚から入れ...
-
WordやExcelで、オリジナルの操...
-
98対応ののし紙ソフトXPでの...
-
初心者の祖父78歳が日記を付...
-
数学教材の作り方について
-
ワードで戻りすぎて全部消えて...
-
ワードに貼り付けた画像が表示...
-
どなたか宛名ラベルの枠線を表...
-
Word2007のリボン機能内のそれ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
[word(ワード)]ツールバー、...
-
OUTLOOKで・・・
-
ワードの差し込み印刷の参照先...
-
ワードの終了について
-
ワードのチェックボックスの色
-
PDFの文章にURLを入れてクリッ...
-
Word2007のリボン機能内のそれ...
-
ワード2000でローマ字入力...
-
ワードに貼り付けた画像をPhoto...
-
.lwp のファイルを読む方法
-
word2007で…黒いバーが立ち上が...
-
ワードのアイコンが全てメモ?...
-
ワード入力
-
文字列周辺にぼかしを付ける方法
-
ワードに貼り付けた画像が表示...
-
どなたか宛名ラベルの枠線を表...
-
ワードのマクロについて教えて...
-
ワードのカーソルが常時点滅
-
Wordの文字数について。
-
ME10の設定変更(IPアドレスの変...
おすすめ情報