I've got some simple Word VBA that worked fine in a couple of docs, but now it goes into BREAK mode on every iteration (with no errors). What gives? TIA
Sub RevisionsToTextFile()
On Error Resume Next
Dim Rev As Revision
Dim intFreeFile As Integer
Dim lngRevCount As Long, i As Long
intFreeFile = FreeFile
lngRevCount = ActiveDocument.Revisions.Count
Open "C:\Documents and Settings\robertsjeff\My Documents\revs8-9.txt" For Append As #intFreeFile
Print #intFreeFile, "Total Revisions: " & Str(lngRevCount)
For i = 1 To (lngRevCount - 1)
Print #intFreeFile, Str(ActiveDocument.Revisions(i).Index) & " " & ActiveDocument.Revisions(i).Range
Next
Close #intFreeFile
MsgBox "done"
Set Rev = Nothing
End Sub 'RevisionsToTextFile
Jeff Roberts
Insight Data Consulting
Access and SQL Server Development
Sub RevisionsToTextFile()
On Error Resume Next
Dim Rev As Revision
Dim intFreeFile As Integer
Dim lngRevCount As Long, i As Long
intFreeFile = FreeFile
lngRevCount = ActiveDocument.Revisions.Count
Open "C:\Documents and Settings\robertsjeff\My Documents\revs8-9.txt" For Append As #intFreeFile
Print #intFreeFile, "Total Revisions: " & Str(lngRevCount)
For i = 1 To (lngRevCount - 1)
Print #intFreeFile, Str(ActiveDocument.Revisions(i).Index) & " " & ActiveDocument.Revisions(i).Range
Next
Close #intFreeFile
MsgBox "done"
Set Rev = Nothing
End Sub 'RevisionsToTextFile
Jeff Roberts
Insight Data Consulting
Access and SQL Server Development