Add Track Changes to script

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Parisa - 23 May 2005 16:25 GMT

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

Reply to this Message

Doug Robbins - 23 May 2005 19:29 GMT

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

Signature

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

> Thanks for the updated script but how do I add the track changes feature
> to
[quoted text clipped - 10 lines]
> Target.Close
> Next i

Reply to this Message

Parisa - 23 May 2005 20:59 GMT

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.

> Dim i As Long, Source as Document, Target as Document, Letter as Range
> Set Source = ActiveDocument
[quoted text clipped - 26 lines]
> > Target.Close
> > Next i

Reply to this Message

Doug Robbins - 24 May 2005 07:05 GMT

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

Signature

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

>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
[quoted text clipped - 31 lines]
>> > Target.Close
>> > Next i

Reply to this Message