Word ドキュメントからすべての画像を保存する方法

多数の画像を含むWord ドキュメントを扱う際、一枚ずつ手動で画像を保存するのは面倒で非効率的です。 幸いにも、埋め込まれたすべての画像を一度に素早く抽出できる実用的な方法がいくつかあります。 これにより作業効率が大幅に向上し、画像の見落としも防げます。 本チュートリアルでは、さまざまなニーズや状況に応じて活用できる4 つの効果的な方法をご紹介します。

「名前を付けて保存」機能を使ってすべての画像を保存する

Kutools for Word を使ってすべての画像を保存する

ファイル拡張子を変更してすべての画像を保存する

VBA コードを使用してすべての画像を自動抽出・保存する

---

「名前を付けて保存」機能を使ってすべての画像を保存する

「名前を付けて保存」機能を使えば、Word ドキュメント内のすべての画像を一度に簡単に抽出できます。アドインや高度な設定が不要で、シンプルにサッと実行したいときに特に便利です。手順は次のとおりです。

1. まず、保存したい画像を含むドキュメントを開きます。その後、Word のインターフェースでファイル＞名前を付けて保存を選択します。
2. 保存形式を指定してください。ドロップダウンリストから「ウェブページ(*。htm； *。html)」を選択します。この形式では、ドキュメント内の画像やその他のメディアが外部フォルダーに分離されてエクスポートされます。
3. 保存をクリックします。。

   

保存後、指定した場所に.htm ファイルと対応するフォルダー（ドキュメント名と同じ名前）が生成されます。このフォルダー内には、ドキュメントから抽出されたすべての画像が元の形式で格納されています。この方法は迅速で、ほとんどの標準的なWord ドキュメントに適用できます。ただし、画像のファイル名が一般的なものになる場合があり、まれに高度な画像タイプが完全に抽出されないことがあります。大規模なドキュメントでは、画像の整理に追加の手間がかかる場合があります。

---

Kutools for Word を使ってすべての画像を保存する

Kutools for Word には、画像/表を画像にエクスポートという専用機能があり、わずか数回のクリックでドキュメント内のすべての画像を効率よくエクスポートできます。多数の画像を含むドキュメントを頻繁に扱う方や、エクスポート形式・保存先フォルダーをカスタマイズしたい場合に特に便利です。

1. Word のリボンで、KUTOOLS PLUS ＞ その他 ＞ 画像/表を画像にエクスポートをクリックします。

   

2. 画像／表を画像にエクスポートダイアログボックスで、抽出オプションを慎重に設定します。 dialog box, configure the extraction options carefully:
   • エクスポート対象を画像のみに限定するには、種類を画像に設定してください。
   • 希望する画像形式（PNG、JPG、BMP など）をエクスポート形式ドロップダウンリストから選択してください。最適な形式を選ぶことで、今後の互換性がしっかり確保されます。
   • すべての画像を保存するフォルダーを指定するには、ボタンをクリックしてください。誤って画像をエクスポートしないためにも、選択内容をしっかり確認しましょう。

     

3. エクスポートをクリックすると、ドキュメント内のすべての画像が個別のファイルとして指定したフォルダーに保存されます。 All images from the document will be extracted and saved as individual files in your chosen folder.

この方法では、一括画像抽出が可能で、柔軟なフォーマット設定に対応しており、表や特殊なグラフィックの処理にも追加メリットがあります。複雑なレイアウトや画像タイプが混在するドキュメントの場合、Kutools が全体的なプロセスを簡素化します。エクスポート中にエラーを回避するため、保存先フォルダーに書き込み権限があることを確認してください。

---

ファイル拡張子を変更してすべての画像を保存する

追加ソフトウェアや組み込み機能を使わずにWord ドキュメントから画像を抽出したい場合は、ファイル形式を活用した手動での方法があります。.docx ファイルは、実はドキュメント内のすべてのアセットを含んだ ZIP アーカイブという仕組みを利用しており、多少技術的な手順にはなりますが、元の画像ファイルにアクセスするのに非常に効果的です。手順は次のとおりです。

1. Word ファイルを右クリックして、名前の変更を選択します。

   

2. .docx を.zip に置き換えて、ファイル拡張子を変更します。Windows エクスプローラーでファイル拡張子が表示されていることを必ず確認してください。 Make sure you have file extensions visible in Windows Explorer.

   

3. Enter キーを押します。ファイルタイプを変更する旨の警告メッセージが表示された場合は、はいをクリックして続行します。

   

4. ZIP アーカイブを右クリックして、次へ展開[ファイル名]を選択するか、互換性のある解凍ツールをご利用ください。
5. 展開されたフォルダー内で、Word ＞ media に移動してください。このディレクトリには、元のドキュメントに埋め込まれたすべての画像が保存されています。

   

この方法では、画像を元の圧縮率と品質のまま直接取得できます。上級ユーザー向けや大量抽出に最適です。展開後のフォルダー内のファイルを変更しないよう注意してください。変更すると、ドキュメントを復元できなくなる可能性があります。システムでファイル拡張子がデフォルトで表示されない場合は、Windows エクスプローラーの設定で表示を有効にしてください。

---

VBA コードを使用して埋め込まれたすべての画像を自動抽出・保存する

VBA マクロを使えば、アクティブなWord ドキュメントに埋め込まれたすべての画像を指定フォルダーに自動で抽出・エクスポートできます。多数の画像を含むドキュメントを頻繁に扱い、手間をかけずに繰り返し実行したいユーザーに特に有益です。VBA 方式は柔軟性が高く、エクスポート先をカスタマイズしたり、最小限の操作で抽出を実行したりできます。

この方法は、Word での基本的なマクロ操作に慣れているユーザーに最適です。実行前に、マクロが有効になっており、デバイス上で VBA を実行する権限があることを確認してください。この方法はインライン画像およびフローティング画像には対応していますが、図形やチャートは画像として抽出されない場合があります。

1。抽出したい画像を含むWord ドキュメントを開き、アクティブにして表示してください。

2。Alt＋F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

3。挿入＞モジュールを VBA ウィンドウでクリックし、その後、以下の VBA コードをモジュール パネルにコピー＆ペーストしてください。

VBA コード：アクティブなドキュメントから埋め込まれたすべての画像を抽出・保存する

Sub ExportImagesPreserveOriginal()
'Updated by Extendoffice.com
    Dim doc As Document
    Dim tempPath As String
    Dim exportFolder As String
    Dim fso As Object
    Dim htmlPath As String
    Dim imgFolder As String
    Dim file As Object
    Dim subFolder As Object
    Dim xTitleId As String
    Dim foundImages As Boolean
    
    On Error Resume Next
    xTitleId = "Kutools for Word"

    ' Ask user for destination folder
    exportFolder = InputBox("Enter the full folder path to save images:", xTitleId, "C:\ExtractedImages")
    If exportFolder = "" Then Exit Sub
    If Right(exportFolder, 1) <> "\" Then exportFolder = exportFolder & "\"

    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(exportFolder) Then fso.CreateFolder exportFolder

    ' Save current document as filtered HTML (temporary)
    Set doc = ActiveDocument
    tempPath = Environ("TEMP") & "\WordImageExport_"
    htmlPath = tempPath & Format(Now, "yyyymmdd_hhnnss") & ".htm"
    
    doc.SaveAs2 FileName:=htmlPath, FileFormat:=wdFormatFilteredHTML

    ' Find the generated "_files" folder that contains the images
    imgFolder = Left(htmlPath, Len(htmlPath) - 4) & "_files"
    
    foundImages = False
    If fso.FolderExists(imgFolder) Then
        For Each file In fso.GetFolder(imgFolder).Files
            If LCase(Right(file.Name, 4)) = ".jpg" Or _
               LCase(Right(file.Name, 4)) = ".png" Or _
               LCase(Right(file.Name, 4)) = ".gif" Or _
               LCase(Right(file.Name, 4)) = ".bmp" Then
                fso.CopyFile file.Path, exportFolder & file.Name, True
                foundImages = True
            End If
        Next file
    Else
        For Each subFolder In fso.GetFolder(fso.GetParentFolderName(htmlPath)).SubFolders
            If InStr(1, subFolder.Name, "_files", vbTextCompare) > 0 Then
                For Each file In subFolder.Files
                    fso.CopyFile file.Path, exportFolder & file.Name, True
                    foundImages = True
                Next file
            End If
        Next subFolder
    End If

    On Error Resume Next
    fso.DeleteFile htmlPath, True
    fso.DeleteFolder imgFolder, True

    If foundImages Then
        MsgBox "All images have been exported successfully to:" & vbCrLf & exportFolder, vbInformation, xTitleId
    Else
        MsgBox "No images found in the document.", vbExclamation, xTitleId
    End If
End Sub

4。F5キーを押してマクロを実行します。表示されるプロンプトで、すべての画像を保存するフォルダー（例：C:\ExtractedImages）を指定してください。

このマクロは、アクティブなWord ドキュメント内のすべてのインライン画像およびフローティング画像を処理し、選択したフォルダー内の生成されたファイルにそれぞれコピーします。フォルダーが存在し、ファイルの書き込み権限があることを確認してください。結果として保存される画像は、元のファイルの種類のままになります。エラーが発生した場合は、ファイルパスおよびマクロのセキュリティ設定を確認してください。

この VBA 方式は、繰り返しのタスクや大量の画像処理に非常に効果的です。ただし、SmartArt や数式などの他のグラフィックタイプは抽出されない場合があります。VBA に不慣れなユーザーは、実行前にマクロの安全性やバックアップ手順を確認することを推奨します。

---