提问
ABAP Development sap ole

通过OLE在Word文档中添加TEXT watermak

2020-09-16 00:21发布

站内问答 / ABAP
3084 10 6

点击此处---> 群内免费提供SAP练习系统（在群公告中）加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）大家好， 任何人都可以在OLE...

         点击此处--->   EasySAP.com群内免费提供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

10条回答
SC_Yao
2020-09-16 00:24

嗨，

您可以使用此代码

数据：gv_word_app TYPE ole2_object，
         gv_documents TYPE ole2_object，" ActiveDocument句柄
         gv_document TYPE ole2_object，" ActiveDocument句柄
         gv_activedocument TYPE ole2_object，" ActiveDocument句柄
         gv_range TYPE ole2_object，"范围句柄
         gv_activewindow TYPE ole2_object，" ActiveWindow句柄
         gv_view TYPE ole2_object，"视图句柄
         gv_selection TYPE ole2_object，"选择句柄
         gv_HeaderFooter TYPE ole2_object，" HeaderFooter句柄
         gv_Shapes TYPE ole2_object，
         gv_Shape TYPE ole2_object，


   创建对象gv_word_app'WORD.APPLICATION'。
   gv_word_app的设置属性"可见" =" 1"。
   获取gv_word_app'文档'的属性= gv_documents。
   gv_documents的调用方法"添加" = gv_document。
   gv_document"激活"的调用方法。
   获取gv_word_app'ActiveDocument'= gv_activedocument的属性。
   获取gv_activedocument'ActiveWindow'= gv_activewindow的属性。
   获取gv_activewindow'视图'的属性= gv_view。
   设置gv_view的属性'SeekView'='1'。
   获取gv_word_app"选择" = gv_selection的属性。
   获取gv_selection'HeaderFooter'= gv_HeaderFooter的属性。
   获取gv_HeaderFooter'Shapes'= gv_Shapes的属性。
   调用gv_Shapes的METHOD'AddTextEffect'= gv_Shape
   出口
     #1 ='0'
     #2 ='测试'
     #3 ='Times New Roman'
     #4 ='44'
     #5 ='0'
     #6 ='0'
     #7 ='0'
     #8 ='0'。

一周热门 更多>