This method prints all of the Word documents in the folder c:\worddocstoprint.
This code sample is posted here for the general benefit of the PDF development community. Attribution and usage guidelines are as noted in the code source; please respect the wishes of the author when using this code.
Option Explicit ' Force variable declaration
' Author : Planet PDF
' Date : 11 March 1998
' Description: PrintAllWordDocsInDir
' This vb method uses prints all the word docs
' in a folder.
' This method / function should be extended to suit the requirements
' of an organisation
Sub PrintAllWord()
Dim strFileName As String
Dim strPath As String
strPath = "c:\worddocstoprint"
' Get the first word doc in the directory
strFileName = Dir(strPath + "*.doc", vbNormal)
Do While strFileName <> ""
Documents.Open FileName:=strPath + strFileName
Documents(strFileName).PrintOut
Documents.Close
' Get the next word doc in the directory
strFileName = Dir
Loop
End Sub
OK, so you want to stamp your document. Maybe you need to give reviewers some advice about the document's status or sensitivity. This tip from author Ted Padova demonstrates how to add stamps with the Stamp Tool along with related comments.