VBA Tracked Changes HELP

**amardeep20** · 03-14-2013, 01:58 AM

Hi guys,

I need your help here...

i'm trying to create a VBA code to pull trakced changes from a document and display it in a newly created document.

Does anyone know how i need to change this code so that it also picks up the insertions and deletions form header and footer of the document.

the below code will extract only the insertions and deletions of main body but i've tried a few edits and nothing seems to work

Thanks guys

------code-----

Please Login or Register  to view this content.

------------------

**macropod** · 03-14-2013, 05:12 AM

A fairly simple approach is to delete everything that isn't a revision from the activedocument, then save it to a new document:

Please Login or Register  to view this content.

Note: the above code doesn't actually do the save part.

**amardeep20** · 03-14-2013, 02:06 PM

Many thanks for your help, however the above code dose not work its shows a compile error in 'For statement'

i need a code that will extract footer, in my below code it was mention how to edit the code for footer reference but i am unable to make it ..

------code--------

For Each oRevision In oDoc.Revisions
Select Case oRevision.Type
'Only include insertions and deletions
Case wdRevisionInsert, wdRevisionDelete
'In case of footnote/endnote references (appear as Chr(2)),
'insert "[footnote reference]"/"[endnote reference]"
With oRevision
'Get the changed text
strText = .Range.Text

Set oRange = .Range
Do While InStr(1, oRange.Text, Chr(2)) > 0
'Find each Chr(2) in strText and replace by appropriate text
i = InStr(1, strText, Chr(2))

--------------

**macropod** · 03-14-2013, 04:45 PM

Your initial post Asked:

Does anyone know how i need to change this code so that it also picks up the insertions and deletions form header and footer of the document.

The code I posted works fine for that.

You latest post still refers to footers when, in fact, the issue is with footnotes and endnotes. It would be helpful if you were rather more precise about the terminology you use. Asking for help with one problem, then complaining the help provided doesn't work for something you didn't ask for help with isn't going to win you any friends.

Footnote and endnote extraction poses quite a different problem, especially when it comes to how you might extract their tracked change content when their references are not themselves part of a tracked change (eg only a few words in a footnote have been changed, but the text to which the reference is attached hasn't been changed). If you can clarify your expectations in that regard, progress might be made.

**amardeep20** · 03-14-2013, 05:00 PM

sorry for the confusion..... but i need the code that will also extract the track changes form the header and footer. i.e. any insertion or deletion in the header and footer.

the above code will extract track changes only form the main body of the document.....

**macropod** · 03-14-2013, 10:01 PM

Have you actually tried the code I posted - as I posted it?

**amardeep20** · 03-15-2013, 01:30 AM

yes, i have tried but it shows the compile error. I have followed the below steps...

1 - copied the above code and pasted it in MS word >> VBA >> New Module .... and then try to run the code.

let me know if i have missed anything...

**amardeep20** · 03-15-2013, 01:47 AM

i tried to fix the problem with your code, if i mark one of the FOR LOOP statement as comment then the code works fine... however this code will delete everything that isn't a revision from the 'activedocument... but i need a code that will extract all the revisions from header and footer to a new document.

see below code... i have marked comment one of the for loop [line number - 16]...

Please Login or Register  to view this content.

**macropod** · 03-15-2013, 01:53 AM

Somehow a 'Next' went missing before 'For Each HdFt In Sctn.Footers'. Fix that and the code should work just fine.

Cross-posted at: http://www.vbaexpress.com/forum/showthread.php?t=45648
For cross-posting etiquette, please read FORUM RULE 8: http://www.excelforum.com/forum-rule...rum-rules.html