Macros

[Lorrie Burns]

Hi,
This is my dilema. I need to open a lot of documents and delete anything
that is typed into the "Title" field of the properties. Any suggestions on
how I might accomplish this?

 

[Greg Maxey]

Lorrie,

Get my Batch File Macro at:

http://gregmaxey.mvps.org/Process_Batch_Folder.htm

change this part:

With oDoc
For Each oFld In .Fields
If UCase(Mid(oFld.Code.Text, 2, 4)) = "DATE" _
Or UCase(Mid(oFld.Code.Text, 2, 4)) = "TIME" Then
oFld.Code.Text = " CREATEDATE \@ ""MMMM d, yyyy"" "
End If
Next oFld
.Close SaveChanges:=wdSaveChanges
End With

to:

oDoc.BuiltInDocumentProperties("Title").Value = ""

Put all the files in a common directory and run the code.