Word 文書からページを分割・抽出する（4 種類の方法）

著者孫変更日2025-04-07

長いWord 文書を管理していると、特定のページを別途レビューしたり配布したりするために抽出したくなることがあります。単一ページやページ範囲を抜き出したい場合でも、あるいは定義された条件に基づいて文書全体を分割する必要がある場合でも、Microsoft Word にはそのための効果的なオプションがいくつか用意されています。ここでは、Word 文書からページを簡単に抽出・分割できる実用的な方法を4 つご紹介します。

Word から特定のページ／現在のページを抽出する

コピー＆ペースト機能を使用して手動で
PDF 印刷機能を使用して抽出ページを PDF として保存
VBA コードを使用して抽出ページを特定のフォルダーに保存

Word 文書全体をページ、見出し、改ページに基づいて個別のファイルに分割

動画：Word でページを抽出

Word から特定のページ／現在のページを抽出する

このガイドでは、文書から特定のページや現在表示中のページを効率よく抽出するための3 つの方法を詳しくご紹介します。

コピー＆ペースト機能によるページの抽出 – 手動で

Word 文書から特定のページやコンテンツを抽出する最も簡単な方法は、コピー＆ペースト機能を使うことです。

手順1：抽出したいコンテンツを選択する

抽出したいコンテンツの先頭にカーソルを置き、末尾までスクロールしてから、Shiftキーを押しながら末尾をクリックしてください。

手順2：選択したコンテンツをコピーする

選択したコンテンツを右クリックしてコピーを選択するか、またはシンプルにCtrl + Cを押すだけです。

手順3：新しい文書に貼り付ける

新しいWord 文書を開いて、Ctrl + Vでコンテンツを貼り付けましょう。

手順4：新しい文書を保存する

「ファイル」＞「名前を付けて保存」をクリックして、新しく作成した文書を保存しましょう。

PDF 印刷機能によるページの抽出 – 抽出ページを PDF として保存

ページを抽出するもう一つの方法は、PDF として印刷することです。この方法は、抽出したページを広く受け入れられている形式で共有・保存したい場合に特に便利です。

手順1：印刷メニューに移動する

文書を開いた状態で、「ファイル」メニューから「印刷」を選択してください。

手順2：Microsoft Print to PDF を選択する

プリンターのドロップダウンメニューから、「Microsoft Print to PDF」を選択してください。

手順3：ページ範囲を指定する

設定で、抽出したい印刷範囲を選択します：

すべてのページを印刷：文書の全ページを印刷します。
選択範囲を印刷：選択した範囲を印刷します。範囲が選択されていない場合は、このオプションは使用できません。
現在のページを印刷：現在のページを印刷します。
カスタム印刷：印刷したいページ範囲を自由に指定できます。このオプションを選択すると、「ページ」テキストボックスが表示されるので、印刷するページ番号を入力してください。

手順4：印刷する

「印刷」をクリックして、PDF を保存する場所を選択してください。指定されたページが新しい PDF 文書として保存されます。

VBA コードによるページの抽出 – 抽出ページを特定のフォルダーに保存

VBA に慣れていらっしゃる方は、スクリプトを使ってページ抽出プロセスを自動化できます。この方法は、特に大規模な文書を扱う際に威力を発揮します。

注：以下のコードは一度に連続したページ範囲のみを抽出できます。

手順1：Alt + F11 キーを押して VBA エディターを開く

手順2：新しいモジュールを挿入する

開いた「Microsoft Visual Basic for Applications」ウィンドウで、「挿入」タブをクリックし、「標準モジュール」を選びましょう。

手順3：コードを挿入する

以下のコードをコピーして、モジュールウィンドウに貼り付けてください。

Sub SaveSpecifiedPagesAsNewDoc()
'UpdatebyKutools
    Dim objNewDoc As Document
    Dim objDoc As Document
    Dim strFolder As String
    Dim strFileName As String
    Dim startPage As Long
    Dim endPage As Long
    Dim startRange As Range
    Dim endRange As Range
    
    ' Initialize
    Set objDoc = ActiveDocument
    
    ' Specify the folder path and file name here
    strFolder = "C:\Users\AddinsVM001\Desktop\pdf\extract pages" ' Example path
    strFileName = "ExtractedPages" ' Example file name
    
    ' Specify start and end pages here
    startPage = 3
    endPage = 4
    
    ' Find the range of the specified pages
    With objDoc
        ' Go to the start of the start page
        .GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=startPage).Select
        Set startRange = Selection.Range
        
        ' Go to the start of the page after the end page, to get the complete end page
        .GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=endPage + 1).Select
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Set endRange = Selection.Range
        
        ' Define the range from start to end page
        Set startRange = .Range(Start:=startRange.Start, End:=endRange.End)
       
        
    End With
    
    ' Copy the defined range
    startRange.Copy
    
    ' Open a new document to paste the selection
    Set objNewDoc = Documents.Add
    objNewDoc.Content.Paste
    
    ' Save the new document
    objNewDoc.SaveAs2 FileName:=strFolder & "\" & strFileName & ".docx"
    objNewDoc.Close False
    
    ' Clean up
    Set objNewDoc = Nothing
    Set objDoc = Nothing
    Set startRange = Nothing
    Set endRange = Nothing
    
    MsgBox "Pages " & startPage & " to " & endPage & " have been extracted to " & strFileName & ".docx"
End Sub

注：このスクリプトでは、コード内で直接ページ範囲、ファイル名、および保存パスを定義できます。ご自身のニーズに合わせて、strFolder、strFileName、startPage、endPageの値を必ず変更してください。マクロを実行すると、ユーザー操作なしで指定されたページが新しいWord ファイルに自動保存されます。