有啥办法把大量图片批量插入word进行排版呢？（一页2张）

lxx4869 发表于 2015-5-20 08:22

图片下面的注释就用图片文件名之类的。。

tclm 发表于 2015-5-20 08:42

插入图片

lxx4869 发表于 2015-5-20 10:20

发现用win自带的打印功能也能自动分成一页两张，不过没法把文件名当注释。。

lyflyflxf 发表于 2015-5-20 10:59

lxx4869 发表于 2015-5-20 10:20
发现用win自带的打印功能也能自动分成一页两张，不过没法把文件名当注释。。 ...

word2010自动添加题注本身已经需要用VBA了，自动识别文件名就更麻烦了吧，不知道VBA还能不能解决

绕指流光 发表于 2015-5-20 11:12

文件名VBA搞起来比添加题注还方便，一个遍历getopenfilename搞定

lxx4869 发表于 2015-5-20 12:51

lyflyflxf 发表于 2015-5-20 10:59
word2010自动添加题注本身已经需要用VBA了，自动识别文件名就更麻烦了吧，不知道VBA还能不能解决 ...

我已经用excel弄了。。发现图片大小什么的比word方便。。
Sub Macro2()
'
Dim cun As Integer
For cun = 1 To 9
Range("c" & cun).Select
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Administrator\桌面\相片批量导入\学生相片\" & cun & ".jpg" _
).Select
Next cun
End Sub
导入用的这个。。

文件名那个用excel的自动填充凑合代替了..

页: [1]

Stage1st's Archiver

有啥办法把大量图片批量插入word进行排版呢？（一页2张）