要在VB中批量插入圖片到Word，可以按照以下步驟進行操作：

1. 引用Microsoft Word對象庫：

• 打開VB項目，點擊"項目"菜單，選擇"引用"；

• 在"引用"對話框中，找到"Microsoft Word xx.x Object Library"，勾選并點擊"確定"。

2. 創建Word應用程序對象和Word文檔對象：

Dim oWord As Word.Application
Dim oDoc As Word.Document
'創建Word應用程序對象
Set oWord = CreateObject("Word.Application")
'創建新的Word文檔
Set oDoc = oWord.Documents.Add

3. 循環插入圖片：

Dim imagePath As String
Dim oShape As Word.Shape
'循環插入圖片
For Each imagePath In imagePaths
'插入圖片
Set oShape = oDoc.Shapes.AddPicture(imagePath, False, True)
'設置圖片位置和大小
With oShape
.LockAspectRatio = msoFalse '取消鎖定縱橫比
.Left = 100 '設置圖片左邊距
.Top = 100 '設置圖片上邊距
.Width = 200 '設置圖片寬度
.Height = 200 '設置圖片高度
End With
'插入換行符
oDoc.Content.InsertAfter Chr(11)
Next imagePath

4. 保存和關閉Word文檔：

'保存Word文檔
oDoc.SaveAs "C:\path\to\save\document.docx"
'關閉Word文檔
oDoc.Close
'關閉Word應用程序
oWord.Quit

注意：

• 在循環中，imagePaths是存儲圖片路徑的數組或集合，可以根據實際情況進行替換。

• imagePath是圖片的完整路徑，例如：“C:\path\to\image.jpg”。

• oShape代表插入的圖片對象，可以通過其屬性進行位置和大小的調整。

• 在保存Word文檔時，可以使用適當的文件路徑和名稱。

• 插入圖片后，可以根據需要插入換行符或其他內容。