現在のページまたは各ページを個別のWord文書として保存するにはどうすればよいですか？
Word 文書に複数のページが含まれている場合、現在の 1 ページだけを新しい Word ファイルとして保存する必要がある場合があります。通常の方法は、現在のページの内容をコピーして新しい Word ファイルに貼り付け、保存することです。ただし、この記事では、現在のページまたは各ページを 1 つの Word ファイルから個別の文書として保存する、より効率的な方法を紹介します。
現在のページをVBAコードを含む新しいWord文書として保存する
Kutools for Wordを使用して、各ページを個別のWordドキュメントとして保存します
現在のページをVBAコードを含む新しいWord文書として保存する
次の VBA コードを使用すると、現在のページの内容を新しい Word ファイルに保存できます。次の手順に従います。
1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。
2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをモジュールウィンドウに貼り付けます。
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
3。 押す F5 このコードを実行します。ポップアップダイアログで、新しいファイルの名前を入力します。スクリーンショットを参照してください:
4に設定します。 OK をクリックします。 OK2 番目のポップアップ参照ウィンドウで、新しいファイルを保存するフォルダーを選択します。
5に設定します。 OK をクリックします。 OKをクリックすると、現在のページの内容が新しい Word ファイルとして保存されます。結果は選択したフォルダで確認できます。
Kutools for Wordを使用して、各ページを個別のWordドキュメントとして保存します
ドキュメント全体の各ページを個別のファイルとして保存する場合は、 Kutools for Wordさん スプリット 機能はあなたに有利に働くことができます。
インストールした後 Kutools for Word、次の手順で実行してください。
1に設定します。 OK をクリックします。 クツールズプラス > スプリット、スクリーンショットを参照してください：
2。 の中に 分割ドキュメント ダイアログボックス：
（1.）選択 ページへ移動します。 分割 ドロップダウンリスト;
（1.）クリック 
新しいファイルを出力するフォルダを選択するボタン。
（2.）次に、必要に応じて、新しく保存したファイルのプレフィックスを指定します。
3。 設定が終わったら、 OK ボタンをクリックして分割を開始すると、次のスクリーンショットに示すように、Word文書のすべてのページが特定のフォルダーに個別のファイルとして保存されます。
クリックして Kutools for Word をダウンロードし、今すぐ無料トライアルを開始してください。
最高のオフィス生産性向上ツール
Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能！
🤖 Kutools AIの機能: コンテンツを生成する / テキストを書き換える / ドキュメントに関するQ&A / すぐに回答を得る / ドキュメントを翻訳する / ポーランド語文書（保存形式）...
📘 ドキュメントマスタリー: 分割ページ / ドキュメントをマージする / 選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...) / PDFへの一括変換...
✏ コンテンツ編集: 複数のファイルにわたるバッチ検索と置換 / すべての画像のサイズを変更する / テーブルの行と列を転置する / 表をテキストに変換...
🧹 楽にお掃除: 掃き捨てる 余分なスペース / セクションブレーク / テキストボックス / ハイパーリンク / その他の取り外しツールについては、 削除します グループ...
➕ クリエイティブインサート：挿入 千の区切り文字 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の写真 / 詳細はこちら インセット グループ...
🔍 正確な選択： ピンポイント 特定のページ / テーブル類 / 形状 / 見出し段落 / ナビゲーションを強化する 他には？ 選択 機能を使用...
⭐ スターの強化: 任意の場所に移動 / 繰り返しテキストの自動挿入 / ドキュメントウィンドウ間の切り替え / 11 変換 ツール...
最高のオフィス生産性向上ツール
Kutools for Word - Word 用の 100 以上のツール
- 🤖 Kutools AIの機能: 生成する, リライト, まとめる, 翻訳します ドキュメント / すぐに回答を得る / ポーランド語文書（保存形式）
- 📘 ドキュメントマスタリー: 分割ページ / ドキュメントをマージする / PDFへの一括変換
- ✏ コンテンツ編集: バッチ検索と置換 / すべての画像のサイズを変更する
- 🧹 楽にお掃除: 余分なスペースを削除する / セクション区切りを削除する
- ➕ クリエイティブインサート: 千単位区切り記号を挿入 / チェックボックスを挿入する / QRコードを作成する