To download the sample userform, right-click here, choose Save As from the pop-up menu, browse to a folder on your hard disk, and click Save.
To see it work, either double-click it from Explorer, or — if you've saved it to your User Templates folder — open Word, click File–›New, select it in the list you see there, and with the option button set to 'Document', click OK.
This file contains a pair of userform that assemble a will. One userform prompts for basic setup (plugging in the standard paragraphs) and the other can be called repeatedly by a button on the first form, to generate each bequest. So look at both. Both are fairly simple, and they're different from each other. The first is by far the more common type — a form called by an AutoNew macro so that it pops up immediately when you create a new document based on the template.
This sample is not as perfectly vanilla as it could be. For one thing, the "V" codes on the checkboxes on the main form won't mean anything to you. They're just codes that my client has come to associate with each standard paragraph, dating back many years, to a much more primitive version of this application that I built for him in WordPerfect.
Some of the code is commented; some is not. You should be able to limp along with the visible clues and some exploration.
Finally, the open blanks you may see in the finished text are there for a reason. The client has a simple macro to find and select the next blank, assigned to a keyboard shortcut. This makes it possible to jump through the actual document filling in text, rather than working entirely at the userform level, which is preferable in some instances. That macro (not part of this template) is very simple but incredibly useful, and is shown here:
Sub FindBlank
'
' Find next occurrence of 2 or more consecutive underscores
' Assigned to shortcut ALT+K
'
If Documents.Count = 0 Then Exit Sub
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.MatchWildcards = True
With Selection.Find
.Text = "_{2,}"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
.MatchWholeWord = False
.Execute
End With
Selection.Find.MatchWildcards = False
End Sub
If you need more help, post to the userforms newsgroup. Sorry, but I can't engage in free one-on-one consulting.