如何使用WORD VBA在指定文档中的一列表格中顺序插入多张图片

作者：绿色风分类：时间：2022-08-18 浏览：220

楼主
xmyjk

Q:如何使用WORD VBA在指定文档中的一列表格中顺序插入多张图片?
表格可能仅两列，要能自动增加列数。

A:WORD 07 以后，图片处理有了不一样的情况，以前用shapes.addpicture(anchor:=xx)就能搞定了，现在不行了。
要插入嵌入式图形（而且不能在单元格里面插入，只能先在外面插入），然后再黏贴如单元格

Sub test()
Dim ph$, fn$, k&, i&, j&, sp
j = ActiveDocument.Tables(1).Rows.Count '初始行数
ph = ThisDocument.Path & "\图片源文档\" '插入图片的路径
fn = Dir(ph & "*.bmp") '查找
Do Until fn = "" '一直查找直至为空
k = k + 1 '找个一个计数器加1
If k > j Then '如果计数器超出初始列，则增加行
ActiveDocument.Tables(1).Cell(Row:=k - 1, Column:=1).Range.Select '选定上一行的单元格
Selection.InsertRowsBelow '增加行
End If
Selection.HomeKey unit:=wdStory '切换至文档首
Set sp = Selection.InlineShapes.AddPicture(FileName:=ph & fn, SaveWithDocument:=True) '插入嵌入式图片
sp.Select '选择图片
Selection.Cut '剪贴
ActiveDocument.Tables(1).Cell(Row:=k, Column:=1).Range.Select '选择单元格
Selection.PasteAndFormat (wdPasteDefault) '黏贴入嵌入式图片
fn = Dir '继续查找
Loop
End Sub

效果如下：

@W-13.zip

2楼
い卋玑┾宝珼

妃妃最近研究word小有心得嘛

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表