method or data member not found

[btmcfadden]

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

 

[Ken Snell [MVP]]

I think you are asking question about WORD macros... this is an ACCESS
newsgroup. I recommend that you post this question in a WORD group.

 

[btmcfadden]

Ah, yes, I guess it would be considered a word macro - however, I am
executing it in Access, so that's why I had it here. I will repost in word,
but if anyone has any suggestions with this new piece of information, I'd be
appreciative.

 

[Graham R Seach]

What you want is:
For Each oRvs In oDoc.Revisions

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia

Microsoft Access 2003 VBA Programmer's Reference
http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html