現在のページまたは各ページを個別のWord 文書として保存する方法は？

著者Xiaoyang変更日2024-09-18

Word 文書に複数のページが含まれている場合、現在表示中のページだけを新しいWord ファイルとして保存したいと思うことはよくあります。通常は、そのページの内容をコピーして新しいWord ファイルに貼り付け、保存する方法を使いますが、本記事では、現在のページや各ページを1 つの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を押すと、2 つ目のポップアップ参照ウィンドウが開き、選択したフォルダーに生成されたファイルが保存されます。
クリックしてOKを押すと、現在のページの内容が新しいWord ファイルとして保存されます。保存先のフォルダーで結果をご確認ください。

Kutools for Word を使用して各ページを個別のWord 文書として保存

文書全体の各ページを個別のファイルとして保存したい場合は、Kutools for Wordの分割機能がぴったりです！

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

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