UserForms in Word Macros and VBA

We had earlier seen an example Macro for inserting date and time. We will use the same example but replace MsgBox with UserForms. The users will be displayed the following form and based on the user input the date and time will be inserted in the document.


Step 1: Insert a UserForm by right clicking the Project Navigator, Click Insert then UserForm.


The following UserForm along with the controls for designing form will be shown.


Step 2: Now drag and drop the required controls on to the form. This form will be presented to the user asking their choice on the date and time and the alignment.


The form contains two frames for grouping Date and Time and Alignment choices. The corresponding option controls for Date and Time and Alignment. Then OK button to apply the changes and Cancel button to close the form without applying the user choice.

Step 3: Make sure to change the caption for the controls and provide the Value as True for Date and Time and Right. This is to ensure than both the choices have default values. You can set these values using the properties window.


Step 4: Add the code for the action that should occur on clicking the OK and Cancel button. Double click on the Command button to add the code for respective command controls.

Code for OK Button

Private Sub CommandButton1_Click()

'Create a new document

Documents.Add DocumentType:=wdNewBlankDocument

'Insert date or date and time depending upon the user input.

If OptionButton1.Value = True Then

Selection.InsertDateTime DateTimeFormat:="dddd, MMMM d, y", InsertAsField _



Selection.InsertDateTime DateTimeFormat:="M/d/yy h:mm:ss am/pm", _


End If

'Align date based on user's choice

If OptionButton3.Value = True Then

Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft

ElseIf OptionButton4.Value = True Then

Selection.ParagraphFormat.Alignment = wdAlignParagraphRight


Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

End If

'Revert the alignment to left.


Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft

‘Hide the form.


End Sub

Code for Cancel Button

Private Sub CommandButton2_Click()


End Sub

Now trying running the form to see the UserForm in action.
Note :- Some improvements can be done to the above example like providing proper name to OptionButtons and CommandButtons.


Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.