Microsoft Word Macro with User Prompts to Fill in Bookmarks

Let’s say you have a Microsoft Word document and you want to write a Macro that will:

  • Start upon opening
  • Prompt the user for input
  • Put the inputted data in specific places on your document
  • Print the document.

Here is the Macro Code:

Private Sub Document_Open()

Dim custpartno As String
Dim ourpartno As String
Dim rev As String
Dim releaseqty As String
Dim ponumber As String

custpartno = InputBox(“Enter Customer Part Number:”)
If Len(custpartno) = 0 Then Exit Sub ‘ user canceled
ActiveDocument.Bookmarks(“CustomerPartNumber”).Range.Text = custpartno

ourpartno = InputBox(“Enter Our Part Number:”)
If Len(ourpartno) = 0 Then Exit Sub ‘ user canceled
ActiveDocument.Bookmarks(“OurPartNumber”).Range.Text = ourpartno

rev = InputBox(“Enter Revision:”)
If Len(rev) = 0 Then Exit Sub ‘ user canceled
ActiveDocument.Bookmarks(“revision”).Range.Text = rev

qty = InputBox(“Enter Quantity:”)
If Len(qty) = 0 Then Exit Sub ‘ user canceled
ActiveDocument.Bookmarks(“Quantity”).Range.Text = releaseqty

ponumber = InputBox(“Enter Purchase Order:”)
If Len(ponumber) = 0 Then Exit Sub ‘ user canceled
ActiveDocument.Bookmarks(“PurchaseOrder”).Range.Text = ponumber

Application.PrintOut FileName:=””, Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:=””, PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _

MsgBox “Press Any Key to Exit.”

Application.Quit SaveChanges:=False

End Sub

Leave a Reply