現在のページまたは各ページを個別のWord文書として保存するにはどうすればよいですか?
Word文書に複数のページが含まれている場合、現在のページだけを新しいWordファイルとして保存する必要が出てくることがあります。一般的な方法は、現在のページの内容を新しいWordファイルにコピーして貼り付け、それを保存することです。しかし、この記事では、現在のページや各ページを単一のWordファイルから個別の文書として保存するためのより効率的な方法をご紹介します。
VBAコードを使用して現在のページを新しいWord文書として保存する
Kutools for Wordを使用して各ページを個別のWord文書として保存する
VBAコードを使用して現在のページを新しいWord文書として保存する
次のVBAコードを使用すると、現在のページの内容を新しいWordファイルとして保存できます。以下の手順に従ってください:
- ALT + F11キーを押したままにし、Microsoft Visual Basic for Applicationsウィンドウを開きます。
- クリック 挿入 > モジュールを選択し、次のコードを モジュール ウィンドウに貼り付けます:
Sub SaveCurrentPageAsANewDoc() Dim xDoc As Document Dim xNewDoc As Document Dim xFileName As String Dim xFolderPath As Variant Dim xDlg As FileDialog Set xDoc = ActiveDocument xFileName = InputBox("Enter file name here: ", "KuTools for Word") If xFileName = "" Then Exit Sub Set xDlg = Application.FileDialog(msoFileDialogFolderPicker) If xDlg.Show = -1 Then xFolderPath = xDlg.SelectedItems(1) xDoc.Bookmarks("\Page").Range.Select Selection.Copy Set xNewDoc = Documents.Add Selection.Paste xNewDoc.SaveAs xFolderPath & "\" & xFileName & ".docx" xNewDoc.Close End If End Sub
- F5キーを押してこのコードを実行します。ポップアップダイアログで、新しいファイル名を入力します。スクリーンショットをご覧ください:
- 「OK」をクリックし、次の「参照」ウィンドウで、新しいファイルを保存するフォルダーを選択します。
- 「OK」をクリックすると、現在のページの内容が新しいWordファイルとして保存されます。結果は選択したフォルダーで確認できます。
Kutools for Wordを使用して各ページを個別のWord文書として保存する
文書全体の各ページを個別のファイルとして保存したい場合は、Kutools for Wordの分割機能が役立ちます。
Kutools for Wordをインストール後、次の手順に従ってください:
- 「Kutools Plus」>「分割」をクリックします。スクリーンショットをご覧ください:
- 「 文書の分割 」ダイアログボックスで:
- 「分割方法」ドロップダウンリストから「ページ」を選択します。
- クリック
ボタンを押して、新規ファイルを保存するフォルダーを選択します。
- 必要に応じて、保存される新しいファイルの接頭辞を指定します。
- 設定が完了したら、「OK」をクリックして分割を開始します。Word文書内のすべてのページが、指定されたフォルダーに個別のファイルとして保存されます。スクリーンショットをご覧ください:
最高のオフィス生産性ツール
Kutools for Word - 100以上の優れた機能でWordの操作をさらに向上!
🤖 Kutools AI Features:AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ(形式を保持) / スーパー トランスレート(形式を保持) / AI編集 / AI校正...
📘 文書マスター:ページの分割 / 文書の結合 / 選択範囲を各種形式(PDF/TXT/DOC/HTMLなど)でエクスポート / 一括PDF変換...
✏ 内容編集:複数ファイルにわたる一括検索と置換 /すべての画像のリサイズ / 表の行と列の転置 / 表をテキストに変換...
🧹 簡単クリーン:余分なスペース / セクション区切り / テキストボックス / ハイパーリンクを一掃します。その他の削除ツールは削除グループでご覧いただけます...
➕ クリエイティブ挿入:千位区切りの挿入 / チェックボックスの挿入 / ラジオボタンの挿入 / QRコード / バーコード / 複数画像の挿入 / 他にも挿入グループにて発見...
🔍 高精度選択:特定のページ / 表 / 図形 / 見出し段落をピンポイントで選択。さらに多くの 選択 機能でナビゲーションを強化...
⭐ スター強化:任意の場所へ移動 / 繰り返しテキストの自動挿入 / 複数文書ウィンドウ間の切替 /11 種類の変換ツール...
🌍 40以上の言語に対応:Kutoolsはお好みの言語でお使いいただけます―英語、スペイン語、ドイツ語、フランス語、中国語など40以上の言語をサポート!

最高のオフィス生産性ツール
Kutools for Word - 100+ のWord用ツール
- 🤖 Kutools AI Features:AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ / スーパー トランスレート / AI編集 / AI校正
- 📘 文書マスター:ページの分割 / 文書の結合 / 一括PDF変換
- ✏ 内容編集:一括検索と置換 /すべての画像のリサイズ
- 🧹 簡単クリーン:余分なスペースの削除 / セクション区切りの削除
- ➕ クリエイティブ挿入:千位区切りの挿入 / チェックボックスの挿入 / QRコードの作成
- 🌍 40以上の言語に対応:Kutoolsはあなたの言語に対応 ―40以上の言語をサポート!