I am getting this error message on the line below reading:"For each oRvs..."
with the word "revisions" highlighted.  WHY?  I have references set.  I have
included some of the surrounding code - please HELP!  THANKS!

           Set oDoc = oApp.Documents.Item(1)
               Dim strCurrDate As Date
               strCurrDate = Forms!Approval!txtDate
               oDoc.Variables("DateEdited").Value = strCurrDate
               oDoc.Variables("ApprovedBy").Value = sText
               oDoc.Fields.Update
               .Options.DefaultFilePath(wdDocumentsPath) = strSavDir
               'accepts deletions so they are not shown in approved doc
               Dim oRvs As Revision
               For Each oRvs In ActiveDocument.Revisions
                   If oRvs.type = wdRevisionDelete Then
                       oRvs.Accept
                   End If
               Next