![]() |
#1
|
|||
|
|||
![]() I have about a hundred word documents that I need to watermark with the word "OBSOLETE". Is there some way I can do this to all the documents at once rather than opening each one separately and adding the watermark? |
#2
|
|||
|
|||
![]()
No, you can not do this to all of them "at once". You WILL have to open each one separately. There is no other way to action each document.
That being said, you CAN use VBA to action each document unattended. Use the DIR function. Here is how. Note all the documents must be in the given folder the DIR is pointing to. - in the example below this is C:Yadda\Blah. First write, or record, the code to insert the watermark. Name it something like AddWatermark. Then use something like this. Code:
Sub BunchOfWatermarks() Dim MyFile Dim myPath As String myPath = "C:Yadda\Blah\" MyFile = Dir(myPath & "*.doc") Do While MyFile <> "" Documents.Open MyFile Call AddWatermark ActiveDocument.Save ActiveDocument.Close MyFile = Dir() Loop End Sub All files in the C:Yadda\Blah folder will be opened, the code for AddWatermark executed (thus inserting the watermak), saved and closed, and then the next file processed. |
![]() |
Tags |
macro, watermark, word 2003 |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
mslearner | Word | 18 | 06-12-2019 04:00 AM |
![]() |
bobmard | Word | 8 | 08-24-2011 08:51 AM |
![]() |
frankdh | Word | 2 | 11-02-2010 10:59 AM |
Printing multiple page worksheet with watermark | zany | Excel | 2 | 11-27-2009 01:33 AM |
Amend footer in multiple word docs? | compact | Word | 2 | 02-24-2009 09:40 AM |