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?
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?