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, _
PrintZoomPaperHeight:=0

MsgBox “Press Any Key to Exit.”

Application.Quit SaveChanges:=False

End Sub

VodaSys becomes a member of CompTIA

VodaSys becomes a member of CompTIA. The Computing Technology Industry Association (CompTIA) is the voice of the world’s information technology (IT) industry.  Its members are the companies at the forefront of innovation; and the professionals responsible for maximizing the benefits organizations receive from their investments in technology. CompTIA is dedicated to advancing industry growth through its educational programs, market research, networking events, professional certifications, and public policy advocacy.