批量插入图片

hlen512 · 发表于 2012-6-15 22:25

如果要先输入图片名再插入图片应该怎么改修改代码呢？

hlen512 · 发表于 2012-6-17 06:50

好贴，谢谢楼主分享啊啊啊啊

anna512 · 发表于 2012-10-16 19:02

谢谢分享！

qfyy911 · 发表于 2012-10-25 17:23

楼主，台感谢你了。
怎么让图片名称出现在图片的上面而不是下面呢？

qfyy911 · 发表于 2012-10-25 17:40

楼主，您好
我一次插入了171张图片，到第21张的时候，提示
下标越界
      For i = 1 To a
            If xlsname = "" Then
                     Exit For
            End If
                  arr(i) = xlsname
                  xlsname = Dir

loong0921 · 发表于 2013-9-25 21:18

你是我的哥，试试看看，真心需要这个功能

loquat · 发表于 2013-9-25 21:54

With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ".jpg"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.MatchByte = True
.Execute Replace:=wdReplaceAll
End With

复制代码

不知道这么精简会不会有问题

olalala · 发表于 2013-9-27 11:07

多谢分享。。。。。。。。

KESHI0 · 发表于 2013-11-29 00:09

谢谢分享

oylw · 发表于 2015-8-8 21:02

好厉害啊！

		自动登录	找回密码
密码			免费注册

[分享] 批量插入图片