Hi Deb
Here’s the approach I would implement.

'########################################################################
'# Saved as: H:WoodyTrack Changes ProblemTrack Changes Problem       #
'# Approach.doc                                                         #
'#                                                                      #
'# Purpose:  Copy individual documents into new blank documents and     #
'# save the new document with the original file's filename.  Reference  #
'# Lounge Post: 596,285                                                 #
'#                                                                      #
'# #################################################################### #
'# Arguments: none                                                      #
'#                                                                      #
'# #################################################################### #
'# Entry Conditions:  Known path and filename parameters                #
'#                                                                      #
'# #################################################################### #
'# Exit Conditions:                                                     #
'#                                                                      #
'#  a.  Original files (FOIs), unaltered                                #
'#                                                                      #
'#  b.  New folder (Recovered Files), created in the same folder        #
'#      as the FOI                                                      #
'#                                                                      #
'#  c.  Recovered FOIs saved in the Recovered Files folders             #
'#                                                                      #
'# #################################################################### #
'# General approach:                                                    #
'#                                                                      #
'# During the operation of this macro there will be a Progress bar      #
'# indicating the percentage of files that have been processed.         #
'#                                                                      #
'#  a.  Initialization                                                  #
'#                                                                      #
'#     i.  Determine the top level folder                               #
'#                                                                      #
'#     ii. Determine the filename parameters                            #
'#                                                                      #
'#     iii. Build an array of the FOIs and their absolute paths         #
'#                                                                      #
'#  b.  Main Process                                                    #
'#                                                                      #
'#     i.  Call Initialization, then                                    #
'#                                                                      #
'#     ii. For each file in the array (they're all FOIs):               #
'#                                                                      #
'#        1.  If no appropriate Recovered Files folder exists;          #
'#            create it                                                 #
'#                                                                      #
'#        2.  Open the FOI                                              #
'#                                                                      #
'#        3.  Copy the complete document                                #
'#                                                                      #
'#        4.  Open a new blank document based on Normal                 #
'#                                                                      #
'#        5.  Paste the clipboard into the blank document               #
'#                                                                      #
'#        6.  Close the FOI                                             #
'#                                                                      #
'#        7.  Save the blank docment in the appropriate                 #
'#            Recovered Files folder with the same filename as          #
'#            the FOI                                                   #
'#                                                                      #
'# #################################################################### #
'# Tips and Gotchas:                                                    #
'#                                                                      #
'#                                                                      # 
'########################################################################

FYI: HansV referred to articles of Microsoft’s support & KB in Turn of track changes (2003)… which clarify that Word 2003 shows tracked changes automatically when opening a document (regardless whether you had them hidden before)… and what you can do about it.

Question: is there an advantage using copy-paste to get rid of all tracked changes rather than ‘accepting all changes’, when using automation?
E.g. to accept all changes in the current document, I would use something like:
Dim revLoop As Revision
Dim myRange As Range

Set myRange = Selection.Range
myRange.Wholestory
For Each revLoop In myRange.Revisions
revLoop.Accept
Next revLoop

Hasse

ps [indent]

(…) Someone has suggested to me that comments and annotations can re-appear – has anyone encountered this?

[/indent]Fwiw… yep… with tracked changes… during the upgrade process in our organisation. Previously no one cared about tracking changes. Untill suddenly, with Office 2003, these started to pop up out of the unexpected… In the long term, it might be an interesting enhancement to make you aware of this hidden info which others might be able to abuse. In situations where Office 97 users’ documents (to whom these changes are invisible by default) are processed and forwarded to upgraded users, it’s quite embarrassing though, certainly if you work with important documents and memoranda. (Because… who’s actually aware of the changes stored in the document? I guess close to no one…)
Btw… our (outsourced) IT helpdesk could only explain how to switch them off or accept all in the current document – but no more structured solution available for the several hundreds of documents we are processing. Printing to a pdf was no solution… as it just printed the visible tracked changes all along :-p. They said you can’t get rid of them (…) So not much help there… and I’m glad (again) to have the Lounge .
ps For those wanting to preserve changes with copy-paste, check this out: (Carry forward Track Changes (Word 97/2000/XP/2003)

There is a bug in Word VBA – if there are tracked changes within a table, the loop For Each … Next may get stuck within the table. So copy/paste (if done correctly) might be more dependable.

Thanks Hans… can you clarify what you mean with ‘if done correctly’? Is there some sample code you could refer to?
Hasse

I don’t have code examples, but I what I meant is explained in the thread you refer to: if Track Changes is on, all revisions are accepted during copy/paste, but if Track Changes is off, revisions are preserved.

You can turn Track Changes on (or off) in code using ActiveDocument.TrackRevisions = True (or False)

OK – got it – thanks & enjoy your weekend! – Hasse