❶ 如何實現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如何批量插入圖片
①批量插入圖片。這個都會，不用詳細介紹了。
②快速分頁，每張圖片一頁。用宏來處理。
工具→宏→錄制新宏→鍵盤（單擊選鍵盤這個按鈕）→請按新快捷鍵（我指定的是ctrl＋L），直接用鍵盤上的組合鍵按下去即可→單擊「指定」→關閉→用方向箭頭，把游標移到第一張圖片的右側，按一下ctrl＋enter（這個組合鍵是插入分頁符），然後將游標用方向箭頭移到第二張圖片的右側。單擊停止錄制。
然後聯系按
ctrl＋L即可將無論多少張的圖片均單獨設置為一頁。
我已經嘗試了，很輕松的。
不明白的繼續聯系我的QQ。
❸ Word批量完成圖片插入及文字編輯
如果你使用word2003版的就有辦法解決，方法如下【先看最後一條】：
1、新建word文檔一個
2、選中所有圖片，用滑鼠拖拽第一張圖片並保持拖拽狀態，按alt+tab組合鍵切換到word文檔，滑鼠拖拽到正文部分，放開滑鼠左鍵，即可將所有圖片一次性插入word文檔中；
3、ctrl+h調出替換對話框，查找內容輸入：(^g)
替換為輸入：\1^t^p
高級或更多選擇「使用通配符」，點擊全部替換
4、ctrl+a選中全文，點擊「表格」→「插入」→「表格」即可將所有圖片放到一個兩列的表格的第一列中，然後在第一個第一個中輸入你的文字。
5、文字輸入完成後按住shift鍵的同時按方向鍵的→鍵選中該單元格，ctrl+c復制
6、滑鼠放到第一行第二列上邊線上一點點，滑鼠變成向下的黑箭頭時點擊滑鼠左鍵，ctrl+v粘貼即可
【7、圖片大小的調整，你可以先用ps軟體的批處理功能將圖片提前處理到符合你要求的尺寸，然後再用上述方法操作】
❹ word文檔如何批量插入圖片
您好，方法
1、首先我們打開word文檔，現在文檔中是空白的，沒有文字也沒有圖片。
2、我們在上方點擊【插入】-【圖片】選擇【本地圖片】。
3、我們在圖片文件夾里，把所有的圖片一起選中，點擊【打開】。
4、發現插入進行來的圖片大小一樣，
5、我們拖動圖片邊上的四個點，即可調整圖片大小，
6、因為圖片的高度問題，這里一頁紙上默認顯示兩張圖片。把所有的圖片寬度調整成一樣的大小就完成了。
❺ 怎樣在WORD中批量插入圖片
很簡單
空白文檔批量插入眾圖片，這個不用說了吧
然後每個圖片後替換加上一個回車符即這樣查找替換:
^g
→^&^p
然後全選圖片，
點工具欄的
插入表
命令。
❻ 怎樣往word文件上批量添加圖片（要每頁一張的）
摘要 親您好，您可以點擊插入菜單-圖片-來自文件(將您要批量插入的圖片放入一個文件夾,用滑鼠點擊第一張圖片按住shift再點擊最後一張圖片,松開shift點擊插入即可)如果您的圖片統一大小相同,在文件菜單找到頁面設置調整頁面大小就可以實現每頁一張的添加效果
❼ word中怎麼能批量插入圖片
總體上使用郵件合並的方法。詳見有關教程。
這里想介紹的是，郵件合並需要的照片文件名數據表，可以快速生成。方法也簡單,
把所有照片集中在一個文件夾中，並在這個文件夾新建一個文本文件，文件名任意，在文檔裡面輸入一行文字:
dir /B > pic.txt
保存並關閉，將擴展名改為「.cmd」，雙擊這個文件，表面毫無反應，但它在這個文件夾中自動生成了一個文件「pic.txt」，打開它，去掉裡面的無關內容，復制到數據表中，再編輯成你需要的格式，可免去輸入文件名之苦。
有了數據表，你的任務3分鍾就可以完成。
❽ Word批量插入照片的操作
1. 首先在存儲圖片的文件中調整好圖片的順序（可以通過點擊名稱順序或者逆序排列），然後選中全部圖片拖入Word。注意：這里要拖入才不會打亂在文件夾中的順序。
2.選中第一張圖並調整圖片到合適大小，點擊上方任務欄中的圖片工具->格式，找到調整好的圖片的高度，Ctrl+C復制。
3.選中第二張圖，點擊上方任務欄中的圖片工具->格式，找到高度欄，Ctrl+V粘貼剛剛復制的高度數值，然後回車，完成第二張圖的尺寸調整。
4.接下來調整其他圖片就很簡單了。選中需要調整的第三張圖，然後按F4，即可完成對第三張圖的尺寸修改。其他圖也通過選中+F2完成尺寸修改。
5.將調整好尺寸的圖按照以下形式排布，具體做法是游標放在在第二張圖前面然後回車，游標放在在第三張圖前面然後回車，游標放在在第四張圖前面然後回車……
6.同時按住Ctrl+A完成對圖片的全選，然後點擊上方任務欄中的插入->表格->文本轉換成表格，彈出來的對話中選擇確定。
7.生成填充了圖片的表格之後，選中整個表格內容，同時按住Ctrl+C，然後選中需要插入圖片的表格，同時按住Ctrl+V，即可實現批量向表格添加圖片。
❾ Word如何批量插入圖片
插入圖片——選擇所有你要插入的圖片即可~！