Code Error - Hiding comments and revisions

[silvrwoman]

Hi. I was so close to obtaining my dream of printing multiple documents at once in Final View (without the tracked changes/mark-ups showing).



I used the following code:

Private Sub Document_Open()
With ActiveWindow.View
  .ShowRevisionsAndComments = False
  .RevisionsView = wdRevisionsViewFinal
End With
End Sub

But "Run-time error '91': Object variable or With block variable not set" keeps popping up and the "With ActiveWindow.View" line is highlighted.

I really just want to be able to use the method of selecting multiple files at once, right-clicking, and selecting "print" without the tracked-changes showing up.

Any Suggestons?

Thanks!