图片是Word文档的基本要素之一，常见的对Word图片的操作有插入、删除、替换和提取。本文将介绍如何使通过编程的方式添加图片到指定位置，以及如何获取Word文档中的图片并保存到本地路径。

在指定位置插入图片

//实例化一个Document对象
Document doc = new Document();

//添加section和段落
Section section = doc.AddSection();
Paragraph para = section.AddParagraph();

//加载图片到System.Drawing.Image对象, 使用AppendPicture方法将图片插入到段落
Image image = Image.FromFile(@"C:\Users\Administrator\Desktop\logo.png");
DocPicture picture = doc.Sections[0].Paragraphs[0].AppendPicture(image);

//设置文字环绕方式
picture.TextWrappingStyle = TextWrappingStyle.Square;

//指定图片位置
picture.HorizontalPosition = 50.0f;
picture.VerticalPosition = 50.0f;

//设置图片大小
picture.Width = 100;
picture.Height = 100;

//保存到文档
doc.SaveToFile("Image.doc", FileFormat.Doc);

'实例化一个Document对象 Dim doc As Document = New Document '添加section和段落
Dim section As Section = doc.AddSection
Dim para As Paragraph = section.AddParagraph

'加载图片到System.Drawing.Image对象,使用AppendPicture方法将图片插入到段落 Dim image As Image = Image.FromFile("C:\Users\Administrator\Desktop\logo.png") Dim picture As DocPicture = doc.Sections(0).Paragraphs(0).AppendPicture(image) '设置文字环绕方式
picture.TextWrappingStyle = TextWrappingStyle.Square

'指定图片位置 picture.HorizontalPosition = 50! picture.VerticalPosition = 50! '设置图片大小
picture.Width = 100
picture.Height = 100

'保存到文档 doc.SaveToFile("Image.doc",FileFormat.Doc)

提取Word文档中的图片

//初始化一个Document实例并加载Word文档 Document doc = new Document();doc.LoadFromFile(@"sample.doc");int index = 0;//遍历Word文档中每一个section foreach (Section section in doc.Sections){//遍历section中的每个段落 foreach (Paragraph paragraph in section.Paragraphs){//遍历段落中的每个DocumentObject foreach (DocumentObject docObject in paragraph.ChildObjects){//判断DocumentObject是否为图片 if (docObject.DocumentObjectType == DocumentObjectType.Picture){//保存图片到指定路径并设置图片格式 DocPicture picture = docObject as DocPicture;String imageName = String.Format(@"images\Image-{0}.png",index);picture.Image.Save(imageName,System.Drawing.Imaging.ImageFormat.Png);index++;}}}}

'初始化一个Document实例并加载Word文档
Dim doc As Document = New Document
doc.LoadFromFile("sample.doc")

Dim index As Integer = 0
'遍历Word文档中每一个section For Each section As Section In doc.Sections '遍历section中的每个段落
    For Each paragraph As Paragraph In section.Paragraphs
        '遍历段落中的每个DocumentObject For Each docObject As DocumentObject In paragraph.ChildObjects '判断DocumentObject是否为图片
            If (docObject.DocumentObjectType = DocumentObjectType.Picture) Then
                '保存图片到指定路径并设置图片格式 Dim picture As DocPicture = CType(docObject,DocPicture) Dim imageName As String = String.Format("images\Image-{0}.png",index) picture.Image.Save(imageName,System.Drawing.Imaging.ImageFormat.Png) index = (index + 1) End If Next Next Next