Word 2000 bug with revisions in header

T

Tom Grant

Hello everybody,

I think I have found a bug. Can anyone else confirm or help with a work
around?

Here is how to reproduce the bug:

1). Make a document and turn on track chanes
2). Type "Hello" in the header.
3). Run the following code

Private Sub Test()
Dim rv As Revision
Dim rng As Range

Set rng = ActiveDocument.Range
MsgBox rng.Revisions.Count
For Each rv In rng.Revisions
MsgBox rv.Range.Text
Next rv
End Sub


This is what I get.

The first MsgBox tells me that there is one revision.

But the second MsgBox never shows. It is as if there wasn't a revision
available in the Revisions collection. What's going on here?
 
Top