使用VFP在多页单词中添加许多图片

时间:2015-07-05 07:15:48

标签: image ms-word foxpro visual-foxpro

我需要在每个单页的单词文档上添加一张图片。

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`

1 个答案:

答案 0 :(得分:1)

如果您在每个页面上放置相同的图像,最好将其设置为水印。本文将告诉您如何在Word中执行此操作:https://support.office.com/en-ie/article/Insert-a-watermark-or-change-a-watermark-f90f26a5-2101-4a75-bbfe-f27ef05002de

记录宏,看看如何将其转换为自动化代码。