Having a field update sequentially from Excel when printing.

[limdul9992]

Hi Everyone,

So my question is can I have a word document that has a work order number in the header look for that work order number in Excel and then grab the serial number in Excel and import it to the serial number field in word? Then I would also like it to print x amount of copies and have the serial number go up by one for each paper that is printed? So for example I would print 25 sheets with work order WO-0500 in the upper right. I would like it to pull the first serial number from Excel that has the WO-0500 and print 25 copies with each copy changing the serial number up by one.

[gmaxey]

There are lots of examples for pulling data from Excel available from a Google search. As for printing sequentially numbered copies, you could adapt the following to use your Excel value as the starting number:

  Sub PrintNumberedCopies()
  Dim NumCopies As String
  Dim StartNum As String
  Dim Counter As Long
  Dim oRng As Range
    If MsgBox("The copy number will appear at the insertion point." _
            & " Is the cursor at the correct position?", _
             vbYesNo, "Placement") = vbNo Then End
    If ActiveDocument.Saved = False Then
      If MsgBox("Do you want to save any changes before" & _
                " printing?", vbYesNoCancel, "Save document?") = vbYes Then
        ActiveDocument.Save
      End If
    End If
    StartNum = Val(InputBox("Enter the starting number.", "Starting Number", 1))
    NumCopies = Val(InputBox("Enter the number of copies that" & _
                             " you want to print", "Copies", 1))
    ActiveDocument.Bookmarks.Add Name:="CopyNum", Range:=Selection.Range
    Set oRng = ActiveDocument.Bookmarks("CopyNum").Range
    Counter = 0
    If MsgBox("Are you sure that you want to print " _
              & NumCopies & " numbered " & " copies of this document", _
              vbYesNoCancel, "On your mark, get set ...?") = vbYes Then
      While Counter < NumCopies
        oRng.Delete
        oRng.Text = StartNum
        ActiveDocument.PrintOut
        StartNum = StartNum + 1
        Counter = Counter + 1
      Wend
    End If
  lbl_Exit:
    Exit Sub
  End Sub