按照添加文本方法中的宏记录，我们需要传递水印对象名称，但是当我给水印对象名称指定名称时，它什么也不显示。 如果我传递诸如Msotexteffect10，Msotexteffect10之类的值，那么它将以水印的形式显示，但不会以水印的形式显示。

我想您已经通过Word VBA宏记录器记录了水印。 您能否提供该宏，以便我们为您提供帮助？ （当然，仅对应于ABAP代码的部分）

请小心传递不带引号的整数值，布尔值也应如此！ （= 0代表假，= 1代表真）

让我通过回答我的问题（即宏代码）来为您提供帮助。 我不得不花时间来获取它，这太荒谬了，因为您本来可以给我们的（您也看到我没有与您的代码相同的代码，所以请继续下面的代码作为讨论的基础进行讨论）：

 ActiveDocument.Sections（1）.Range.Select  Window.ActivePane.View.SeekView = wdSeekCurrentPageHeader 
 Selection.HeaderFooter.Shapes.AddTextEffect（PowerPlusWaterMarkObject，_ 
" WATERMARKTEXT"，" Calibri"，  1，False，False，0，0）.Select 
 Selection.ShapeRange.name =" PowerPlusWaterMarkObject" 
 Selection.ShapeRange.TextEffect.NormalizedHeight = False 
 Selection.ShapeRange.Line.Visible = False 
 Selection.ShapeRange.Fill.Visible =真
 Selection.ShapeRange.Fill.Solid 
 Selection.ShapeRange.Fill.ForeColor.RGB = RGB（192，192，192）
 Selection.ShapeRange.Fill。 透明度= 0.5 
 Selection.ShapeRange.Rotation = 315 
 Selection.ShapeRange.LockAspectRatio =真
 Selection.ShapeRange.Height = CentimetersToPoints（3.98）
 Selection.ShapeRange.Width = Centi  meterToPoints（18.58）
 Selection.ShapeRange.WrapFormat.AllowOverlap = True 
 Selection.ShapeRange.WrapFormat.Side = wdWrapNone  Selection.ShapeRange.RelativeHorizo​​ntalPosition =  
 Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionMargin 
 Selection.ShapeRange.Left = wdShapeCenter  ActiveWindow.ActivePane.View.SeekView = wdSeekSoMainDocument 

，您的问题是有关" PowerPlusWaterMarkObject"（AddTextEffect的第一个参数）的值的。 奇怪的是，VBA调试器说它的值为" Empty"，类型为" Variant/Empty"。

函数AddTextEffect（_ 
 PresetTextEffect As MsoPresetTextEffect，_ 
 Text as String，_ 
 FontName作为字符串，_ 
 FontSize作为单个，_ 
 FontBold作为MsoTriState，_ 
 FontItalic作为MsoTriState，_ 
左作为单个，_ 
 Top作为单个，_ 
 [ 锚]）_ 
作为形状

我接下来看到MsoPresetTextEffect的类型为" Enum"。 通过输入代码"虚拟=

MsoPresetTextEffect"。 该建议提出了可能的值的列表，例如msoTextEffect1等，但我找不到PowerPlusWaterMarkObject。 任意地，我尝试使用msoTextEffect1（对象资源管理器告诉我们它是" Const msoTextEffect1 = 0"，因此在ABAP中它将是" = 0"。这是可行的。因此"空"在这里似乎被理解为零。

现在您的最后一个问题：水印显示为"艺术字"而不是水印，这是因为两者在技术上是相同的，但是要成为水印，必须将艺术字对象附加到页面的页眉部分 。如果不起作用，您可能错过了前三行之一：

 ActiveDocument.Sections（1）.Range.Select 
 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader <  br> Selection.HeaderFooter.Shapes.AddTextEffect 

只需回答第一个问题。

调用w_shapes'AddTextEffect'的方法= W_SHAPE 
导出
  #1 = 0"使用0代替'PowerPlusWaterMarkObject221372499'; PresetTextEffect 
#2 ='正在批准'"文字
#3 ='Calibri'" FontName 
#4 = 44" FontSize 
#  5 = 0" FontBold 
#6 = 0" FontIt  alic 
#7 = 0"左
#8 =0。"顶部

另请参阅我的详细答案注释以获取详细信息。

对于其他问题，请将其发布为新问题（ 请参阅论坛规则）

值0不会作为水印出现