Word的问题请教！VBA-->kevin转移

xpzwp · 发表于 2002-3-30 22:42

我有一组图片01001.jpg 01002.jpg 01003.jpg ...01049.jpg 02001.jpg 02002.jpg 02003.jpg ...02049.jpg 如何自动生成一个文档,将图片链接入文档,每页放置两张图片 01***.jpg 02***.jpg 并在每个图片下方标注一行说明?[em27]

xpzwp · 发表于 2002-4-2 16:27

谢谢!Word应用与开发版人气不旺[em26]

惊叹不已 · 发表于 2002-4-2 16:34

可能是用Word打字、排版的用户比较多，而用Word的VBA简化工作的用户并不多的缘故。

惊叹不已 · 发表于 2002-4-1 11:48

假设图片在e:\picture\ Documents.Add For i = 1 To 49 If i > 9 Then fl = "010" & i & ".jpg" Else fl = "0100" & i & ".jpg" End If fl = "e:\picture\" & fl Selection.InlineShapes.AddPicture FileName:=fl, LinkToFile:=True, SaveWithDocument:=True Selection.TypeParagraph Selection.TypeText Text:=fl Selection.TypeParagraph If i Mod 2 = 0 Then Selection.InsertBreak Type:=wdSectionBreakNextPage Next 另外,关于Word的问题,请到"Word应用与开发版"提问.

[此贴子已经被惊叹不已于2002-4-1 11:48:43编辑过]

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