我需要在每个单页的单词文档上添加一张图片。
Akwardly我的do while + page break
不会为我做这份工作。
我该如何解决这个问题?
这是我的代码:
DO WHILE .not. eof ()
oShape = oShapes.addPicture ("C:\Cartas\Icons\firma-bgh-5cm.png", 0 -1,100,300,,)
oWord.ActiveDocument.Shapes(1).Select
oWord.Selection.ShapeRange.RelativeHorizontalPosition = 2
oWord.Selection.ShapeRange.RelativeVerticalPosition = 4
oWord.Selection.ShapeRange.Left= 3.8*72 && Move 4.2 inches x 72 points/inch
oWord.Selection.ShapeRange.Top = pvertical
***SALTO DE PAGINA***
.InsertBreak
*********************
`end do`
答案 0 :(得分:1)
如果您在每个页面上放置相同的图像,最好将其设置为水印。本文将告诉您如何在Word中执行此操作:https://support.office.com/en-ie/article/Insert-a-watermark-or-change-a-watermark-f90f26a5-2101-4a75-bbfe-f27ef05002de
记录宏,看看如何将其转换为自动化代码。