word用宏如何批量把圖片放入表格

❶ 如何快速地把很多圖片插入到word的表格里。

點擊工具欄上面的插入圖片，在選擇圖片時點擊要傳的最後一張照片，按住shift再點第一張然後點插入，你選定的所有圖片就插進去了

❷ 如何在Word表格中，批量自動插入圖片

我試了試，在word里似乎無法實現，不過在微軟公司的另一個軟體里能實現，不過依然沒有你說的那樣簡單。我用的是publisher。在publisher里，插入一個表格（幾乎跟在word里一樣）然後執行「插入——圖像點位符」插入圖像佔位符，並調整它使它適合表格式小。然後復制它，放到另一個表格里，然後選擇這兩個復制……這樣製作出八個圖像點位符，製作好之後點擊圖像點位符就能夠導入圖像了。這樣比直接插入的好處是：所有的圖像自動適合表格大小，而不用再手動調整。如果你用過Adobeindesign，你知道它是可以滿足你的要求的，不過這個軟體很大，使用起來也不是很方便。

❸ 如何實現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裡面呢謝謝啦

用宏你願意嗎？
先選中這些表格，右鍵，設置屬性，選項，上下左右邊距都設置為0cm。
同時按alt和f11進入宏界面，點菜單的插入，模塊，粘貼如下代碼：
sub
test()
dim
pic
as
inlineshape
for
each
pic
in
thisdocument.inlineshapes
if
pic.type
=
3
then
pic.lockaspectratio
=
msofalse
pic.width
=
pic.range.cells.width
pic.height
=
pic.range.cells.height
end
if
next
end
sub
在此界面直接按f5運行此宏，圖片大小自動填充到整個表格。
這個可以將所有表格里的圖片一次性填充好。

❺ word如何批量插入圖片

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

❻ word如何設置宏批量插入圖片到word表格里（每一行2到3個表格）

郵件合並功能，應該是不能實現的吧。
採用簡單的VBA宏編程，針對具體的表格格式，很容易實現的。可以hi我。

❼ 如何用Word宏操作處理圖片讓所有圖片統一操作

方法如下：

1. 先打開存有圖片的word。

2. 在打開的文檔中，選擇在「工具」菜單中選擇「宏」--「宏」。

3. 隨後彈出「宏」對話框，在宏名中輸入setpicsize。

4. 宏名起好了，單擊「創建」按鈕進入Visual Basic 編輯器，輸入代碼。

5. 關閉入Visual Basic 編輯器，返回word，重新選擇「工具」--「宏」--「宏」（或者直接按Alt+F8），再次進入宏的界面，在彈出的宏名中選擇"setpicsize",最後點擊「運行」---確認即可快速地批量修改word中所有圖片大小。
   

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

打開word
插入——圖片——來自文件

選定所有需要的插入後
用回車鍵在各圖片間建立空行

新建一個空白的word文檔。
工具——》宏——》vb編輯器——》打開this document ——》把下面代碼粘入編輯窗口——》保存

打開這個word文檔——》工具——》宏——》執行 下面的不用我說了，最後記得通配符批量替換照片就可以一行顯示多張了。

Sub InsertPic()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "F:\"
If .Show = -1 Then
For Each fn In .SelectedItems
Set mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)
'按比例調整相片尺寸
WidthNum = mypic.Width
c = 10 '在此處修改相片寬,單位厘米
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
Selection.Text = Basename(fn) '函數取得文件名
Selection.EndKey
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里的照片好像只能單張插入，不過可以錄制宏，讓打開要插入圖片的對話框，這樣時間也能省一些。錄制宏--保存--指定快捷鍵。