--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
"Cali Tech" <Cali...@discussions.microsoft.com> wrote in message
news:ABF3D447-5C50-4B76...@microsoft.com...
C:\Batch Folder
Public Sub BatchChangeProperty()
Dim myFile As String
Dim PathToUse As String
Dim myDoc As Document
PathToUse = "C:\Batch Folder\"
'Close all open documents before beginning
On Error Resume Next
Documents.Close SaveChanges:=wdPromptToSaveChanges
On Error GoTo 0
'Set the directory and type of file to batch process
myFile = Dir$(PathToUse & "*.doc")
While myFile <> ""
'Open document
Set myDoc = Documents.Open(PathToUse & myFile)
'Make the change
ActiveDocument.BuiltInDocumentProperties("Author").Value = "Your new
name"
'Close the modified document after saving changes
myDoc.Close SaveChanges:=wdSaveChanges
'Next file in folder
myFile = Dir$()
Wend
End Sub
You would need to change "C:\Batch Folder" to the directory where you
group of files is located or you could simply create a directory of
that name and move your files there to process. That is what I do.