大きなMSWord文書から特定のページを抽出する方法

大きなMicrosoftWord文書がある場合、興味のある部分を見つけるのは面倒で、特定のページを誰かに送信したい場合は特に注意が必要です。 ただし、Wordページを選択して別のファイルとして保存するために使用できるいくつかのアプローチがあります。 最も簡単なアプローチは、間違いなく、通常の方法で必要なコンテンツを強調表示することです。 コピーしますが、マクロを使用して、見た目がもっと簡単になっても、物事を少し簡単にすることもできます。 複雑。

Wordからページを抽出–簡単

最も簡単な方法は、抽出するページが見つかるまでドキュメント内を移動し、テキスト（および該当する場合は画像または表）を強調表示してから、新しいドキュメントにコピーすることです。 ページの最初をクリックし、マウスの左ボタンを押したまま、カーソルをページの最後にドラッグして、必要なすべてのコンテンツを強調表示します。 次にを押します NS+NS テキストをコピーするか NS+NS ドキュメントから切り取ります。 ドキュメント内のテキストが絶対に不要にならない限り、コピーの方が安全です。

を使用して新しいWord文書を開く NS+NS またはをクリックして オフィス ボタンと選択 新しい 次にを押します NS+V コンテンツを新しいドキュメントに貼り付けます。 メモ帳またはその他のプログラムを使用してページを抽出する場合は、代わりにそこで新しいドキュメントを開いて同じことを行います。 残っているのは新しいファイルを保存することだけで、これで完了です。 他のページでこのプロセスを繰り返し、それらをすべて1つのファイルに結合するか、複数の新しい1ページのファイルを作成します。

同様の（しかしより速い）アプローチ

コピー＆ペーストの方法はほとんどの目的に適していますが、抽出する正確なページ番号がわかっている場合は、すばやく実行できます。 Word文書を開いた状態で、を押します NS+NS [検索と置換]ダイアログを開き、 移動 タブが開いています。 このショートカットを使用すると、自動的にそこに移動します。 確実に ページ 左側で強調表示されているので、右側のフィールドを使用して、抽出するページの番号を入力します。

クリック 移動 ボタンを押すと、カーソルがページの上部に移動します。 押す F8 Wordを拡張モードにします。 さて、に戻ります 移動 ダイアログを表示し、必要なページの次のページの番号を入力して、を押します 移動 また。 これにより、ページ全体が強調表示されます。 そこから、上記のようにコンテンツをコピーして貼り付けることができます。

マクロを使用してページを抽出する

VBAを使用してWord文書を複数の文書に分割するために使用できるアプローチは多数あります。 をクリックするか デベロッパー タブをクリックして選択します Visual Basic またはを押します Alt+F11 VisualBasicを直接開きます。 選ぶ 普通 左側のリストから、 入れる 上部のメニューからクリックします モジュール.

次に、開いたウィンドウに次のコードを貼り付けます。

Sub SaveCurrentPageAsANewDoc（）
Dim objNewDoc As Document
Dim objDoc As Document
文字列としての薄暗いstrFileName
文字列として薄暗いstrFolder

'初期化
objDoc = ActiveDocumentを設定します

strFolder = InputBox（ "ここにフォルダパスを入力してください："）
strFileName = InputBox（ "ここにファイル名を入力してください："）

'現在のページをコピーします。
objDoc。 ブックマーク（ "\ Page"）。範囲。 選択する
選択。 コピー

'新しいドキュメントを開いて、選択範囲を貼り付けます。
objNewDoc = Documentsに設定します。 追加
選択。 ペースト

objNewDoc。 SaveAs FileName：= strFolder＆ ""＆strFileName＆ "。docx"
objNewDoc。 選ぶ
サブ終了

Word文書で抽出するページにカーソルがあることを確認し、VisualBasicページに移動してクリックします。 走る （NS 演奏する 上部パネルのボタン）。 C：ドライブから開始してドキュメントを保存する場所のファイルパスを入力し、ファイル名を入力するように求められます。 これらの両方を実行すると、ファイルが作成されます。