Replace the VBA code with the Qm code error

[kyjdp]

I used the QM code to delete the form and an error occurred :oops:

VBA：
Sub deletetable()
For Each v In ActiveDocument.Tables
v.Delete
Next
MsgBox "ok"
End Sub

QM：
Macro Macro1
Trigger SF9     

Code:

Copy      Help

;/exe 1

typelib Word {00020905-0000-0000-C000-000000000046} 8.0
Word.Application app._getactive
Word.Document doc=app.ActiveDocument
VARIANT v
foreach v doc.Tables
,v.Delete

;BEGIN PROJECT
;main_function  Macro1
;exe_file  $my qm$\Macro1.qmm
;flags  6
;guid  {3DA97B40-4C34-45B9-B34D-CAC175C705BC}
;END PROJECT