使用宏批量插入图片到Word表格

创建宏，word 视图-》宏》查看宏》输入名称》创建

宏代码如下：

Sub imgTbl()If ActiveDocument.Tables.Count = 1 Then '删除上次数据ActiveDocument.Tables(1).DeleteEnd If'//获取文件夹，存入数组Dim kr()Set fso = CreateObject("scripting.filesystemobject")With Application.FileDialog(msoFileDialogFolderPicker)If .Show Then PathSht = .SelectedItems(1) Else Exit SubEnd WithDim imgPaths()  '图片路径数组picName = Dir(PathSht & "\*.bmp")Do While picName <> "" 'Do While循环i = i + 1imgPath = PathSht + "\" + picNamepicName = Dir    ' 查找下一个图片ReDim Preserve imgPaths(1 To i)imgPaths(i) = imgPathLoopimgNum = UBound(imgPaths) + 1Dim value '弹出输入框，输入列数，默认10，会自动计算行数value = InputBox("请输入表格列数", "表格列数", "10")Debug.Print valuetbl_columnNum = valuetbl_rowNum = Int(imgNum / tbl_columnNum) + 1'//开始新建表格Dim tbl As TableSet tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=tbl_rowNum, NumColumns:=tbl_columnNum)'新建表格tbl.Style = "网格型"Set tbl = ActiveDocument.Tables(1)'tbl.Columns(1).Width = 1.27 * 28.35 '设置表格各列的列宽'tbl.Columns(2).Width = 2.13 * 28.35'tbl.Columns(3).Width = 3.3 * 28.35'tbl.Rows(1).Height = 2.13 * 28.35 '设置表格各列的列宽tbl.Rows.Alignment = wdAlignRowCenter '居中对齐tbl.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter '文字垂直居中'tbl.Range.HorizontalInVertical = xlHAlignCenter '文字水平居中'tbl.Range.Rows.Alignment = wdAlignRowCentertbl.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '文字水平居中tbl.Range.Font.Size = 6'//开始插入图片For i = 1 To tbl_rowNum'对Word中的表格中的行进行循环。For j = 1 To tbl_columnNum'对Word中的表格中的列进行循环。fod_index = fod_index + 1If fod_index >= imgNum Then ' 超过图片数量，退出循环Exit ForEnd IfimgPath = imgPaths(fod_index) '图片路径srr = Split(imgPath, "\")FullName = srr(UBound(srr))nrr = Split(FullName, ".")'tbl.Cell(i, j).Range.Text = nrr(0) '单元格文字图片名称不带后缀'tbl.Cell(i, j).Range.Text = "OK"tbl.Cell(i, j).Range.Select  '选择当前单元格Dim shp As InlineShapeSet shp = Selection.Range.InlineShapes.AddPicture(FileName:=imgPath) '插入图片tbl.Cell(i, j).Range.Select  '选择当前单元格 '选中该单元格，为了下一步光标定位到单元格内部Selection.EndKey wdLineSelection.TypeText Chr(10) & nrr(0)   '单元格文字图片名称不带后缀NextNextMsgBox "完成！"
End SubFunction getfol()
'该函数的作用：弹出对话框提示用户选择文件夹，并且返回该文件夹路径。
'如果用户选择了取消，则返回空值Dim PathSht As StringWith Application.FileDialog(msoFileDialogFolderPicker)If .Show ThenPathSht = .SelectedItems(1)ElsePathSht = ""Exit FunctionEnd Withgetfol = PathSht & IIf(Right(PathSht, 1) = "\", "", "\")
End Function

新建窗体：

点击按钮执行宏，代码：

Private Sub CommandButton1_Click()Application.Run MacroName:="imgTbl"
End Sub

Word打开显示窗体，代码：

Private Sub Document_Open()UserForm1.Show  '显示用户窗体
End Sub

执行效果：

使用宏批量插入图片到Word表格相关推荐

word中使用宏批量插入图片
Sub loadpic() ' ' loadpic Macro ' 宏在 2010-6-21 由 Smile Xu 创建 ' Dim picOpenDialog As FileDialog, file ...
word文档批量插入图片及其文件名
word文档批量插入图片及其文件名-宏脚本处理 Sub PicWithCaption()Dim xFileDialog As FileDialogDim xPath, xFile As Variant ...
python-docx对Word文档的指定位置(批量)插入图片
python-docx对Word文档的指定位置(批量)插入图片任务实现自动化办公,对请假条.docx文件实现自动插入请假人签名图片. 技术方案 1.python-docx python-docx是 ...
excel表格怎么调整行高和列宽_如何在Excel中竖向批量插入图片，这个简单方法你知道吗...
酌酒与君君自宽,人情翻覆似波澜.白首相知犹按剑,朱门先达笑弹冠.草色全经细雨湿,花枝欲动春风寒.世事浮云何足问,不如高卧且加餐. --[唐]王维<酌酒与裴迪> 不知道大家有没有遇到过这种情 ...
excel表格怎么调整行高和列宽_在Excel中批量插入图片？这要如何操作呢
酌酒与君君自宽,人情翻覆似波澜.白首相知犹按剑,朱门先达笑弹冠.草色全经细雨湿,花枝欲动春风寒.世事浮云何足问,不如高卧且加餐. --[唐]王维<酌酒与裴迪> 不知道大家有没有遇到过这种情 ...
wps表格批量插入图片
wps表格批量插入图片本文作者LockieDeng,后端工程师,致力于倒腾各种前沿技术,欢迎交流: dengmuuming@163.com 0.前言在开始阅读本文档之前,电脑中必须安装好 WPS ...
Java利用poi生成word(包含插入图片，动态表格，行合并)
Java利用poi生成word(包含插入图片,动态表格,行合并) 测试模板样式: 图表 1 Word生成结果: 图表 2 需要的jar包:(具体jar可自行去maven下载) Test测试类: imp ...
图片转word表格在线教学，想知道图片转word表格怎么转吗？
有时我们会收到一份图片形式的Word文件,要求我们进行转换.那么我们在办公时遇到图片转word表格怎么转呢?其实很多人第一反应会是手动录入,但是现在有很多方法都能直接将文字进行提取并使用.又有哪些能够 ...
Excel根据名字批量插入图片
Excel根据名字批量插入图片一.如果图片名称与Excel名称不一致时(如下图1) (图1) 1. 先将文件名批量形成文档txt,先新建一个文本文档1.TXT 打开后输入批处理命令:dir . &g ...

使用宏批量插入图片到Word表格

使用宏批量插入图片到Word表格相关推荐

最新文章

热门文章