Word Watermarking

[Beesknees]

Please can anyone help me with word watermarks. The help files state you should do this by adding a header object and setting the color type as watermark but this only puts it on the top of the document and if it's a picture it stuffs the formatting of the page. The other way was to put a background on it but this doesn't print! I can't use the print driver to put a watermark on unfortunately. Any other ideas?

 

[DarkSun]

This isn't the best way to do it but it does work.

You can:

1. Just use a textbox from the drawing toolbar and change the fill color to fill effects then select a picture. you can then remove the outline and set it to semitransparent.

2. Use the header watermark as the help describes but then put a textbox over the top with no background fill and no outline.

 

[Beesknees]

thanks, this gives me something to work with at last. I'm doing it from VB so now I just have to code it!

 

[DarkSun]

1.ignore the first one because you can't set it to semitransparent when a picture is selected.

2.Not sure about you but my watermark didn't look much like a watermark when you go to print preview.

 

[Beesknees]

I actually went to word art and inserted some text, set the wrapping style to 'None' and ticked the semi-transparent box and seemed to look okay in print preview. I'm really surprised there isn't an easier way to this seemingly basic task!

 

[DarkSun]

There probably is!

 

[DarkSun]

I have found the easier way. Ignore all the other advice I gave you.

Just place the watermark as the help suggests then:

1. right click on picture and choose "format Picture"
2. select the "position" tab and check the "Float over text" option. then click ok.
3. right click on picture and choose "Order" - "Send Behind Text".

That should do what you want.

 

[PhilipSchroevers]

I had this problem some time ago. I wanted to 'emulate' , for testing purposes, special forms on which a (generated) Word document had to be printed. This is the line of code I used:

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.InlineShapes.Add Filename:=<<put in reference to picturefile>>, LinkToFile:= False, SaveWithDocument:=True;

In my case the picturefile was a scan of the special form.

Sorry, I don't recall all the details but it works allright.

Have fun!

 

[PhilipSchroevers]

Sorry, it should be AddPicture, not just Add

 

[DarkSun]

Sorry to be confusing but, Ignore my last post which means that my comments before are still valid. My last thread doesn't work. Word is Cr$*

 

[Beesknees]

Thanks for all your help guys, both suggestions contributed to the solution. In case you're interested I ended up achieving the watermark like this:

Opened up document in header/footer view
selected Picture > WordArt
Typed in watermark name (copy)
Clicked the semi-transparent property on the colors and lines tab.
changed the rotation to 315 degrees.
closed the header footer.
voila - there it is.
Only limitation is it seems it can't be formatted after you've left the header footer view.

The code below automated the procedure:


If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Or ActiveWindow.ActivePane.View.Type _
= wdMasterView Then
ActiveWindow.ActivePane.View.Type = wdPageView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes.AddTextEffect(msoTextEffect1, &quot;COPY&quot;, _
&quot;Arial Black&quot;, 36#, msoFalse, msoFalse, 241.75, 118.9).Select
Selection.ShapeRange.IncrementLeft 10.25
Selection.ShapeRange.IncrementTop 197.9
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Transparency = 0.5
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 51#
Selection.ShapeRange.Width = 111.7
Selection.ShapeRange.Rotation = 315#
Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionPage
Selection.ShapeRange.Left = CentimetersToPoints(5.72)
Selection.ShapeRange.Top = CentimetersToPoints(15.17)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.WrapFormat.Type = wdWrapNone
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
wdDoc.ActiveWindow.View = wdPrintPreview

(where wddoc is document object).

cheers.