圖片批量插入word

⑴ 如何實現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文檔如何批量插入圖片

您好，方法
1、首先我們打開word文檔，現在文檔中是空白的，沒有文字也沒有圖片。
2、我們在上方點擊【插入】-【圖片】選擇【本地圖片】。
3、我們在圖片文件夾里，把所有的圖片一起選中，點擊【打開】。
4、發現插入進行來的圖片大小一樣，
5、我們拖動圖片邊上的四個點，即可調整圖片大小，
6、因為圖片的高度問題，這里一頁紙上默認顯示兩張圖片。把所有的圖片寬度調整成一樣的大小就完成了。

⑶ 怎樣將照片批量導入word文檔

word中插入菜單===圖片
在出來的對話框中，選擇圖片的時候，把照片全部選中，可以一次性插入N多照片

⑷ word如何批量插入圖片

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

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

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

⑸ 如何將大量照片按照順序一次性導入WORD文檔中

將大量照片按照順序一次性導入word文檔中的方法如下（以windows10系統的word2016版為例，需要准備大量照片）：

1、將宣傳冊的照片放入一個文件夾中，並將第一張圖片命名為1.jpg，第二頁命名為2.jpg，依次類推。

⑹ 怎麼批量把圖片放到WORD里並附上該圖的名稱

Sub 選擇重命名文件夾()

Application.ScreenUpdating = False

With Application.FileDialog(msoFileDialogFolderPicker) '運行後出現標準的選擇文件夾對話框

If .Show Then myPath = .SelectedItems(1) Else Exit Sub '如選中則返回=-1 / 取消未選則返回=0

End With

If Right(myPath, 1) <> "" Then myPath = myPath & ""

'返回的是選中目標文件夾的絕對路徑,但除了本地C 盤、D 盤會以"C:"形式返回外，其餘路

徑無""需要自己添加

Getfd (myPath)

Application.ScreenUpdating = True

End Sub

Sub Getfd(ByVal pth)

On Error Resume Next

Dim strPath As String

'插入兩行

Columns("A:B").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

'設置B 行內容

Range("B1") = "目標名稱"

Range("B2").Select

ActiveCell.FormulaR1C1 = "=RC[1]&"" ""&RC[2]&"".JPG""" '設置B 行內容為目標名稱

Range("B2").Select

m = Range("C65536").End(xlUp).Row

Selection.AutoFill Destination:=Range("B2:B" & m) '填充B 行

'設置A 行內容為所選文件下所有圖譜名稱

Range("A1") = "原名稱"

strPath = pth & "\"

f = Dir(strPath & "*.jpg")

k = 1

Do While f <> ""

k = k + 1

Range("A" & k) = f

f = Dir

Loop

'調整AB 列寬

Cells.Select

Cells.EntireColumn.AutoFit '調整AB 列寬

'重命名

a = Cells(Cells.Rows.Count, 1).End(xlUp).Row + 3 'A 列最後可見單元的行號

For b = 2 To a

c = Range("a" & b).Value

cc = Range("b" & b).Value

Name strPath & c As strPath & cc '重命名

Next

MsgBox ("重命名完成")

End Sub

⑺ 怎樣往word文件上批量添加圖片（要每頁一張的）

①批量插入圖片。這個都會，不用詳細介紹了。
②快速分頁，每張圖片一頁。用宏來處理。
工具→宏→錄制新宏→鍵盤（單擊選鍵盤這個按鈕）→請按新快捷鍵（我指定的是ctrl＋L），直接用鍵盤上的組合鍵按下去即可→單擊「指定」→關閉→用方向箭頭，把游標移到第一張圖片的右側，按一下ctrl＋enter（這個組合鍵是插入分頁符），然後將游標用方向箭頭移到第二張圖片的右側。單擊停止錄制。
然後聯系按
ctrl＋L即可將無論多少張的圖片均單獨設置為一頁。

⑻ 將多套圖片批量分別插入對應的word中

摘要 親您好，打開word

⑼ 如何快速把圖片導入word

只有利用軟體的「插入圖片」功能，在選擇圖片的時候進行「多選」。