メインコンテンツへスキップ

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

Word文書に複数のページがある場合は、現在のXNUMXページだけを新しいWordファイルとして保存する必要があります。 通常、現在のページデータをコピーして新しいWordファイルに貼り付け、保存することができます。 ただし、この記事では、現在のページまたは各ページをWordファイルから個別のドキュメントとして保存する方法について説明します。

現在のページをVBAコードを含む新しいWord文書として保存する

Kutools for Wordを使用して、各ページを個別のWordドキュメントとして保存します


現在のページをVBAコードを含む新しいWord文書として保存する

次のVBAコードは、現在のページのコンテンツを新しいWordファイルに保存するのに役立ちます。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、モジュールウィンドウに次のコードを貼り付けます。

VBAコード:現在のページを新しいWord文書として保存します。

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 このコードを実行するためのキー。ポップアウトされたダイアログボックスで、新しいファイルの名前を入力してください。スクリーンショットを参照してください。

現在のページを保存するドキュメント1

4。 次に、をクリックします。 OK ボタンをクリックし、XNUMX番目にポップアウトされたウィンドウで、新しいファイルを出力するフォルダを選択してください。スクリーンショットを参照してください。

現在のページを保存するドキュメント2

5に設定します。 OK をクリックします。 OK ボタンをクリックすると、現在のページのコンテンツが新しいWordファイルとして保存され、フォルダに移動して結果を表示できます。


Kutools for Wordを使用して、各ページを個別のWordドキュメントとして保存します

ドキュメント全体の各ページを個別のファイルとして保存する場合は、 Kutools for Wordさん スプリット 機能はあなたに有利に働くことができます。

Kutools for Word : 100以上の便利なWordアドインがあり、60日以内に制限なしで無料で試すことができます. 

インストールした後 Kutools for Word、次の手順で実行してください。

1に設定します。 OK をクリックします。 クツールズプラス > スプリット、スクリーンショットを参照してください:

2。 の中に 分割ドキュメント ダイアログボックス:

(1.)選択 ページへ移動します。 分割 ドロップダウンリスト;

(1.)クリック 現在のページを保存するドキュメント5 新しいファイルを出力するフォルダを選択するボタン。

(2.)次に、必要に応じて、新しく保存したファイルのプレフィックスを指定します。

3。 設定が終わったら、 OK ボタンをクリックして分割を開始すると、次のスクリーンショットに示すように、Word文書のすべてのページが特定のフォルダーに個別のファイルとして保存されます。

現在のページを保存するドキュメント6

クリックしてKutoolsfor Wordと無料トライアルを今すぐダウンロードしてください!

最高のオフィス生産性向上ツール

Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能!

以下のハイライトされた機能を詳しく見るか、 Kutools for Wordの全機能を探索するにはここをクリックしてください.

📘 ドキュメントマスタリー: 分割ページ  /  ドキュメントをマージする  /  選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/XLSX)  /  PDFへの一括変換  /  ページを画像としてエクスポート  /  複数のファイルを一度に印刷する ...

コンテンツ編集: バッチ検索と置換 複数のファイルにわたる   /  すべての画像のサイズを変更する   /  テーブルの行と列を転置する  /  表をテキストに変換 ...

🧹 楽にお掃除一掃する 余分なスペース  /  セクションブレーク  /   すべてのヘッダー  /  テキストボックス  /  ハイパーリンク  /  その他の削除ツールについては、削除グループにアクセスしてください

クリエイティブインサート: インセット 千の区切り文字  /  チェックボックス  /  ラジオボタン  /  QRコード  /  バーコード  /  斜線テーブル  /  方程式のキャプション  /  画像キャプション  /  テーブルキャプション  /  複数の写真  /  挿入グループで詳細をご覧ください

🔍 正確な選択: 特定のページを特定する  /  テーブル  /  シェイプ  /  見出し段落  /  選択グループを使用して簡単にナビゲートします

スターの強化: あらゆる場所に素早く移動  /  繰り返しのテキストを自動挿入  /  ドキュメントウィンドウをシームレスに切り替える  /  11 変換ツール ...

Kutools を使用して Word タスクを変換します。 👉 30 日間の試用版を今すぐダウンロード 🚀。

 
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am using Office 365. I think I did everything right to split doc in pages, tried several times, mas the splited page docs are not saved on destination foler.
This comment was minimized by the moderator on the site
Have downloaded Kutools , however do not have ENTERPRISE as an option. Only KUTOOLS and KUTOOLS PLUS, please advise how to activate Enterprise
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations