Add Track Changes to script

[Parisa]

Thanks for the updated script but how do I add the track changes feature to
the newest script?

Dim i As Long, Source as Document, Target as Document, Letter as Range
Set Source = ActiveDocument
For i = 1 to Source.Sections.Count
Set Letter = Source.Sections(i).Range
Letter.End=Letter.End-1
Set Target = Documents.Add
Target.Range=Letter
Target.SaveAs FileName:="Letter" & i
Target.Close
Next i

 

[Doug Robbins]

Dim i As Long, Source as Document, Target as Document, Letter as Range
Set Source = ActiveDocument
For i = 1 to Source.Sections.Count
Set Letter = Source.Sections(i).Range
Letter.End=Letter.End-1
Set Target = Documents.Add
With Target
.Range=Letter
.TrackRevisions = True
.PrintRevisions = True
.ShowRevisions = True
.SaveAs FileName:="Letter" & i
.Close
End With
Next i


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[Parisa]

I tried the script. It saved the file. It turned on track changes but all
the letters were blank. No mail merge data was in any of the saved letters.

 

[Doug Robbins]

What document was active on the screen when you ran the macro?

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP