word对象

lovely203

易语言是怎么添加水印到word里面的呢。谢谢
    ActiveDocument.Sections(1).Range.Select
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes.AddTextEffect( _
        PowerPlusWaterMarkObject8163454, "保密1", "等线", 1, False, False, 0, 0). _
        Select
    Selection.ShapeRange.Name = "PowerPlusWaterMarkObject8163454"
    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(5.9)
    Selection.ShapeRange.Width = CentimetersToPoints(14.75)
    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
    Selection.ShapeRange.Top = wdShapeCenter
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

梦寻简单

  

局_Word对象.获取 (“word.Application”)
' ActiveDocument.Sections(1).Range.Select
局_ActiveDocument ＝ 局_Word对象.读对象型属性 (“ActiveDocument”, )
局_Sections ＝ 局_ActiveDocument.读对象型属性 (“Sections”, )
局_Sections.读对象型属性 (“Item”, 1).读对象型属性 (“Range”, ).方法 (“Select”, )
' ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
局_Word对象.读对象型属性 (“ActiveWindow”, ).读对象型属性 (“ActivePane”, ).读对象型属性 (“View”, ).写属性 (“SeekView”, #wdSeekCurrentPageHeader )  ' #wdSeekCurrentPageHeader的值=9
局_Selection ＝ 局_Word对象.读对象型属性 (“Selection”, )
' Selection.HeaderFooter.Shapes.AddTextEffect( _
' PowerPlusWaterMarkObject8163454, "保密1", "等线", 1, False, False, 0, 0). _Select
局_Selection.读对象型属性 (“HeaderFooter”, ).读对象型属性 (“Shapes”, ).对象型方法 (“AddTextEffect”, 0, “保密1”, “等线”, 1, 假, 假, 0, 0).方法 (“Select”, )
局_ShapeRange ＝ 局_Selection.读对象型属性 (“ShapeRange”, )
' Selection.ShapeRange.Name = "PowerPlusWaterMarkObject8163454"
局_ShapeRange.写属性 (“Name”, “PowerPlusWaterMarkObject8163454”)
' Selection.ShapeRange.TextEffect.NormalizedHeight = False
局_ShapeRange.读对象型属性 (“TextEffect”, ).写属性 (“NormalizedHeight”, 假)
' Selection.ShapeRange.Line.Visible = False
局_ShapeRange.读对象型属性 (“Line”, ).写属性 (“Visible”, 假)
' Selection.ShapeRange.Fill.Visible = True
局_ShapeRange.读对象型属性 (“Fill”, ).写属性 (“Visible”, 真)
' Selection.ShapeRange.Fill.Solid
局_ShapeRange.读对象型属性 (“Fill”, ).方法 (“Solid”, )
' Selection.ShapeRange.Fill.ForeColor.RGB = RGB(192, 192, 192)
局_ShapeRange.读对象型属性 (“Fill”, ).读对象型属性 (“ForeColor”, ).写属性 (“RGB”, 取颜色值 (192, 192, 192))
' Selection.ShapeRange.Fill.Transparency = 0.5
局_ShapeRange.读对象型属性 (“Fill”, ).写属性 (“Transparency”, 0.5)
' Selection.ShapeRange.Rotation = 315
局_ShapeRange.写属性 (“Rotation”, 315)
' Selection.ShapeRange.LockAspectRatio = True
局_ShapeRange.写属性 (“LockAspectRatio”, 真)
' Selection.ShapeRange.Height = CentimetersToPoints(5.9)
局_ShapeRange.写属性 (“Height”, 局_Word对象.数值方法 (“CentimetersToPoints”, 5.9))
' Selection.ShapeRange.Width = CentimetersToPoints(14.75)
局_ShapeRange.写属性 (“Height”, 局_Word对象.数值方法 (“Width”, 14.75))
' Selection.ShapeRange.WrapFormat.AllowOverlap = True
局_ShapeRange.读对象型属性 (“WrapFormat”, ).写属性 (“AllowOverlap”, 真)
' Selection.ShapeRange.WrapFormat.Side = wdWrapNone
局_ShapeRange.读对象型属性 (“WrapFormat”, ).写属性 (“Side”, #wdWrapNone )  ' #wdWrapNone的值=3
' Selection.ShapeRange.WrapFormat.Type = 3
局_ShapeRange.读对象型属性 (“WrapFormat”, ).写属性 (“Type”, 3)
' Selection.ShapeRange.RelativeHorizontalPosition = _
' wdRelativeVerticalPositionMargin
局_ShapeRange.写属性 (“RelativeHorizontalPosition”, #wdRelativeVerticalPositionMargin )  ' wdRelativeVerticalPositionMargin的值=0
' Selection.ShapeRange.RelativeVerticalPosition = _
' wdRelativeVerticalPositionMargin
局_ShapeRange.写属性 (“RelativeVerticalPosition”, #wdRelativeVerticalPositionMargin )  ' wdRelativeVerticalPositionMargin的值=0
' Selection.ShapeRange.Left = wdShapeCenter
局_ShapeRange.写属性 (“Left”, #wdShapeCenter )  ' wdShapeCenter的值=-999995
' Selection.ShapeRange.Top = wdShapeCenter
局_ShapeRange.写属性 (“Top”, #wdShapeCenter )  ' wdShapeCenter的值=-999995
' ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
局_Word对象.读对象型属性 (“ActiveWindow”, ).读对象型属性 (“ActivePane”, ).读对象型属性 (“View”, ).写属性 (“SeekView”, #wdSeekMainDocument )  ' #wdSeekMainDocument的值=0

.版本 2<br /> <br /> 局_Word对象.获取 (“word.Application”)<br /> ' ActiveDocument.Sections(1).Range.Select<br /> <br /> 局_ActiveDocument ＝ 局_Word对象.读对象型属性 (“ActiveDocument”, )<br /> 局_Sections ＝ 局_ActiveDocument.读对象型属性 (“Sections”, )<br /> 局_Sections.读对象型属性 (“Item”, 1).读对象型属性 (“Range”, ).方法 (“Select”, )<br /> <br /> ' ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader<br /> 局_Word对象.读对象型属性 (“ActiveWindow”, ).读对象型属性 (“ActivePane”, ).读对象型属性 (“View”, ).写属性 (“SeekView”, #wdSeekCurrentPageHeader)  ' #wdSeekCurrentPageHeader的值=9<br /> <br /> 局_Selection ＝ 局_Word对象.读对象型属性 (“Selection”, )<br /> <br /> ' Selection.HeaderFooter.Shapes.AddTextEffect( _<br /> ' PowerPlusWaterMarkObject8163454, "保密1", "等线", 1, False, False, 0, 0). _Select<br /> 局_Selection.读对象型属性 (“HeaderFooter”, ).读对象型属性 (“Shapes”, ).对象型方法 (“AddTextEffect”, 0, “保密1”, “等线”, 1, 假, 假, 0, 0).方法 (“Select”, )<br /> <br /> 局_ShapeRange ＝ 局_Selection.读对象型属性 (“ShapeRange”, )<br /> ' Selection.ShapeRange.Name = "PowerPlusWaterMarkObject8163454"<br /> 局_ShapeRange.写属性 (“Name”, “PowerPlusWaterMarkObject8163454”)<br /> ' Selection.ShapeRange.TextEffect.NormalizedHeight = False<br /> 局_ShapeRange.读对象型属性 (“TextEffect”, ).写属性 (“NormalizedHeight”, 假)<br /> ' Selection.ShapeRange.Line.Visible = False<br /> 局_ShapeRange.读对象型属性 (“Line”, ).写属性 (“Visible”, 假)<br /> ' Selection.ShapeRange.Fill.Visible = True<br /> 局_ShapeRange.读对象型属性 (“Fill”, ).写属性 (“Visible”, 真)<br /> ' Selection.ShapeRange.Fill.Solid<br /> 局_ShapeRange.读对象型属性 (“Fill”, ).方法 (“Solid”, )<br /> ' Selection.ShapeRange.Fill.ForeColor.RGB = RGB(192, 192, 192)<br /> 局_ShapeRange.读对象型属性 (“Fill”, ).读对象型属性 (“ForeColor”, ).写属性 (“RGB”, 取颜色值 (192, 192, 192))<br /> ' Selection.ShapeRange.Fill.Transparency = 0.5<br /> 局_ShapeRange.读对象型属性 (“Fill”, ).写属性 (“Transparency”, 0.5)<br /> ' Selection.ShapeRange.Rotation = 315<br /> 局_ShapeRange.写属性 (“Rotation”, 315)<br /> ' Selection.ShapeRange.LockAspectRatio = True<br /> 局_ShapeRange.写属性 (“LockAspectRatio”, 真)<br /> ' Selection.ShapeRange.Height = CentimetersToPoints(5.9)<br /> 局_ShapeRange.写属性 (“Height”, 局_Word对象.数值方法 (“CentimetersToPoints”, 5.9))<br /> ' Selection.ShapeRange.Width = CentimetersToPoints(14.75)<br /> 局_ShapeRange.写属性 (“Height”, 局_Word对象.数值方法 (“Width”, 14.75))<br /> ' Selection.ShapeRange.WrapFormat.AllowOverlap = True<br /> 局_ShapeRange.读对象型属性 (“WrapFormat”, ).写属性 (“AllowOverlap”, 真)<br /> ' Selection.ShapeRange.WrapFormat.Side = wdWrapNone<br /> 局_ShapeRange.读对象型属性 (“WrapFormat”, ).写属性 (“Side”, #wdWrapNone)  ' #wdWrapNone的值=3<br /> ' Selection.ShapeRange.WrapFormat.Type = 3<br /> 局_ShapeRange.读对象型属性 (“WrapFormat”, ).写属性 (“Type”, 3)<br /> ' Selection.ShapeRange.RelativeHorizontalPosition = _<br /> ' wdRelativeVerticalPositionMargin<br /> 局_ShapeRange.写属性 (“RelativeHorizontalPosition”, #wdRelativeVerticalPositionMargin)  ' wdRelativeVerticalPositionMargin的值=0<br /> ' Selection.ShapeRange.RelativeVerticalPosition = _<br /> ' wdRelativeVerticalPositionMargin<br /> 局_ShapeRange.写属性 (“RelativeVerticalPosition”, #wdRelativeVerticalPositionMargin)  ' wdRelativeVerticalPositionMargin的值=0<br /> ' Selection.ShapeRange.Left = wdShapeCenter<br /> 局_ShapeRange.写属性 (“Left”, #wdShapeCenter)  ' wdShapeCenter的值=-999995<br /> ' Selection.ShapeRange.Top = wdShapeCenter<br /> 局_ShapeRange.写属性 (“Top”, #wdShapeCenter)  ' wdShapeCenter的值=-999995<br /> ' ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument<br /> 局_Word对象.读对象型属性 (“ActiveWindow”, ).读对象型属性 (“ActivePane”, ).读对象型属性 (“View”, ).写属性 (“SeekView”, #wdSeekMainDocument)  ' #wdSeekMainDocument的值=0

补充内容 (2021-8-7 17:56):
补充见下面

梦寻简单

局_ShapeRange.写属性 (“Height”, 局_Word对象.数值方法 (“Width”, 14.75))
更改为
局_ShapeRange.写属性 (“Width”, 局_Word对象.数值方法 (“CentimetersToPoints”, 14.75))

lovely203

梦寻简单 发表于 2021-8-7 17:56
局_ShapeRange.写属性 (“Height”, 局_Word对象.数值方法 (“Width”, 14.75))
更改为
局_ShapeRange.写属 ...

大神。不能显示。你发的最后也改了。不知页眉上面是什么

梦寻简单

lovely203 发表于 2021-8-7 22:05
大神。不能显示。你发的最后也改了。不知页眉上面是什么

我这可以显示的啊

lovely203

梦寻简单 发表于 2021-8-7 22:38
我这可以显示的啊

麻烦整个源码发过试试

梦寻简单

lovely203 发表于 2021-8-7 23:16
麻烦整个源码发过试试

除了变量没写，其他的都是完整的哦

lovely203

梦寻简单 发表于 2021-8-7 23:53
除了变量没写，其他的都是完整的哦

值应该不会有备注错吧！

梦寻简单

lovely203 发表于 2021-8-8 06:37
值应该不会有备注错吧！

没有。你可以去MSDN看看文档

lovely203

梦寻简单 发表于 2021-8-8 13:26
没有。你可以去MSDN看看文档

都没问题。不知怎么会跑到页眉上面去了。按删除水印就点一样就被删除了。