We don't appear to be using either of these. To be honest, we know very little about Word. We opened word and recorded the macro to get the vba to add a watermark and we copied this code over to an access module. Like I said earlier, when we added the watermark in Word it was on every page. But when we try to open the document from Access and add the watermark through the module, the first page does not have it. Thanks for your help.
Code:
Set doc = appWord.Parent.Documents.Open(NewDoc, , False, False)
Set doc = appWord.ActiveDocument
appWord.ActiveDocument.Sections(1).Range.Select
doc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
doc.ActiveWindow.Selection.HeaderFooter.Shapes.AddTextEffect( _
PowerPlusWaterMarkObject325783140, FileType, "Arial Narrow", _
38, False, False, 0, 0).Select
doc.ActiveWindow.Selection.ShapeRange.Name = "PowerPlusWaterMarkObject71909250"
doc.ActiveWindow.Selection.ShapeRange.TextEffect.NormalizedHeight = False
doc.ActiveWindow.Selection.ShapeRange.Line.Visible = False
doc.ActiveWindow.Selection.ShapeRange.Fill.Visible = True
doc.ActiveWindow.Selection.ShapeRange.Fill.Solid
doc.ActiveWindow.Selection.ShapeRange.Fill.ForeColor.RGB = RGB(192, 192, 192)
doc.ActiveWindow.Selection.ShapeRange.Fill.Transparency = 0.5
doc.ActiveWindow.Selection.ShapeRange.Rotation = 315
doc.ActiveWindow.Selection.ShapeRange.LockAspectRatio = True
doc.ActiveWindow.Selection.ShapeRange.Height = InchesToPoints(3.29)
doc.ActiveWindow.Selection.ShapeRange.Width = InchesToPoints(6.85)
doc.ActiveWindow.Selection.ShapeRange.WrapFormat.AllowOverlap = True
doc.ActiveWindow.Selection.ShapeRange.WrapFormat.Side = wdWrapNone
doc.ActiveWindow.Selection.ShapeRange.Left = appWord.InchesToPoints(-0.5)
doc.ActiveWindow.Selection.ShapeRange.WrapFormat.Type = 3
doc.ActiveWindow.Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeVerticalPositionMargin
doc.ActiveWindow.Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionMargin
doc.ActiveWindow.Selection.ShapeRange.Top = InchesToPoints(3)
doc.ActiveWindow.Selection.FormattedText.ShowAll = False
doc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
doc.ActiveWindow.Document.ActiveWindow.View = wdPrintView
doc.ActiveWindow.View.ShowMarkupAreaHighlight = False
doc.ActiveWindow.View.ShowComments = False
doc.ActiveWindow.Document.FormattingShowClear = True
doc.ActiveWindow.View.ShowRevisionsAndComments = False
'Save Document as PDF
doc.ActiveWindow.ActivePane.Application.ActiveDocument.SaveAs FileName:=NewFName, _
FileFormat:=wdFormatPDF
'Close application and document
doc.Application.ActiveDocument.Close False
appWord.Application.Quit
Set appWord = Nothing
Set doc = Nothing
05-25-2012, 05:41 AM
Similar Threads
Background/watermark won't go away
Windows XP 
Office 2007
Hybrid Mode