現在のページまたは各ページを個別のWord文書として保存するにはどうすればよいですか？

Author: Xiaoyang Last Modified: 2025-05-23

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について、AI 🤖を搭載し、100 以上の便利な機能を提供して作業を簡素化します。

今すぐダウンロード

Kutools for Wordをインストール後、次の手順に従ってください：

「Kutools Plus」＞「分割」をクリックします。スクリーンショットをご覧ください：
「 文書の分割 」ダイアログボックスで：
1. 「分割方法」ドロップダウンリストから「ページ」を選択します。
2. クリックボタンを押して、新規ファイルを保存するフォルダーを選択します。
3. 必要に応じて、保存される新しいファイルの接頭辞を指定します。
設定が完了したら、「OK」をクリックして分割を開始します。Word文書内のすべてのページが、指定されたフォルダーに個別のファイルとして保存されます。スクリーンショットをご覧ください：