Originally Posted by
gmaxey
Well a bookmark that wraps a formfield is going to return that. So:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
MsgBox Replace(ActiveDocument.Bookmarks("Description").Range.Text, "FORMTEXT ", "")
MsgBox ActiveDocument.FormFields.Item("Description").Result
lbl_Exit:
Exit Sub
End Sub
Thanks.
After tinkering around I have it good enough for my requirements. So in the end, the UserForm1 code is as follows:
Option ExplicitPrivate Sub UserForm_Initialize()
txtA.Text = Replace(ActiveDocument.Bookmarks("Number").Range.Text, "FORMTEXT ", "")
txtA.Text = ActiveDocument.FormFields.Item("Number").Result
txtB.Text = Replace(ActiveDocument.Bookmarks("Year").Range.Text, "FORMTEXT ", "")
txtB.Text = ActiveDocument.FormFields.Item("Year").Result
txtC.Text = Replace(ActiveDocument.Bookmarks("Author").Range.Text, "FORMTEXT ", "")
txtC.Text = ActiveDocument.FormFields.Item("Author").Result
txtD.Text = Replace(ActiveDocument.Bookmarks("Description").Range.Text, "FORMTEXT ", "")
txtD.Text = ActiveDocument.FormFields.Item("Description").Result
lbl_Exit:
Exit Sub
End Sub
And the button code:
Private Sub CommandButton1_Click()Dim oFrm As UserForm1
Set oFrm = New UserForm1
oFrm.Show
Set oFrm = Nothing
UserForm1.PrintForm
lbl_Exit:
Exit Sub
End Sub