Get all pictures

The following example shows you how to get all pictures from a Word document using the GetPictures method. Each picture contains the image data and content type.

C# example

using System;
using System.Collections.Generic;
using System.IO;
using Independentsoft.Office.Word;

namespace Sample
{
    class Program
    {
        static void Main(string[] args)
        {
            WordDocument doc = new WordDocument("c:\\test\\input.docx");

            IList<IPicture> pictures = doc.GetPictures();

            for (int i = 0; i < pictures.Count; i++)
            {
                string extension = "png";

                if (pictures[i].ContentType == "image/jpeg")
                {
                    extension = "jpg";
                }
                else if (pictures[i].ContentType == "image/gif")
                {
                    extension = "gif";
                }
                else if (pictures[i].ContentType == "image/bmp")
                {
                    extension = "bmp";
                }

                string outputPath = "c:\\test\\picture" + i + "." + extension;
                File.WriteAllBytes(outputPath, pictures[i].Data);

                Console.WriteLine("Saved: " + outputPath);
            }

            Console.WriteLine("Total pictures: " + pictures.Count);
        }
    }
}

VB example

Imports System
Imports System.Collections.Generic
Imports System.IO
Imports Independentsoft.Office.Word

Module Module1
    Sub Main(ByVal args() As String)

        Dim doc As WordDocument = New WordDocument("c:\test\input.docx")

        Dim pictures As IList(Of IPicture) = doc.GetPictures()

        For i As Integer = 0 To pictures.Count - 1

            Dim extension As String = "png"

            If pictures(i).ContentType = "image/jpeg" Then
                extension = "jpg"
            ElseIf pictures(i).ContentType = "image/gif" Then
                extension = "gif"
            ElseIf pictures(i).ContentType = "image/bmp" Then
                extension = "bmp"
            End If

            Dim outputPath As String = "c:\test\picture" & i & "." & extension
            File.WriteAllBytes(outputPath, pictures(i).Data)

            Console.WriteLine("Saved: " & outputPath)
        Next

        Console.WriteLine("Total pictures: " & pictures.Count)

    End Sub
End Module

IndependentsoftAny library, any programming language

Word .NET > Tutorial > Get all pictures

Need help? Ask our developers: