点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

大家好，

任何人都可以在OLE中为我提供在Word文档中插入文本水印的代码。

我正在尝试根据宏录制使用以下代码，但是它不起作用。

请帮助。

创建对象gv_wordapp'WORD.APPLICATION'。
设置gv_wordapp'Visible'的属性=1。


gv_wordapp'Documents'的调用方法= lv_worddoc。

lv_worddoc'打开'
导出
#1 = l_filename。

的调用方法gv_wordapp'ActiveDocument'= lv_wordadoc。



的调用方法 gv_wordapp'ActiveWindow'= w_activewindow.CALL的调用方法w_activewindow'ActivePane'= w_activepane.w_activepane的调用方法'View'= w_activeview。
设置w_activeview的属性'SeekView'='9'。 "标题视图。

获取gv_wordapp"选择" = w_selection的属性。
获取w_selection的属性" HeaderFooter" = w_headfoot。
获取w_headfoot的属性"形状" = w_shapes。

w_shapes'AddTextEffect'的调用方法= W_SHAPE

导出
#1 ='PowerPlusWaterMarkObject221372499'
#2 ='正在批准'
#3 ='Calibri'
#4 ='44'
#5 ='0'
#6 ='0'
#7 ='0'
#8 ='0'。

w_shape'Select'的调用方法。

获取gv_wordapp"选择" = w_selection1的属性。

获取w_selection1'ShapeRange'= w_range的属性

w_range'Name'的set属性='PowerPlusWaterMarkObject221372499'。

获取w_range'TextEffect'的属性= w_text.S

w_text'NormalizedHeight'='0'的属性。

获取W_range'Line'= w_line的属性。

设置w_line'可见'='0'的属性。
获取w_range'填充'= w_fill的属性。

w_fill'Visible'的set属性='-1'。w_fill'Solid'的调用方法。

获取w_fill'ForeColor'= W_Colour的属性。

设置w_colour'RGB'='11776947'的属性。

w_fill'透明度'的设置属性='0.5'。


w_range'旋转'的设置属性='315'。

w_range'LockAspectRatio'='-1'的set属性。

w_range'Height'='80'的set属性。

设置w_range'Width'='150'的属性。
获取w_range'WrapFormat'= w_wrap的属性。

w_wrap'AllowOverlap'的set属性='3'。

w_wrap'Side'的set属性='3'.w_wrap'Type'的set属性='3'。

w_range'RelativeHorizo​​ntalPosition'='0'的set属性。

w_range'RelativeVerticalPosition'='0'的set属性。

w_range'Left'='-999995'的set属性。

w_range'Top'='-999995'的set属性。

w_activeview的设置属性'SeekView'='0'。

lv_wordadoc'保存'的调用方法。

gv_wordapp"退出"的调用方法。

致谢

Sweta