word加水印

1. <%--<script language ="vbscript">
2.   Set myDocApp = CreateObject("Word.Application")
3.   myDocApp.Visible = True
4.   myDocApp.Activate
5.   set myDoc = myDocApp.Documents.Open("http://localhost:1507/Web/AppModules/SPJG/Annex/00/2008/12/30/20081230144112380.doc")
6.   dim water
7.   water = "企业号码：" + chr(13) + "Q3301Q807757-2010" + chr(13) + "有效期至" + "2010年10月22日"
8.     myDocApp.ActiveDocument.Shapes.AddTextbox(1, 63.85, 53.85, 265.85, 30).Select
9.     myDocApp.Selection.ShapeRange.TextFrame.TextRange.Select
10.     myDocApp.Selection.Collapse
11.     myDocApp.Selection.TypeText("备案号：Q3301Q807757-2005")
13.     myDocApp.Selection.ShapeRange.Fill.Visible = True
14.     myDocApp.Selection.ShapeRange.Fill.Solid
15.     myDocApp.Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
16.     myDocApp.Selection.ShapeRange.Fill.Transparency = 1
17.     myDocApp.Selection.ShapeRange.Line.DashStyle = 1
18.     myDocApp.Selection.ShapeRange.Line.Style = 1
19.     myDocApp.Selection.ShapeRange.Line.Transparency = 0
20.     myDocApp.Selection.ShapeRange.Line.Visible = False
22.     myDocApp.ActiveDocument.Sections(1).Range.Select
23.     myDocApp.ActiveWindow.ActivePane.View.SeekView = 9 
24.     myDocApp.Selection.HeaderFooter.Shapes.AddTextEffect(msoTextEffect1, water, "宋体", 1, False, False, 0, 0).Select
25.     myDocApp.Selection.ShapeRange.Name = "msoTextEffect1"
26.     myDocApp.Selection.ShapeRange.TextEffect.NormalizedHeight = False
27.     myDocApp.Selection.ShapeRange.TextEffect.FontBold = True
28.     myDocApp.Selection.ShapeRange.Line.Visible = False
29.     myDocApp.Selection.ShapeRange.Fill.Visible = True
30.     myDocApp.Selection.ShapeRange.Fill.Solid
31.     myDocApp.Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 25, 100)
32.     myDocApp.Selection.ShapeRange.Fill.Transparency = 0 
33.     myDocApp.Selection.ShapeRange.Rotation = 355 
34.     myDocApp.Selection.ShapeRange.LockAspectRatio = True
35.     myDocApp.Selection.ShapeRange.Height = 50 
36.     myDocApp.Selection.ShapeRange.Width = 300 
37.     myDocApp.Selection.ShapeRange.WrapFormat.AllowOverlap = True
38.     myDocApp.Selection.ShapeRange.WrapFormat.Side = 3 
39.     myDocApp.Selection.ShapeRange.WrapFormat.Type = 3
40.     myDocApp.Selection.ShapeRange.RelativeHorizontalPosition = 0 
41.     myDocApp.Selection.ShapeRange.RelativeVerticalPosition = 0
42.     myDocApp.Selection.ShapeRange.Left = 70  
43.     myDocApp.Selection.ShapeRange.Top = 190 
44.     myDocApp.ActiveWindow.ActivePane.View.SeekView = 0 
47.   function cancel()
48. On Error Resume Next
49.     myDocApp.Quit()
50.     self.close()
51.   end function
52. </script>--%>