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

 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