关于添加word水印

anquan1980 · 发表于 2021-6-21 11:48:27

添加水印：
ActiveDocument.Sections(1).Range.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes.AddTextEffect(PowerPlusWaterMarkObject906303 _
      , "11保密", "宋体", 1, False, False, 0, 0).Select
Selection.ShapeRange.Name = "PowerPlusWaterMarkObject906303"
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(7.4)
Selection.ShapeRange.Width = CentimetersToPoints(22.2)
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

插入水印：
With ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, FileName:= _
      "C:\Users\admin\Pictures\2017-11-12\OCR.BMP", LinkToFile:=False, _
      SaveWithDocument:=True)
      .WrapFormat.Type = 3
      .ZOrder 4
End With

求转易代码！

寒潮 · 发表于 2021-6-21 12:25:49

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
局_文件名	文本型
局_Word对象	对象
局_Documents对象	对象
局_Document对象	对象
局_Window对象	对象
局_Shapes对象	对象

如果真 (打开文件通用对话框.打开 () ＝假)

返回 ()
局_文件名＝打开文件通用对话框.文件名
局_Word对象.创建 (“Word.Application”, )
局_Word对象.写属性 (“Visible”, 假)
局_Documents对象＝局_Word对象.读对象型属性 (“Documents”, )
局_Document对象＝局_Documents对象.对象型方法 (“Open”, 打开文件通用对话框.文件名)
局_Window对象＝局_Word对象.读对象型属性 (“ActiveWindow”, )
局_Shapes对象＝局_Document对象.读对象型属性 (“Shapes”, )
局_Shapes对象.对象型方法 (“AddPicture”, 取运行目录 () ＋ “\Demo.jpg”, , , 150, 150, 320, 320, )
局_Document对象.方法 (“Save”, )
局_Documents对象.方法 (“Close”, )
局_Word对象.方法 (“Quit”, )
局_Window对象.清除 ()
局_Document对象.清除 ()
局_Documents对象.清除 ()
局_Word对象.清除 ()

anquan1980 · 发表于 2021-6-21 17:21:20

寒潮发表于 2021-6-21 12:25
[e=0]
.版本 2

是加文字水印那种，在文档底部的，不过还是谢谢你！

lovely203 · 发表于 2023-8-1 11:41:15

.版本 2

局_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”, 9)  ' #wdSeekCurrentPageHeader的值=9

局_Selection ＝局_word对象.读对象型属性 (“Selection”, )
局_Sections.读对象型属性 (“HeaderFooter”, ).读对象型属性 (“Shapes”, ).对象型方法 (“PowerPlusWaterMarkObject8163454”, ).方法 (“Select”, )
局_Sections.写属性 (“Delete”, )

' 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.写属性 (“Width”, 局_word对象.数值方法 (“CentimetersToPoints”, 14.75))
' Selection.ShapeRange.WrapFormat.AllowOverlap = True
局_ShapeRange.读对象型属性 (“WrapFormat”, ).写属性 (“AllowOverlap”, 真)
' Selection.ShapeRange.WrapFormat.Side = wdWrapNone
局_ShapeRange.读对象型属性 (“WrapFormat”, ).写属性 (“Side”, 3)  ' #wdWrapNone的值=3
' Selection.ShapeRange.WrapFormat.Type = 3
局_ShapeRange.读对象型属性 (“WrapFormat”, ).写属性 (“Type”, 3)
' Selection.ShapeRange.RelativeHorizontalPosition = _
' wdRelativeVerticalPositionMargin
局_ShapeRange.写属性 (“RelativeHorizontalPosition”, 0)  ' wdRelativeVerticalPositionMargin的值=0
' Selection.ShapeRange.RelativeVerticalPosition = _
' wdRelativeVerticalPositionMargin
局_ShapeRange.写属性 (“RelativeVerticalPosition”, 0)  ' 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”, 0)  ' #wdSeekMainDocument的值=0

		自动登录	找回密码
密码			注册

[易语言] 关于添加word水印