You'll have to change the date fields in the documents to createdate fields.
I just posted the following macro code in the menustoolbars newsgroup, which
changes the fields for the current document. If you want batch processing
you'll need to adapt the code provided on my web site and the mvp web site
to use this technique.
Sub FixDates()
'
' Replace Date fields with CreateDate fields
' Macro created 28/09/2004 by Graham Mayor
Dim FindText As String
Dim oStory As Range
Dim oField As Field
FindText = "^d DATE"
Application.ScreenUpdating = False
On Error GoTo oops
Documents.Add
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
Selection.TypeText Text:="CREATEDATE \@ ""dd/MM/yyyy"""
Selection.WholeStory
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Copy
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
ActiveWindow.View.ShowFieldCodes = True
'Replace found text with the clipboard contents.
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = FindText
.Replacement.Text = "^c"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute replace:=wdReplaceAll
ActiveWindow.View.ShowFieldCodes = False
For Each oStory In ActiveDocument.StoryRanges
For Each oField In oStory.Fields
oField.Update
Next oField
Next oStory
Application.ScreenUpdating = True
End
oops:
End Sub
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>