WORD 怎么批量插入照片并在照片底部命名?

tangqingfu · 发表于 2012-4-13 07:25

谢谢各位的分享！

sqhsqhli · 发表于 2012-4-13 09:08

Function Basename(FullPath) '取得文件名
Basename = Left(CreateObject("Scripting.FileSystemObject").getfile(FullPath).Name, InStr(CreateObject("Scripting.FileSystemObject").getfile(FullPath).Name, ".") - 1)
End Function

yaoxuejian · 发表于 2012-4-15 20:45

备用·························

yepulu · 发表于 2012-5-6 21:54

这个会用到的。

fkksk · 发表于 2012-5-19 16:52

不仅没看懂代码的意思，连怎么用也不会……{:soso_e118:}

珍惜拥有 · 发表于 2012-5-26 10:48

能用到的好东西，收藏

xfwlcnb · 发表于 2012-12-18 10:22

大神能不能自动排列啊不要每张都占一行谢谢

zhanglei1371 · 发表于 2012-12-18 10:48

超级有用的代码！！！感谢！！！

008zhang · 发表于 2013-3-20 08:14

代码不错，非常方便哦，

guzhen9315 · 发表于 2013-3-20 11:32

可能用得到的，先标记一下，以备后用

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

[求助] WORD 怎么批量插入照片并在照片底部命名?