⑴ 批量为多个word文档插入同一图片
文件夹下存有多个word文档为每一个word文档插入同一张图片
这样得写代码来批量处理
⑵ word批量贴图把批量图片,插入到有模版的word中
摘要 With picOpenDialog .Filters.Clear '清除所有文件筛选器中的项目
⑶ 如何将大量照片按照顺序一次性导入WORD文档中
将大量照片按照顺序一次性导入word文档中的方法如下(以windows10系统的word2016版为例,需要准备大量照片):
1、将宣传册的照片放入一个文件夹中,并将第一张图片命名为1.jpg,第二页命名为2.jpg,依次类推。
⑷ 如何实现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里并附上该图的名称
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中
摘要 亲您好,打开word
⑺ 怎样将照片批量导入word文档
word中插入菜单===图片
在出来的对话框中,选择图片的时候,把照片全部选中,可以一次性插入N多照片
⑻ 怎样往word文件上批量添加图片(要每页一张的)
预先设置图片格式为嵌入型,全选图片,复制粘贴进文档。利用宏代码,批量统一图片大小。
⑼ word如何批量插入图片
word中连续插入多张图片方法:
1、单击插入---->图片,如图所示;
4、在上图中的高度和宽度输入框中输入需要的大小即可。