Word 2000

  • Thread starter Thread starter I want my customers to check the option
  • Start date Start date
I

I want my customers to check the option

We have invoices we created in Word 2000. We want to place “PAID†over the
invoice. We looked up how to place a watermark but we want it to show all the
time not just when we print. Any suggestions?

Thanks

Michael
 
Use a background graphic.

--

JoAnn Paules
MVP Microsoft [Publisher]
Tech Editor for "Microsoft Publisher 2007 For Dummies"


"I want my customers to check the option" <Word
(e-mail address removed)> wrote in message
news:D[email protected]...
 
You could use a macro to add PAID to the document headers. Something along
the lines of the following attached to a toolbar button should work (though
I don't have access to Word 2000 to confirm) -
http://www.gmayor.com/installing_macro.htm

Sub AddPaid()
Dim oSection As Section
Dim oHeader As HeaderFooter
With ActiveDocument
For Each oSection In ActiveDocument.Sections
For Each oHeader In oSection.Headers
If oHeader.Exists Then
ActiveWindow.ActivePane.View.SeekView =
wdSeekCurrentPageHeader
With Selection
.HeaderFooter.Shapes.AddTextEffect(msoTextEffect2,
"PAID", "Arial", 96# _
, msoFalse, msoFalse, 186.35, 135.85).Select
With .ShapeRange
.TextEffect.NormalizedHeight = False
.Line.Visible = False
With .Fill
.Visible = True
.Solid
End With
.LockAspectRatio = True
.Height = CentimetersToPoints(6.88)
.Width = CentimetersToPoints(13.77)
With .WrapFormat
.AllowOverlap = True
.Side = wdWrapNone
.Type = 3
End With
.RelativeHorizontalPosition = _
wdRelativeVerticalPositionMargin
.RelativeVerticalPosition = _
wdRelativeVerticalPositionMargin
.Left = wdShapeCenter
.Top = wdShapeCenter
End With
End With
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End If
Next oHeader
Next oSection
End With
End Sub

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
Back
Top