PM> Install-Package Spire.Doc

using Spire.Doc;
using Spire.Doc.Documents;
using Spire.Doc.Fields;
using System.Collections.Generic;
using System.Drawing;

namespace ReplaceImageWithImage
{
    internal class Program
    {
        static void Main(string[] args)
        {
            //Documentクラスのインスタンスを初期化する
            Document doc = new Document();
            //Wordドキュメントをロードする
            doc.LoadFromFile("Sample.docx");

            //Listクラスのインスタンスを初期化する
            List pictures = new List();

            //ドキュメント内のすべてのセクションをループする
            foreach (Section sec in doc.Sections)
            {
                //各セクションのすべての段落をループする
                foreach (Paragraph para in sec.Paragraphs)
                {
                    //各段落内のすべてのサブオブジェクトをループする
                    foreach (DocumentObject docObj in para.ChildObjects)
                    {
                        //画像を検索してリストに追加する
                        if (docObj.DocumentObjectType == DocumentObjectType.Picture)
                        {
                            pictures.Add(docObj);
                        }
                    }
                }
            }

            //リストの最初の画像を別の画像に置き換える
            DocPicture picture = pictures[0] as DocPicture;
            picture.LoadImage(Image.FromFile(@"doc.png"));

            //結果ドキュメントを保存する
            doc.SaveToFile("ReplaceWithNewImage.docx", FileFormat.Docx2013);

        }
    }
}

Imports Spire.Doc
Imports Spire.Doc.Documents
Imports Spire.Doc.Fields
Imports System.Collections.Generic

Namespace ReplaceImageWithImage
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            'Documentクラスのインスタンスを初期化する
            Dim doc As Document = New Document()
            'Wordドキュメントをロードする
            doc.LoadFromFile("Sample.docx")

            'Listクラスのインスタンスを初期化する
            Dim pictures As List(Of DocumentObject) = New List(Of DocumentObject)()

            'ドキュメント内のすべてのセクションをループする
            For Each sec As Section In doc.Sections
                '各セクションのすべての段落をループする
                For Each para As Paragraph In sec.Paragraphs
                    '各段落内のすべてのサブオブジェクトをループする
                    For Each docObj As DocumentObject In para.ChildObjects
                        '画像を検索してリストに追加する
                        If docObj.DocumentObjectType Is DocumentObjectType.Picture Then
                            pictures.Add(docObj)
                        End If
                    Next
                Next
            Next

            'リストの最初の画像を別の画像に置き換える
            Dim picture As DocPicture = TryCast(pictures(0), DocPicture)
            picture.LoadImage(Image.FromFile("doc.png"))

            '結果ドキュメントを保存する
            doc.SaveToFile("ReplaceWithNewImage.docx", FileFormat.Docx2013)

        End Sub
    End Class
End Namespace

using Spire.Doc;
using Spire.Doc.Documents;
using Spire.Doc.Fields;
using System.Collections.Generic;

namespace ReplaceImageWithText
{
    internal class Program
    {
        static void Main(string[] args)
        {
            //Documentクラスのインスタンスを初期化する
            Document doc = new Document();
            //Wordドキュメントをロード する
            doc.LoadFromFile("Sample.docx");

            int j = 1;
            //ドキュメント内のすべてのセクションをループする
            foreach (Section sec in doc.Sections)
            {
                //各セクションのすべての段落をループする
                foreach (Paragraph para in sec.Paragraphs)
                {
                    //Listクラスのインスタンスを初期化する
                    List pictures = new List();
                    //画像を検索してリストに追加する
                    foreach (DocumentObject docObj in para.ChildObjects)
                    {
                        if (docObj.DocumentObjectType == DocumentObjectType.Picture)
                        {
                            pictures.Add(docObj);
                        }
                    }

                    //リスト内のすべての画像をループし、テキストに置き換える
                    foreach (DocumentObject pic in pictures)
                    {
                        int index = para.ChildObjects.IndexOf(pic);
                        TextRange range = new TextRange(doc);
                        range.Text = string.Format("Image-{0}", j);
                        para.ChildObjects.Insert(index, range);
                        para.ChildObjects.Remove(pic);
                        j++;
                    }
                }
            }

            //結果ドキュメントを保存する
            doc.SaveToFile("ReplaceWithText.docx", FileFormat.Docx);
        }
    }
}

Imports Spire.Doc
Imports Spire.Doc.Documents
Imports Spire.Doc.Fields
Imports System.Collections.Generic

Namespace ReplaceImageWithText
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            'Documentクラスのインスタンスを初期化する
            Dim doc As Document = New Document()
            'Wordドキュメントをロード する
            doc.LoadFromFile("Sample.docx")

            Dim j = 1
            'ドキュメント内のすべてのセクションをループする
            For Each sec As Section In doc.Sections
                '各セクションのすべての段落をループする
                For Each para As Paragraph In sec.Paragraphs
                    'Listクラスのインスタンスを初期化する
                    Dim pictures As List(Of DocumentObject) = New List(Of DocumentObject)()
                    '画像を検索してリストに追加する
                    For Each docObj As DocumentObject In para.ChildObjects
                        If docObj.DocumentObjectType Is DocumentObjectType.Picture Then
                            pictures.Add(docObj)
                        End If
                    Next

                    'リスト内のすべての画像をループし、テキストに置き換える
                    For Each pic As DocumentObject In pictures
                        Dim index As Integer = para.ChildObjects.IndexOf(pic)
                        Dim range As TextRange = New TextRange(doc)
                        range.Text = String.Format("Image-{0}", j)
                        para.ChildObjects.Insert(index, range)
                        para.ChildObjects.Remove(pic)
                        j += 1
                    Next
                Next
            Next

            '結果ドキュメントを保存する
            doc.SaveToFile("ReplaceWithText.docx", FileFormat.Docx)
        End Sub
    End Class
End Namespace