Results 1 to 9 of 9
  1. #1
    New Lounger
    Join Date
    Feb 2004
    Location
    Hereford, Herefordshire, England
    Posts
    18
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Watermark problems (2000 SP3)

    Edited by HansV to provide link to MSKB article

    We use an application which creates documents in RTF format, which we then convert to PDF using Adobe Elements. Very often I have to watermark these documents DRAFT before creating the PDF.
    Looking at earlier threads lead to to <!mskb=211324>Microsoft Knowledge Base Article 211324<!/mskb>, but the procedure there does not work on the type of documents created - I suspect this is because the headers and footers on each page are different, so Same as Previous is switched off.
    Currently I get around this by pasting the WordArt object to every single page and then positioning it - is there a better and more efficient way of doing this?

    Thanks

    Chris

  2. #2
    Plutonium Lounger
    Join Date
    Nov 2001
    Posts
    10,550
    Thanks
    0
    Thanked 7 Times in 7 Posts

    Re: Watermark problems (2000 SP3)

    The only method I know for putting content on every page of a Word document is to place it in a Header or Footer.

    Why do you have different headers and footers on every document? Could you move the material from header or footer into the main document so that you can use it for its intended purpose?

    StuartR

  3. #3
    New Lounger
    Join Date
    Feb 2004
    Location
    Hereford, Herefordshire, England
    Posts
    18
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Watermark problems (2000 SP3)

    Thanks Stuart.

    The headers and footers are all different because thats how the application (its an accounts production application) creates the documents in RTF. Unfortunately, its not a setting I can change.

    Is it possible to use VBA to insert a piece of WordArt or a graphic into the header of every page of a document - or is that just too complicated?

    Chris

  4. #4
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Watermark problems (2000 SP3)

    The following macro will add "CONCEPT" as a watermark to all sections. It works in Word 2002, I don't know if it'll work in Word 2000.

    Sub AddWatermark()
    Dim i As Integer
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
    ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or _
    ActiveWindow.ActivePane.View.Type = wdOutlineView Then
    ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    For i = 1 To ActiveDocument.Sections.Count
    With ActiveDocument.Sections(i).Headers(wdHeaderFooterP rimary)
    .Range.Select
    With .Shapes.AddTextEffect(msoTextEffect1, _
    "CONCEPT", "Times New Roman", 1, False, False, 0, 0)
    .TextEffect.NormalizedHeight = False
    .Line.Visible = False
    .Fill.Visible = True
    .Fill.Solid
    .Fill.ForeColor.RGB = RGB(192, 192, 192)
    .Fill.Transparency = 0.5
    .Rotation = 315
    .LockAspectRatio = True
    .Height = InchesToPoints(2)
    .Width = InchesToPoints(7)
    .WrapFormat.AllowOverlap = True
    .WrapFormat.Side = wdWrapNone
    .WrapFormat.Type = 3
    .RelativeHorizontalPosition = wdRelativeVerticalPositionMargin
    .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
    .Left = wdShapeCenter
    .Top = wdShapeCenter
    End With
    End With
    Next i
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    End Sub

  5. #5
    New Lounger
    Join Date
    Feb 2004
    Location
    Hereford, Herefordshire, England
    Posts
    18
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Watermark problems (2000 SP3)

    Thanks Hans

    That is nothing short of fantastic! It works fine in Word 2000 and you have no idea how much time that is going to save.

    Could it be adapted to do something similar in Excel 2000 - or am I pushing my luck now?

    Thank you very much indeed for your help

    Chris

  6. #6
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Watermark problems (2000 SP3)

    What exactly would you want in Excel - it doesn't have printed watermarks as in Word.

  7. #7
    New Lounger
    Join Date
    Feb 2004
    Location
    Hereford, Herefordshire, England
    Posts
    18
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Watermark problems (2000 SP3)

    Hans,

    Sorry - I didn't express myself clearly. What I was looking for was the same effect as a watermark but in Excel (and for the same reasons - we want to convert spreadsheets to PDF)

    I should really repost this as a seperate query, but I got carried away when I saw what your macro did and didn't think through!

    Regards

    Chris

  8. #8
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Watermark problems (2000 SP3)

    I don't know how to do that - any graphics you place on a worksheet sit on top of the cells, not below them. You could post a new question in the Excel forum, but don't hold your breath.

  9. #9
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Watermark problems (2000 SP3)

    From the early days, Word has offered a {PRINT} field which you could use to send PostScript-language instructions directly to a PostScript printer. This was one of the original ways you could put the word DRAFT in large letters diagonally on every page. Excel might not have anything like that, but it's the only other thing I could think of. <img src=/S/grin.gif border=0 alt=grin width=15 height=15> That and various commercial software that "stamps" a watermark or other text onto your PDF during or after creation.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •