If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Add Track Changes to script
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 |
#2
|
|||
|
|||
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" wrote in message ... 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 |
#3
|
|||
|
|||
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" wrote: 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" wrote in message ... 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 |
#4
|
|||
|
|||
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 "Parisa" wrote in message ... 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" wrote: 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" wrote in message ... 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 |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Track Changes Won't Stay Off | Wyoh | General Discussion | 1 | April 13th, 2005 10:20 PM |
Fade sound track on last slide in series | Fred Worthington | Powerpoint | 1 | March 11th, 2005 09:22 AM |
Script Errors occur In Microsoft Outlook HELP. | Perotin | General Discussion | 0 | February 25th, 2005 06:33 AM |
Disable Track Changes problem | Melissa | General Discussion | 1 | October 7th, 2004 09:34 AM |
Weird things with track changes | pd | New Users | 4 | July 15th, 2004 03:05 AM |