word插入多張圖片的代碼

① 如何在WORD一次插入多張圖片且圖片順序不變

打開word文檔後縮小窗口，再打開圖片文件夾，選中多個圖片，然後滑鼠放第一個圖片上，將多個圖片拖動到WORD窗口中。這樣就能在WORD一次插入多張圖片且圖片順序不變。具體操作請參照以下步驟。

1、在電腦上打開一個word文檔，在界面右上角點擊「向下還原」按鈕縮小word窗口大小。

② 如何在word頁中添加多張圖片

在word中添加照片，你可以點擊插入，然後插入圖片就可以

③ 在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會進入無響應狀態。圖片越多，無響應的時間越長。

④ 怎麼在word中連續插入多張圖片,且大小一致

工具：word2013

1、打開word 2013，選擇「頁面布局」選項卡，並單擊「頁邊距」按鈕。

⑤ 如何實現Word 中批量插入圖片

Sub批量添加圖片()
'程序功能：批量添加圖片宏
'作者Q：766110727
'日期：2017.06.07
'使用步驟1：word中ALT+11進入VBA宏界面；
'使用步驟2：將本段代碼從sub到endsub，全部粘到代碼框最後的空白處；
'使用步驟3：按F5執行代碼。
'說明：代碼按最直觀的邏輯寫的，也方便大家使用修改。
'OnErrorResumeNext
Dimn,圖片路徑1(),圖片路徑2(),圖片路徑3(),圖片路徑4(),圖片數量最大值
DimmyTableAsTable
'###################################################################
'#######第一部分：獲取每個文件夾下所有jpg圖片名，寫入相應數組#######
'###################################################################
n=0
圖1=Dir("I:	tjbt插入圖片圖片*.jpg")
DoWhile圖1<>""
n=n+1
ReDimPreserve圖片路徑1(1Ton)
圖片路徑1(n)="I:	tjbt插入圖片圖片"&圖1
圖1=Dir()
Loop
Ifn>圖片數量最大值Then圖片數量最大值=n
n=0
圖2=Dir("I:	tjbt插入圖片圖片2*.jpg")
DoWhile圖2<>""
n=n+1
ReDimPreserve圖片路徑2(1Ton)
圖片路徑2(n)="I:	tjbt插入圖片圖片2"&圖2
圖2=Dir()
Loop
Ifn>圖片數量最大值Then圖片數量最大值=n
n=0
圖3=Dir("I:	tjbt插入圖片圖片3*.jpg")
DoWhile圖3<>""
n=n+1
ReDimPreserve圖片路徑3(1Ton)
圖片路徑3(n)="I:	tjbt插入圖片圖片3"&圖3
圖3=Dir()
Loop
Ifn>圖片數量最大值Then圖片數量最大值=n
n=0
圖4=Dir("I:	tjbt插入圖片圖片4*.jpg")
DoWhile圖4<>""
n=n+1
ReDimPreserve圖片路徑4(1Ton)
圖片路徑4(n)="I:	tjbt插入圖片圖片4"&圖4
圖4=Dir()
Loop
Ifn>圖片數量最大值Then圖片數量最大值=n

'###################################################################
'##################第二部分：插入圖片到word表格中###################
'###################################################################
'新建一個一行兩列表格
SetmyTable=ActiveDocument.Tables.Add(Range:=ActiveDocument.Range(Start:=0,End:=0),NumRows:=1,NumColumns:=2)
'設定後續操作的目標表格為文檔的第一個表格
SetmyTable=ActiveDocument.Tables(1)
n=0
DoWhilen<圖片數量最大值
n=n+1
之前表格行數=myTable.Rows.Count
myTable.Rows.Last.Select
Selection.InsertRowsBelow4'下方插入4行
'第一行兩列，圖片序號12
myTable.Cell(Row:=之前表格行數+1,Column:=1).Range.InsertAfterText:="圖片1"
myTable.Cell(Row:=之前表格行數+1,Column:=2).Range.InsertAfterText:="圖片2"
myTable.Cell(Row:=之前表格行數+3,Column:=1).Range.InsertAfterText:="圖片3"
myTable.Cell(Row:=之前表格行數+3,Column:=2).Range.InsertAfterText:="圖片4"
'第二行兩列，插入圖片並設置圖片大小
myTable.Cell(Row:=之前表格行數+2,Column:=1).Range.InlineShapes.AddPictureFileName:=_
圖片路徑1(n),LinkToFile:=False,SaveWithDocument:=True
myTable.Cell(Row:=之前表格行數+2,Column:=2).Range.InlineShapes.AddPictureFileName:=_
圖片路徑2(n),LinkToFile:=False,SaveWithDocument:=True
myTable.Cell(Row:=之前表格行數+4,Column:=1).Range.InlineShapes.AddPictureFileName:=_
圖片路徑3(n),LinkToFile:=False,SaveWithDocument:=True
myTable.Cell(Row:=之前表格行數+4,Column:=2).Range.InlineShapes.AddPictureFileName:=_
圖片路徑4(n),LinkToFile:=False,SaveWithDocument:=True
Loop

ActiveDocument.Tables(1).Rows(1).Delete'剛開始建的表格中第一行是空行，刪掉

'###################################################################
'######################第三部分：圖片格式處理#######################
'###################################################################
'統一設置圖片長寬，美化文檔。這里會卡好久時間，按需要是否添加本段代碼
Forn=1ToActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(n).Height=210'設置高度
ActiveDocument.InlineShapes(n).Width=110'設置寬度
Nextn
EndSub

⑥ word怎樣插入多張圖片

WORD在一個頁面插入多張圖片個人有以下兩種方法，供參考：
把圖片規則排列：可用表格格式實現，具體如下：打開表格菜單——插入——表格——根據所需要排布圖片的具體情況選擇幾行幾列——然後選定所需插入圖片的單元格點擊插入——圖片——來自文件，圖片就插入了單元格——根據所需大小縮放圖片至合適尺寸（也可以雙擊圖片，出現圖片編輯對話框，可在大小對話框內具體設置圖片的高度、寬度）——其他所需插入圖片也按上述步驟操作即可。全部完成後可選定整個表格，把邊框設置為無——這樣WORD頁面在預覽和列印時就只有圖片了，而不會看到表格的邊框。
圖片不規則放置：在WORD文檔中滑鼠點擊插入位置——點擊插入菜單——圖片——來自文件——導入相應路徑的圖片，圖片即出現在頁面——滑鼠雙擊圖片——出現圖片編輯對話框——可在大小對話框中的高度、寬度欄輸入數值精確調節圖片的尺寸(也可以用滑鼠拉動調節圖片的尺寸）——在版式對話框選擇浮於文字上方（或襯於文字下方）——這樣你可以用滑鼠點住圖片，可任意拉動到WORD文檔的任意位置。
圖片放置版式有各種各樣，可具體根據需要選擇嵌入型、四周型、緊密型、襯於文字下方以及浮於文字上方，我們可以根據實際需要進行選擇，可獲得各種不錯的效果。

⑦ 在word中如何用VBA實現插入多張圖片

要從兩個方面考慮：
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」的確是不應該要的，但那也不是語法錯誤啊。

⑧ word怎麼在一個頁面上插入多張圖片

1、一般情況下，word頁面為A4頁面大小，除去上下左右的頁邊距，圖片的高度在24-25厘米左右，寬度在14-16厘米左右。因此需要提前把圖片大小設置在這個范圍內。

⑨ word如何批量插入圖片

word中連續插入多張圖片方法：

1、單擊插入---->圖片，如圖所示；

4、在上圖中的高度和寬度輸入框中輸入需要的大小即可。

⑩ word怎麼批量增加圖片

答：先打開一個word文檔，利用工具欄，在文檔下面的工具欄中找到「插入圖片」按鈕點擊，在彈出「插入圖片」對話框中選擇存放圖片的位置，此時按住 Ctrl 鍵，你就可以用滑鼠選擇多張圖片了或者你也可以按 Shift 鍵，然後單擊選擇多個圖片，最後「插入」即可，當然如果你想要路徑下全部是需插入的圖片，那麼你直接按快捷鍵 Ctrl+A 全選，全部插入即可