近期在网上发布个人先进事迹，需要把图片和文字分开编排，但收集上来的很多资料都是将个人照片和个人情况放在一个word文档中，如何批量将这些照片提取出来呢，从网上搜搜，还真有不方法，现将各种方法整理出来，与大家分享：

一、提取office2003中多个Word文档图片的方法

1.将以下代码复制到记事本中：

Set fsObject = CreateObject ("Scripting.FileSystemObject")

myDocDir=fsObject.GetAbsolutePathName("")

If InStrRev(myDocDir, "\") < Len(myDocDir) Then

 myDocDir = myDocDir & "\"

End If

Set DocFilesDir = fsObject.Getfolder(myDocDir)

Set myDocFiles = DocFilesDir.Files

Set myObject = Wscript.CreateObject("Word.Application")

n = 0

For Each DocFile In myDocFiles

 If LCase(Right(DocFile.Name, 3)) = "doc" Then

  HTMLFileName = myDocDir & Left(DocFile.Name,InStrRev (DocFile.Name, ".")) & "htm"

    myObject.Documents.Open DocFile.Path,,,,,,,,,,,False

    myObject.Documents(DocFile.Path).Activate

    myObject.ActiveDocument.SaveAs  HTMLFileName,10,False,,True,,False,False,False,False,False

    myObject.ActiveDocument.Close

    n = n + 1

   End If

Next

If n > 0 Then

 MsgBox n & " file(s) converted!"

Else

 MsgBox "No file converted."

End If

myObject.Quit

Set myObject = Nothing

2.将文件保存为word2html.vbs。注意，保存类型选框选择“所有文件”如图：

3.将word2html.vbs这个文件复制到需要转换的word文件目录下，双击运行，就可以将*.doc格式的文件转换成html文件，并出现xx.files文件夹，

转换前：

转换后：

4.打开xx.files文件夹就是提取的图片了。

二、提取office2007中多个Word文档图片

下面给大家介绍如何借助WinRAR来提取多个Word文档中图片的办法。

1.例如一个文件夹有两篇Word文档（多篇也可以哦）。

2.“文档1”中的图片，如下图所示。

3.WinRAR进行设置A：可以WinRAR打开任意压缩文件，单击菜单栏中的“选项”—“设置”。

4.WinRAR进行设置B：打开“设置”对话框，单击“综合”选项卡，在“用户自定义压缩文件扩展名”下输入“docx”，然后单击“确定”。这样WinRAR就与Word文档关联了。

5.这时候可以选中所有Word文档，右击选择“Extract each archive to separate floder”（解压每个压缩文件到单独的文件夹），即可解压所有文档了。

6.这时就有和Word文档同名的文件夹了，如下图所示。

7.以“文档1”文件夹为例，在该文件夹下的“word\media”目录中就是“文档1.docx”的所有图片了。其他文档类似哦。

注意事项:提取后取消WinRAR与Word文档的关联：在WinRAR“设置”中的“综合”选项卡来取消关联。