WORD内插入图片

梅上雪

批量插入图片和命名.rar (57.22 KB, 下载次数: 9)

2015-2-13 14:06 上传

点击文件名下载附件
word

批量添加图片和命名

现有一个WORD，内有表格2*20或是3*20
表格宽为A4纸宽，表格平均宽度2等分或是三等分A4纸的宽度
现在有没办法批量插入某个文件夹内的图片若干，图片按横向填充，
要求：
1 一行一列插入图片，二行一列插入图片命名；
2 一行二列插入图片，二行二列插入图片命名；
3 如此下去，直到选定的图片全部插入表格；
4 如果表格不够，能否自动添加表格？
5 图片自动缩小，充满整个格格。

梅上雪

搞了好几个VBA宏，结果不行呀，要命呀

梅上雪

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


WORD 2003 为什么这个宏不执行？

csnAlex

请参考 http://club.excelhome.net/thread-1182046-1-1.html 。

梅上雪

非常正确，谢谢了