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里的照片好像只能单张插入，不过可以录制宏，让打开要插入图片的对话框，这样时间也能省一些。录制宏--保存--指定快捷键。