I have over 100 docs that have the Author under my old name. I have changed
my name and want to change all my docs to display my new name. Is there an
efficient
way of doing this?

See http://word.mvps.org/faqs/macrosvba/DSOFile.htm

--
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" wrote in message
...
I have over 100 docs that have the Author under my old name. I have
changed
my name and want to change all my docs to display my new name. Is there an
efficient
way of doing this?

Or you could use a bit of VBA to open each document and change the
Author. First place all of the files in a common directory. In this
example is used:

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

So I would create this file in notepad and give it a .bat extention?
Or how do I create this VBA file? Just a little over my head.
And what else to I have to change in this script besides "your new name"

"Greg" wrote:

Or you could use a bit of VBA to open each document and change the
Author. First place all of the files in a common directory. In this
example is used:

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

See:
http://www.gmayor.com/installing_macro.htm
for help using the macro.

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.