⑴ 如何用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
⑵ 利用VBA如何將批量圖片導入WORD的指定表格格式里
將excel表格中的數據批量插入到word中的操作方法：
1、單擊插入----對象按鈕；
2、彈出插入對話框對話框，選擇由文件創建對話框，單擊瀏覽按鈕；
3、彈出瀏覽對話框，選擇需要插入有Excel文件；
4、單擊插入按鈕即可。
註：
（1）若選中鏈接到文件，源文件修改，Word中的表格也隨之改變；
（2）若選中顯示為圖片，則以圖標的形式插入到Word，雙擊可以打開其源文件。
⑶ word怎麼批量導入pdf文件裡面的圖片
Word文檔批量導入PDF文件裡面的圖片，那麼首先需要將PDF轉換成Word文檔，這個可以使用WPS或是轉換軟體，進行批量轉換，然後再用VBA進行批量處理，將圖片導入一個Word文檔中。
⑷ 大神，圖片按照規律批量導入Word指定位置，如何用VBA實現
看我的頭像，找到我的主頁，聯繫上我。
網路很壟斷，很霸道，我的任何回答，它就都直接屏蔽刪除！
⑸ word里批量旋轉嵌入式圖片
Word2007及以上版本才能對外部圖片進行旋轉操作。要想批量旋轉，只能採用Word2007及以上版本，以及用VBA來實現就可以了。 不過，這個VBA代碼得到的結果，只能滿足批量旋轉圖片的目的，但旋轉之後，圖片的位置會發生變動，而且只對所有的嵌入式圖片有效。按Alt+F11，打開VBA編輯器，將如下代碼直接粘貼進來，然後按F5運行即可。
Sub Rotate()
Do Until ActiveDocument.InlineShapes.Count = 0
ActiveDocument.InlineShapes(1).Select
ActiveDocument.InlineShapes(1).ConvertToShape
Selection.ShapeRange.IncrementRotation 180# '這里的180#代碼旋轉的度數，0~359.9
Loop
end sub
採納本方法之前，先備份文檔，以免轉換後圖片位置發生變動導致整篇文檔的頁面布局發生變化難以恢復。
⑹ vba批量替換word中圖片
可以用下面的代碼試一下：（注意，操作前，需要做好備份）
』把圖片統一成一種格式。（也可以統一轉成浮動的格式，代碼稍做修改即可）
For Each ishape In ActiveDocument.Shapes
ishape.ConvertToInlineShape
Next ishape
For i = 1 To ActiveDocument.InlineShapes.Count - 1
ActiveDocument.InlineShapes(i).Select
Selection.InlineShapes.AddPicture "c\" & i & ".jpg", linktofile:=False, savewithdocument:=True
Next
⑺ 尋找WORD VBA高手解決WORD批量插入圖片程序的問題
Selection.Text = Basename(Fn) '這兩句移到這里
Selection.EndKey
這兩句移一下位置，其它不變。
Sub 批量插入圖片()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "D:\111"
If .Show = -1 Then
For Each Fn In .SelectedItems
Selection.Text = Basename(Fn) '這兩句移到這里
Selection.EndKey
Set mypic = Selection.InlineShapes.AddPicture(FileName:=Fn, SaveWithDocument:=True)
'按比例調整相片尺寸
WidthNum = mypic.Width
c = 18 '在此處修改相片寬,單位厘米
mypic.Width = c * 28.35
mypic.Height = (c * 28.35 / WidthNum) * mypic.Height
If Selection.Start = ActiveDocument.Content.End - 1 Then '如游標在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
If Selection.Start = ActiveDocument.Content.End - 1 Then '如游標在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Next Fn
Else
End If
End With
Set myfile = Nothing
End Sub
Function Basename(FullPath) '取得文件名
Dim x, y
Dim tmpstring
tmpstring = FullPath
x = Len(FullPath)
For y = x To 1 Step -1
If Mid(FullPath, y, 1) = "\" Or _
Mid(FullPath, y, 1) = ":" Or _
Mid(FullPath, y, 1) = "/" Then
tmpstring = Mid(FullPath, y + 1)
Exit For
End If
Next
Basename = Left(tmpstring, Len(tmpstring) - 4)
End Function
⑻ 關於圖片批量導入word中並在圖片上方附加文件名的VBA代碼編輯
Sub 批量插入圖片()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "E:\工作文件" 『這里輸入你要插入圖片的目標文件夾
If .Show = -1 Then
For Each Fn In .SelectedItems
Selection.Text = Basename(Fn) '這兩句移到這里
Selection.EndKey
If Selection.Start = ActiveDocument.Content.End - 1 Then '如游標在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Set MyPic = Selection.InlineShapes.AddPicture(FileName:=Fn, SaveWithDocument:=True) '按比例調整相片尺寸
WidthNum = MyPic.Width
c = 6 '在此處修改相片寬,單位厘米
MyPic.Width = c * 28.35
MyPic.Height = (c * 28.35 / WidthNum) * MyPic.Height
If Selection.Start = ActiveDocument.Content.End - 1 Then '如游標在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Next Fn
Else
End If
End With
Set myfile = Nothing
End Sub
Function Basename(FullPath) '取得文件名
Dim x, y
Dim tmpstring
tmpstring = FullPath
x = Len(FullPath)
For y = x To 1 Step -1
If Mid(FullPath, y, 1) = "\" Or _
Mid(FullPath, y, 1) = ":" Or _
Mid(FullPath, y, 1) = "/" Then
tmpstring = Mid(FullPath, y + 1)
Exit For
End If
Next
Basename = Left(tmpstring, Len(tmpstring) - 4)
End Function
執行此代碼後，彈出的選擇對話框， 全選目標文件夾下的所有圖片文件之後，點擊確定。然後靜靜的等待電腦完成處理工作，次數word會進入無響應狀態。圖片越多，無響應的時間越長。
⑼ 2003版word怎麼批量編輯圖片
word如何排版批量圖片
在word中，默認插入的嵌入式圖片是不能批量統一設置，只有將默認修改為四周型後，才可以批量修改圖片版式或大小，具體操作方法如下：1、打開WORD，在」工具「菜單下選擇」選項「命令；2、在」選項「窗口中，在」編輯」選項卡下，將插入圖片的格式選擇為「四周型」；3、在「插入」菜單中選擇「圖片」/「來自文件」；4、在「插入圖片「對話框中選擇要插入的圖片；5、在「繪圖」工具欄中的「添加或刪除按鈕」中選擇「選中多個對象」；6、使用「選中多個對象」，將所有插入的圖片全部選中；7、雙擊任意一圖片，在彈出的對話框中，就可以統一批量設置了，完成。
有什麼辦法能在word里批量設置插入圖片大小？
操作步驟：1、單擊office---->Word選項，如圖所示；2、彈出Word選項對話框，單擊高級---->剪切、復制和粘貼---->將圖片插入/粘貼為後面的輸入框，在彈出的選項中選擇四周型，如圖所示；（註：因默認為嵌入型，不能同時選中多個圖片）3、按住Ctrl鍵，單擊圖片，選中需要設成大小的多張圖片；4、單擊圖片工具格式選項卡右下角如圖所示的標記；5、彈出大小對話框，選擇大小選項卡，去掉鎖定縱橫比和相對原始圖片大小復選框中的對勾，在高度、寬度輸入框中輸入所需要的數值即可，如圖所示；
如何在word中批量修改圖片大小Word中怎麼批量修改圖片固定大？
如何在word中批量修改圖片大小 Word中怎麼批量修改圖片固定大小。
相信很多人都使用過電腦中的word文檔功能，因為這對於很多人來說都會經常用到的，非常的具有實用性。
解決：按alt F11。
然後在project右鍵
word2003中怎樣批量調整圖片大小
一，在word中按alt+f11組合鍵，進入VBA模式二，在左邊的工程資源管理器中找到你的word文檔，在其上右鍵/添加/模塊三，把下面代碼復制，粘貼進去.四，更改數值， 改一下寬度和高度數值（10），點運行（類似播放按鈕.）或f5，即可設置文檔中全部圖片Sub Macro()Mywidth=10'10為圖片寬度（厘米）Myheigth=10'10為圖片高度（厘米）For Each iShape In ActiveDocument.InlineShapesiShape.Height = 28.345 * MyheigthiShape.Width = 28.345 * MywidthNext iShapeEnd Sub由於是批量的處理同樣的事情，因此要用到宏。
是這樣的，如果你的圖片顯示的是嵌入式的。
也就是不能旋轉的那種格式，鑽切換大小會很容易，方法要使用宏命令。
宏主要用來處理有規律的重復的工作，相當於批處理。
想好了就能編輯出來。
工具宏錄制新宏然後指定一個快捷鍵（如L，相當於ctrl L快捷鍵），然後指定、關閉。
開始錄制宏。
把你能夠重復的操作執行一下，以計算機能識別的重復為准。
然後工具宏停止錄制。
這樣宏就錄制出來了。
你ctrl L執行就行了。
連續按，則連續執行。
如果不完全正確，還要修改或重新錄制宏。
對你來說：使用的循環是：查找，圖形然後調整大小，然後滑鼠移到圖形右側。
然後再執行循環。
這個命令是：ctrl F，點開高級，查找裡面，選擇特殊格式裡面的「圖形」，單擊查找下一個。
關掉查找界面，回到word編輯界面。
直接去單擊 格式菜單裡面的 圖片，設置大小為你認可的比例。
確定。
然後將游標用鍵盤移出 圖片（右移以下）。
執行宏即可。