点击此处--->
群内免费提供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'RelativeHorizontalPosition'='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
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','http://www.easysap.com/data/attach/logo/logo.png', '推荐 haha101010 的问题《通过OLE在Word文档中添加TEXT watermak》','https://www.easysap.com/q-81475.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
ActiveDocument.Sections（1）.Range.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes.AddTextEffect（_
PowerPlusWaterMarkObject247385324，" ASAP"，" Calibri"，72，False，False，0 _
，0）.Select
Selection.ShapeRange.Name =" PowerPlusWaterMarkObject247385324"
Selection.ShapeRange.TextEffect.NormalizedHeight = False
Selection.ShapeRange.Line.Visible = False
Selection.ShapeRange.Fill.Visible = True
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB（192，192，192）
Selection.ShapeRange.Fill.Transparency = 0.5
Selection.ShapeRange.Rotation = 315
Selection.ShapeRange。 LockAspectRatio = True
Selection.ShapeRange.Height = CentimetersToPoints（3.1）< br> Selection.ShapeRange.Width = CentimetersToPoints（5.45）
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapNone
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeVerticalPositionMargin
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionMargin
Selection.ShapeRange.Left = wdShapeCenter
Active。 .ActivePane.View.SeekView = wdSeekMainDocument
很难自闭地进行交互（我说/问过的事情，您听不到，您没有回答，但您提出了新问题）
嗨，
您可以使用此代码
数据：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'。您能告诉我应该在addtext方法中传递什么吗？
一周热门 更多>