間違いなくWord 2010は最高のワードエディターです基本的な編集ツールとグラフスタイルを提供する以外に、必要に応じてドキュメントをカスタマイズするオプションも提供します。デフォルトでは、Word 2010にはさまざまな機能を追加するオプションがあります。たとえば、コードを数行挿入するだけで、専用のサードパーティアプリを使用せずにWord文書をマージできます。この投稿では、同じフォルダーにあるドキュメントのすべてのコンテンツをマージして新しいフォルダーに表示するために、数行のコードを挿入します。
まず、それらを同じ場所に置く必要がありますフォルダ、すべてが同じWordバージョンのDocまたはDocxに属していることを確認してください。以下のスクリーンショットでわかるように、一緒にマージされる2つのドキュメントを開きました。
ここで、Wordドキュメントを開き、マクロ対応ドキュメントとして保存します。このためには、[ファイル]メニューに移動して[ 名前を付けて保存。
次のダイアログが表示されます タイプとして保存、 クリック Wordマクロ有効テンプレート [保存]をクリックします。
VBエディターを使用するため、最初に作成する必要があります 開発者 Wordウィンドウに表示されるタブ。見つけられない場合 開発者 タブ、に行きます ファイル メニュー、クリック オプション、および 左ペインでクリック リボンのカスタマイズ、 右ペインから有効化 開発者 チェックボックス。クリック OK 見る 開発者 リボンのタブ。
に移動します 開発者 タブとクリック Visual Basic。
左サイドバーをダブルクリックして、VB Editorダイアログにアクセスします ThisDocument to VB編集ウィンドウを開きます。右側にコードウィンドウが表示されます。次に、これらのコード行を挿入します。
注意： フォルダーのパスを変更することを忘れないでくださいドキュメントが存在する場所と、これらのコード行のWordドキュメントのバージョン。簡単にするために、コードの前にもこの予防措置を追加しました。
サブMergeDocs（）
範囲を暗くする
Dim MainDoc As Document
文字列としてDim strFile
Const strFolder =“ C：UsersUsman JavaidDesktopWordドキュメント” ||| （ドキュメントが存在するパスを変更します）
MainDoc = Documents.Addを設定します
strFile = Dir $（strFolder＆“ * .docx”） ||| （Word 97-03バージョンを扱う場合は、ファイル拡張子を.docに変更してください）
strFile =“”になるまで行う
rng = MainDoc.Rangeを設定
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder＆strFile
strFile = Dir $（）
ループ
サブ終了
今すぐ押す Ctrl + S 新しく追加されたマクロを保存し、VBエディターを閉じます。案内する 開発者 タブとクリック マクロ。
から マクロ ダイアログ、選択 MergeDocs マクロとクリック 走る.
パスとバージョンを正しく指定すると、すべてのドキュメントがマージされ、新しいドキュメントで開かれます。
また、Word 2010で編集された最後の行に戻る、およびWord 2010で差し込み印刷を使用する、以前にレビューしたガイドを確認することもできます。
コメント