- <%--<script language ="vbscript">
- Set myDocApp = CreateObject("Word.Application")
- myDocApp.Visible = True
- myDocApp.Activate
- set myDoc = myDocApp.Documents.Open("http://localhost:1507/Web/AppModules/SPJG/Annex/00/2008/12/30/20081230144112380.doc")
- dim water
- water = "企业号码:" + chr(13) + "Q3301Q807757-2010" + chr(13) + "有效期至" + "2010年10月22日"
- myDocApp.ActiveDocument.Shapes.AddTextbox(1, 63.85, 53.85, 265.85, 30).Select
- myDocApp.Selection.ShapeRange.TextFrame.TextRange.Select
- myDocApp.Selection.Collapse
- myDocApp.Selection.TypeText("备案号:Q3301Q807757-2005")
- myDocApp.Selection.ShapeRange.Fill.Visible = True
- myDocApp.Selection.ShapeRange.Fill.Solid
- myDocApp.Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
- myDocApp.Selection.ShapeRange.Fill.Transparency = 1
- myDocApp.Selection.ShapeRange.Line.DashStyle = 1
- myDocApp.Selection.ShapeRange.Line.Style = 1
- myDocApp.Selection.ShapeRange.Line.Transparency = 0
- myDocApp.Selection.ShapeRange.Line.Visible = False
- myDocApp.ActiveDocument.Sections(1).Range.Select
- myDocApp.ActiveWindow.ActivePane.View.SeekView = 9
- myDocApp.Selection.HeaderFooter.Shapes.AddTextEffect(msoTextEffect1, water, "宋体", 1, False, False, 0, 0).Select
- myDocApp.Selection.ShapeRange.Name = "msoTextEffect1"
- myDocApp.Selection.ShapeRange.TextEffect.NormalizedHeight = False
- myDocApp.Selection.ShapeRange.TextEffect.FontBold = True
- myDocApp.Selection.ShapeRange.Line.Visible = False
- myDocApp.Selection.ShapeRange.Fill.Visible = True
- myDocApp.Selection.ShapeRange.Fill.Solid
- myDocApp.Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 25, 100)
- myDocApp.Selection.ShapeRange.Fill.Transparency = 0
- myDocApp.Selection.ShapeRange.Rotation = 355
- myDocApp.Selection.ShapeRange.LockAspectRatio = True
- myDocApp.Selection.ShapeRange.Height = 50
- myDocApp.Selection.ShapeRange.Width = 300
- myDocApp.Selection.ShapeRange.WrapFormat.AllowOverlap = True
- myDocApp.Selection.ShapeRange.WrapFormat.Side = 3
- myDocApp.Selection.ShapeRange.WrapFormat.Type = 3
- myDocApp.Selection.ShapeRange.RelativeHorizontalPosition = 0
- myDocApp.Selection.ShapeRange.RelativeVerticalPosition = 0
- myDocApp.Selection.ShapeRange.Left = 70
- myDocApp.Selection.ShapeRange.Top = 190
- myDocApp.ActiveWindow.ActivePane.View.SeekView = 0
- function cancel()
- On Error Resume Next
- myDocApp.Quit()
- self.close()
- end function
- </script>--%>
word加水印
最新推荐文章于 2024-08-23 09:54:41 发布