对象Word.Application lotusscript

Question

当我尝试在lotusscript中使用MS Word对象的属性时出错。我的任务是使用lotusscript在MSWord文档中附加背景图片。

这就是我所拥有的：

Dim wrdApp As Variant
Dim wordFile As Variant
Dim ActiveDocument As Variant

Set wrdApp = CreateObject("Word.Application")
Set wordFile = GetObject( , "Word.Application")
filepath = "C:\TEST\" & object.Source
Call object.ExtractFile(filepath$)
wrdApp.Visible = True
Call wrdApp.activate
wrdApp.documents.open(filepath$)
Set ActiveDocument = wrdApp.activedocument

ActiveDocument.Shapes.AddPicture("C:\Users\bukhtiyarov_a\Desktop\1.jpg",_
False,True, 0,0,570,570).Select

ActiveDocument.ShapeRange.Name = "WordPictureWatermark518456249"
ActiveDocument.ShapeRange.PictureFormat.Brightness = 0.85

我如何为我的照片申请（ShapeRange.PictureFormat.Brightness = 0.85）。 谢谢！

我收到的错误是Instance member SHAPERANGE does not exist

行ActiveDocument.ShapeRange.Name = "WordPictureWatermark518456249"

Answer 1

false