Dim objwrd As New Word.Application
Dim doc As Word.Document
' Dim cc As Word.ContentControl
Set objwrd = CreateObject("Word.Application")
objwrd.Visible = True
Set doc = objwrd.Documents.Open(FileName:="C:\Users\db1\Documents\Test.docm", Visible:=True)
' MsgBox doc.ContentControls.Count
' For Each cc In doc.ContentControls
' MsgBox cc.ID
' Next cc
Dim frm As MSForms.UserForm
Set frm = objwrd.VBE.ActiveVBProject.VBComponents.Item(3)
frm.Show
Dim objwrd As New Word.Application
Dim doc As Word.Document
Dim frm As MSForms.UserForm
Set objwrd = CreateObject("Word.Application")
objwrd.Visible = True
Set doc = objwrd.Documents.Open(FileName:="C:\Users\db1\Documents\Test.docm", Visible:=True)
Set frm = doc.VBProject.VBComponents.Item(2)
frm.Show
Interesting approach...if it works for you...then is perfectly fine...
I think that you are looking for the ContentControls although i have never had experience with Forms on Word.
Wouldn't be easier to create a Form on Access and just pass the data to Word?