Move VB command from Word to msAccess

This works great in my word normal.dot, but I need to execute it from
a msAccess module:

Sub ClickMacroButton()
Dim oFld As Field
For Each oFld In ActiveDo***ent.Fields
  If oFld.Type = wdFieldMacroButton Then oFld.DoClick
  oFld.Delete
Next
End Sub

I am a real beginner at VB, so please go easy on me!
Thanks.