❶ 怎樣往word文件上批量添加圖片(要每頁一張的)
摘要 親您好,您可以點擊插入菜單-圖片-來自文件(將您要批量插入的圖片放入一個文件夾,用滑鼠點擊第一張圖片按住shift再點擊最後一張圖片,松開shift點擊插入即可)如果您的圖片統一大小相同,在文件菜單找到頁面設置調整頁面大小就可以實現每頁一張的添加效果
❷ 如何實現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?
初學python的我思考了一下,嘗試通過python實現自動化處理。大致思路是分兩步走:
1、將每個文件夾圖片整合到指定文件夾中
2、讀取指定文件夾圖片,再存入word 中;
貌似有點繁瑣了。還是想先記錄下探索的過程,與大家共同探討。
❹ 如何把圖片批量導入word文檔用手機
將大量照片按照順序一次性導入word文檔中的方法如下(以windows10系統的word2016版為例,需要准備大量照片):;1、將宣傳冊的照片放入一個文件夾中,並將第一張圖片命名為1.jpg,第二頁命名為2.jpg,依次類推。;2、打開word文檔,點擊界面上方的「插入」按鈕。;3、在隨後彈出的頁面中點擊「圖片」按鈕。;4、在接著自動彈出的界面中點擊「插入」按鈕即可。
首先審題,題主的需求是將WORD的圖片一次性的、大量的、修改為同一尺寸。
我有兩個方法,一個簡便,一個批量。
一、簡便方式——適用於10張以內的批量修改
首先打開預先准備了三張美圖文檔,哈哈
然後對其中一張圖片點選右鍵,在彈出的菜單中點選「大小和位置」
彈出一個對話框,為了統一修改尺寸,我們去掉「鎖定縱橫比」前面的勾,然後在「高度和寬度」里輸入需要的數值
這是第一張圖片修改好了,然後用滑鼠點選第二張圖片(不能框選,只能點選),按F4鍵(重復上一次命令的快捷鍵),以此類推,重復點選,F4,就能把這幾張照片統一修改了。
二、批量修改——適合大批量修改
有人會問,上面那個點點點的方法,還是麻煩,我要是有1000張圖片怎麼辦?
別急,再來教大家一個批量修改方法。
首先依舊是打開三張美圖文檔,我們開始演示
然後點開「文件菜單」,就在wore窗口的左上角,在下拉列表中選擇「選項」
在選項窗口,選擇「級—將圖片插入/黏貼為—四周型」
再在選項窗口,選擇「快速訪問工具欄—所有命令—選擇多個對象—添加」
這個時候先不急,我們先將文檔另存為,「保存類型選擇Word97-2003文檔」,為什麼呢?因為我們等下就要使用「選擇多個對象」工具,該工具不支持word2016以上版本,所以和我一樣,使用新版本的朋友,這一步請記得另存為。
然後我們看向WORD串口左上角,紅色框框里的圖片,點擊「選擇多個對象」按鈕
在彈出的窗口裡,我們選擇「全選」,點確定,我們第二個方法操作了這么多步,其實就是為了一次選中所有圖片。(WORD不能框選圖片)
好,到了這一步,我們已經框選了所有圖片了,不管是兩張,還是兩千張,接下來一次搞定,統統搞定。
點擊WORD窗口右上角,我紅色框框圈起來的位置,會彈出「設置圖片格式」窗口,和第一種簡便方法一樣,我們去掉「鎖定縱橫比」前面的勾,然後在「高度和寬度」里輸入需要的數值。
好,搞定啦!
【補充】我用的是WORD2019版,可能和很多人的界面不一樣,但是大概位置是差不多了,如果我又標識不清楚,或者說得不明白的地方,歡迎大家在評論區里幫我提供建議。
❺ word文檔如何批量插入圖片
您好,方法
1、首先我們打開word文檔,現在文檔中是空白的,沒有文字也沒有圖片。
2、我們在上方點擊【插入】-【圖片】選擇【本地圖片】。
3、我們在圖片文件夾里,把所有的圖片一起選中,點擊【打開】。
4、發現插入進行來的圖片大小一樣,
5、我們拖動圖片邊上的四個點,即可調整圖片大小,
6、因為圖片的高度問題,這里一頁紙上默認顯示兩張圖片。把所有的圖片寬度調整成一樣的大小就完成了。
❻ 怎樣在WORD中批量插入圖片
方法一:
1、單擊插入---->圖片,如圖所示;
2、在彈出「插入圖片」對話框中選擇存放圖片的位置,此時按住
ctrl
鍵,你就可以用滑鼠選擇多張圖片了;或者你也可以按 shift
鍵,然後單擊選中一張圖片,再單擊另一張圖片,則自動選中了這兩張圖片為對角線的矩形范圍內的所有圖片;或者直接按快捷鍵 ctrl+a
全選,全部選中。最後「插入」即可,如圖所示。
方法二:
1、打開存放圖片的位置,然後選中你的插入的全部圖片;
2、在按下滑鼠右鍵,選擇「復制」;
3、word文檔中,按下滑鼠再按下右鍵,選擇「粘貼」,即可快速想插入的多個圖片。
❼ 多個文件夾中有多個圖片,怎樣快速把圖片導入對應文件夾名的WORD中
假如要一次性在word中插入如下多張圖片,應該如何完成呢?
方法1:先打開一個word文檔,利用工具欄,在文檔下面的工具欄中找到「插入圖片」按鈕點擊,在彈出「插入圖片」對話框中選擇存放圖片的位置,此時按住 Ctrl 鍵,就可以用滑鼠選擇多張圖片了或者你也可以按 Shift 鍵,然後單擊選擇多個圖片,最後「插入」即可,當然如果想要路徑下全部是需插入的圖片,那麼直接按快捷鍵 Ctrl+A 全選,全部插入即可
方法2:先打開一個word文檔,利用菜單欄,在打開的文檔中,選擇「插入」----->「圖片」----->「來自文件」,在彈出「插入圖片」對話框中選擇存放圖片的位置,此時按住 Ctrl 鍵,就可以用滑鼠選擇多張圖片了即可,實際上在彈出「插入圖片」對話框中做法跟上面方法1一樣。
方法3:利用直接復制,利用滑鼠右鍵想插入的圖片的圖標,打開存放圖片的位置,然後選中插入的全部圖片,跟著按下滑鼠右鍵,選擇「復制」,最後在打開的文檔中,滑鼠再按下右鍵,選擇「粘貼」,即可快速想插入的多個圖片.
方法4:利用菜單欄右鍵調出「圖片」工具欄,然後點擊「插入圖片」,下面做法跟方法1,方法2一樣,大家可以試試。
❽ 怎樣往word文件上批量添加圖片(要每頁一張的)
摘要 親,您好!您的問題我這邊已經看到了,正在努力整理答案,稍後五分鍾給您回復,請您稍等一下~
❾ word批量導入圖片和圖片名,並生成多列表格,怎麼操作
一、批量導入圖片:創建表格1、點擊插入——表格——選擇兩列一行即可
2、全選表格後右鍵設置屬性——點擊選項——取消自動重調尺寸以適應內容——點擊確定3、將滑鼠放在第一個單元格內——點擊插入——圖片——按住ctrl+a全選圖片——插入4、看一下效果,圖片是不是都在一列了,而且大小也相同了,選擇右側空白列——右鍵刪除列5、最重要的一步就是選中表格所有內容,按CTLR+H調出查找替換窗口在查找內容中輸入(?)
替換內容中輸入1^p
選中搜索選項中的使用通配符全部替換
2、將滑鼠放在新建的題注"圖1"後按 alt+f9 鍵顯示域代碼—— 按CTRL+H調出查找替換窗口
查找內容為:^g
替換內容為:^&^p^c
選擇全部替換完成後刪除一個多餘的域代碼
注意:前面已經做過查找替換的操作,別忘記通配符要去掉勾選!
3、按Ctrl+A全選整篇文檔後按Alt+F9更新域代碼,圖片下的編號已全部添加完成(全部顯示為圖1),再按一次F9刷新後所有編號自動更新
4、選中所有內容後設置居中排列——點擊文件——選項——顯示——段落標記——點擊確定即可