vba保存word裡面的圖片

『壹』 word 文檔中的圖片怎麼用vba 批量自動保存為逐個的jpg 文件呢

不用VBA，編程一般人玩不了，給你一個最簡單的方法，可以一下子把所有的圖片一下子保存都保存下來。
1、你先把Word文檔復制一個副本，用於保存原文檔。
2、打開Word文檔，Word菜單→另存為→選擇htm網頁格式，找到位置，保存。退出文檔。
3、在保存網頁的位置，找到與文檔相同名字的一個文件夾，你想要的圖片都在文件夾內了。
4、整理一下文件夾內的圖片，OK。（可能會有較多不想要的其他東西，可以刪除），也可以把文件夾外的網頁文件刪除了。

『貳』 怎麼用VBA把WORD里的所有圖片另存成文件

1. 在Word中選擇菜單【文件】【另存為】，選擇網頁

   
   

   

『叄』 關於用宏（vba）在word中插入指定圖片並保存在與圖片名字相同的word中

給你一條思路吧。
第一，打開word文件，用錄制宏錄一段插入圖片的代碼（這里注意代碼的路徑和圖片名）；再錄一段保存文件到A目錄的代碼。備用；
第二，新建一個excel文件，將你A1到A3文件夾里需要建文件的人名全部列到excel的某一列中；
第三，在excel里寫vba代碼，循環執行這些人名，每個人名都有新建、插入圖片、保存這個過程（這里會用到第一步錄到的代碼）。
請自己嘗試學習並應用！

『肆』 如何用vba取得一個word文件中的所有的圖片

提供網上示例代碼供參考（此代碼的思路是遍歷 word 文檔中的 Shapes ，縮放到原始圖片尺寸，再轉粘貼到 Excel 中，借用 Excel 的 ChartObjects 提供的導出功能實現圖片原樣導出）：

Subtest()
Rem工具--引用--勾選MicrosoftExcelx.xObjectLibrary..
DimmyshapeAsObject,ExcelAppAsNewExcel.Application
DimExcelAsWorkbook,i%,z%
SetExcel=ExcelApp.Workbooks.Add
.InlineShapes
Ifmyshape.Type=3Then
i=i+1
myshape.Select
Setmyshape=myshape.ConvertToShape
Rem以下代碼將圖片以原始比例展示
Withmyshape
.ScaleHeight1,True,msoScaleFromMiddle
.ScaleWidth1,True,msoScaleFromMiddle
EndWith
Selection.Copy
WithExcel.ActiveSheet.ChartObjects.Add(0,0,myshape.Width,myshape.Height).Chart
.Paste
.ExportActiveDocument.Path&""&i&".png"
.Parent.Delete
EndWith
EndIf
Next
Excel.CloseFalse
ExcelApp.Quit
EndSub

『伍』 在word中想用vba實現依次新建文檔並插入指定文件夾中的圖片並命名保存在指定文件夾

以word2007為例，方法如下：

1、點擊圖片，另存為「篩選過的網頁」。

『陸』 我想弄個WORD的VBA，讓WORD中的圖片，自動單獨出來，成為一個圖片文件，文件名可以是1,2,3.一直下去，，

Dim i
On Error Resume Next
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).
msgbox "到powerpoint或制圖軟體里將復制的圖片保存後在回來繼續"
Next

『柒』 怎麼編VBA把圖片放到WORD里並附上該圖的名稱（50分）

要從兩個方面考慮：
1、如何把現有文檔中的圖片導出？這個代碼片斷可以參考一下：
Set ImageStream = CreateObject("ADODB.Stream")
With ImageStream
.Type = 1
.Open
.Write ActiveDocument.InlineShapes(1).Range.EnhMetaFileBits
.SaveToFile "d:\Temp\Output.bmp"
.Close
End With
Set ImageStream = Nothing

2、如何把已經到處的圖片導入到新文檔中？這個函數調用可以參考一下：
ActiveDocument.InlineShapes.AddPicture

如果還是不明白的話，請補充提問。

_____
補充：
請問樓主你運行那個代碼片斷得到的*完整*錯誤信息是什麼？報錯的時候，系統一般會把游標移動到出錯的那行代碼上，你看到的是哪一行代碼出錯呢？
我看你貼上來的代碼應該是沒有什麼語法上的錯誤，「Exit For」的確是不應該要的，但那也不是語法錯誤啊。

『捌』 VBA怎樣導出WORD中的圖片

於圖片來說，，分為二種的，，
第一種：是Shape對象（Word中自帶的「自選圖形」）
第二種：是InlineShape對象(嵌入式圖片，也就是所謂的通過點擊菜單欄中的「插入」－＞「圖片」－＞「來自文件」）
－－－－－－－－－－－－－－－－－－－
如何判斷word文檔中是否存在一張圖片呢？這個問題。
我來解答：判斷word文檔中是否存在一張圖片，可以通過看一看word文檔中的inlineshape對象的數量來判斷。
舉例：
Dim doc As Document '當前打開的文檔對象Document
Dim MyApp As Word.Application 'Word應用程序對象
Dim MyFileName As String '當前打開的文件名
MyFileName="c;\aaa.doc" '此處可以改成你的文件名字
Set MyApp = CreateObject("Word.Application")
Set doc = MyApp.Documents.Open(MyFileName)

If doc.InlineShapes.Count <> 0 then
msgbox "有嵌入式圖片存在!"
Else
msgbox "沒有嵌入式圖片存在!"
End if
-------------------------------------------------------
如果你非要想知道，用戶到底是不是插入了你要求的圖片的話，你要必須要再他進行插入圖片操作時進行控制，也就是說，你必須把用戶所插入的圖片的（絕對地址）或者（圖片名字）添加到用戶所插入圖片的「可選文字」中記錄下來。

MydocInlineShapes.AddPicture(FileName, LinkToFile, SaveWithDocument, Range)
FileName String 類型，必需。指定要創建對象的文件名。如果忽略本參數，則使用當前文件夾。

LinkToFile Variant 類型，可選。如果此屬性設置為 True，則將 OLE 對象與創建該對象的文件鏈接。如果設置為 False，則令該 OLE 對象成為該文件的獨立副本。默認值為 False。

SaveWithDocument Variant 類型，可選。如果此屬性為 True，則將鏈接的圖片與文檔一起保存。默認值為 False。

Range Variant 類型，可選。指定一個區域，OLE 對象放置在該區域的文字中。如果該區域未折疊，那麼圖片將覆蓋該區域。如果忽略此參數，則自動放置圖片。

ActiveDocument.Shapes.AddPicture "C:\stone.bmp",True, True,MyRange

ActiveDocument.InlineShapes(ID).AlternativeText = App.Path & "\temp" & shapeII & ".bmp" '添加「可選文字」

『玖』 如何用VBA中獲取word文檔中的圖片

於圖片來說，，分為二種的，，
第一種：是Shape對象（Word中自帶的「自選圖形」）
第二種：是InlineShape對象(嵌入式圖片，也就是所謂的通過點擊菜單欄中的「插入」－＞「圖片」－＞「來自文件」）
－－－－－－－－－－－－－－－－－－－
如何判斷word文檔中是否存在一張圖片呢？這個問題。
我來解答：判斷word文檔中是否存在一張圖片，可以通過看一看word文檔中的inlineshape對象的數量來判斷。
舉例：
Dim doc As Document '當前打開的文檔對象Document
Dim MyApp As Word.Application 'Word應用程序對象
Dim MyFileName As String '當前打開的文件名
MyFileName="c;\aaa.doc" '此處可以改成你的文件名字
Set MyApp = CreateObject("Word.Application")
Set doc = MyApp.Documents.Open(MyFileName)

If doc.InlineShapes.Count <> 0 then
msgbox "有嵌入式圖片存在!"
Else
msgbox "沒有嵌入式圖片存在!"
End if
-------------------------------------------------------
如果你非要想知道，用戶到底是不是插入了你要求的圖片的話，你要必須要再他進行插入圖片操作時進行控制，也就是說，你必須把用戶所插入的圖片的（絕對地址）或者（圖片名字）添加到用戶所插入圖片的「可選文字」中記錄下來。

MydocInlineShapes.AddPicture(FileName, LinkToFile, SaveWithDocument, Range)
FileName String 類型，必需。指定要創建對象的文件名。如果忽略本參數，則使用當前文件夾。

LinkToFile Variant 類型，可選。如果此屬性設置為 True，則將 OLE 對象與創建該對象的文件鏈接。如果設置為 False，則令該 OLE 對象成為該文件的獨立副本。默認值為 False。

SaveWithDocument Variant 類型，可選。如果此屬性為 True，則將鏈接的圖片與文檔一起保存。默認值為 False。

Range Variant 類型，可選。指定一個區域，OLE 對象放置在該區域的文字中。如果該區域未折疊，那麼圖片將覆蓋該區域。如果忽略此參數，則自動放置圖片。

ActiveDocument.Shapes.AddPicture "C:\stone.bmp",True, True,MyRange

ActiveDocument.InlineShapes(ID).AlternativeText = App.Path & "\temp" & shapeII & ".bmp" '添加「可選文字」