Footnote Revisions refusing to go away even with code...

[Steve Moreno]

Sorry for cross-posting but I didn't know where else to post this and really
need the help so here goes...

I've got a VB6 app that creates Word docs utilizing mail-merge. When this
app is run on machines with Office 2000 or earlier, the docs print out fine
in "Final" view with all the revisions hidden. I use the following code to
do this:

WordApp.ActiveDocument.Revisions.AcceptAll ' WordApp is a
Word.Application Object

When this app runs on a machine with Office 2003, the docs print out with
all the revisions hidden except for the ones in the footer of the document.
I've burned two days already on this problem and am hoping to salvage today.

Does anyone know what's causing this and is there a workaround? Any help
would be appreciated.

Thanks In Advance,
Steve.

 

[EradicusMax]

Have you tried seeking the header/footer then caling the acceptall?

With WordApp.ActiveDocument.ActiveWindow.View
.Type = wdPrintView
.SeekView = wdSeekCurrentPageFooter
End With
WordApp.ActiveDocument.Revisions.AcceptAll
WordApp.ActiveDocument.ActiveWindow.View.SeekView = wdSeekMainDocument
With WordApp.ActiveDocument.Fields
.Update
.Locked = True
End With

hope the syntax is correct, an thought I sent this before, so if it come up
twice, sorry

 

[Steve Moreno]

Thank you for your quick response. I tried your method and the syntax was
correct but had no effect on the final outcome. On the machine with Office
2003, the document still saved and printed with the revisions on the footer
showing. Any other ideas? I really appreciate your effort.

Steve.

 

[EradicusMax]

Ok, what is contained in your footer? Do you have an Auto Page Numbering
field there?

 

[Steve Moreno]

It's just simple text. Two lines for signatures is all it is with the text
"initial here:" by each of them. There's no auto-anything in there. That's
what's driving me nuts because I can't figure out why the footer is not
obeying the AcceptAll method.

 

[Steve Moreno]

I got it to work finally by using the following code snipet in the printing
phase of this app:

With WordDocuments(intDocCount).ActiveWindow.View
.ShowRevisionsAndComments = False
.RevisionsView = wdRevisionsViewFinal
Word.Application.Documents.Open strFileName, , , , , , , , ,
, , True

Word.Application.ActiveDocument.ActiveWindow.View.ShowRevisionsAndComments =
False

Word.Application.ActiveDocument.ActiveWindow.View.RevisionsView =
wdRevisionsViewFinal
WordDocuments(intDocCount).PrintOut True
End With


It's ugly but it worked. Thanks for the effort.