Let’s say you have a Microsoft Word document and you want to write a Macro that will:<\/p>\n
Here is the Macro Code:<\/p>\n
Private Sub Document_Open()<\/span><\/p>\n Dim custpartno As String custpartno = InputBox(“Enter Customer Part Number:”) ourpartno = InputBox(“Enter Our Part Number:”) rev = InputBox(“Enter Revision:”) qty = InputBox(“Enter Quantity:”) ponumber = InputBox(“Enter Purchase Order:”) Application.PrintOut FileName:=””, Range:=wdPrintAllDocument, Item:= _ MsgBox “Press Any Key to Exit.”<\/p>\n Application.Quit SaveChanges:=False<\/p>\n End Sub<\/span><\/p>\n","protected":false},"excerpt":{"rendered":" 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 … <\/p>\n
\nDim ourpartno As String
\nDim rev As String
\nDim releaseqty As String
\nDim ponumber As String<\/p>\n
\nIf Len(custpartno) = 0 Then Exit Sub ‘ user canceled
\nActiveDocument.Bookmarks(“CustomerPartNumber”).Range.Text = custpartno<\/p>\n
\nIf Len(ourpartno) = 0 Then Exit Sub ‘ user canceled
\nActiveDocument.Bookmarks(“OurPartNumber”).Range.Text = ourpartno<\/p>\n
\nIf Len(rev) = 0 Then Exit Sub ‘ user canceled
\nActiveDocument.Bookmarks(“revision”).Range.Text = rev<\/p>\n
\nIf Len(qty) = 0 Then Exit Sub ‘ user canceled
\nActiveDocument.Bookmarks(“Quantity”).Range.Text = releaseqty<\/p>\n
\nIf Len(ponumber) = 0 Then Exit Sub ‘ user canceled
\nActiveDocument.Bookmarks(“PurchaseOrder”).Range.Text = ponumber<\/p>\n
\nwdPrintDocumentContent, Copies:=1, Pages:=””, PageType:=wdPrintAllPages, _
\nManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
\nFalse, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
\nPrintZoomPaperHeight:=0<\/p>\n