The code that follows is supposed to automatically push data to a Word template document, but I have been unable to get it to work after carefully following all the instructions. I keep getting an 5151 error. What does this mean? Has anyone successfully run this macro?

from http://www.vbaexpress.com/kb/getarticle.php?kb_id=381
Option Explicit 
 
Sub BCMerge()
Dim pappWord As Object 
Dim docWord As Object 
Dim wb As Excel.Workbook 
Dim xlName As Excel.Name 
Dim TodayDate As String 
Dim Path As String 
Set wb = ActiveWorkbook 
TodayDate = Format(Date, "mmmm d, yyyy") 
Path = wb.Path & "\pushmerge.dot" 
On Error Goto ErrorHandler 
'Create a new Word Session
Set pappWord = CreateObject("Word.Application") 
On Error Goto ErrorHandler 
'Open document in word
Set docWord = pappWord.Documents.Add(Path) 
'Loop through names in the activeworkbook
For Each xlName In wb.Names 
'if xlName's name is existing in document then put the value in place of the bookmark
If docWord.Bookmarks.Exists(xlName.Name) Then 
docWord.Bookmarks(xlName.Name).Range.Text = Range(xlName.Value) 
End If 
Next xlName 
'Activate word and display document
With pappWord 
.Visible = True 
.ActiveWindow.WindowState = 0 
.Activate 
End With 
'Release the Word object to save memory and exit macro
ErrorExit: 
Set pappWord = Nothing 
Exit Sub 
'Error Handling routine
ErrorHandler: 
If Err Then 
MsgBox "Error No: " & Err.Number & "; There is a problem" 
If Not pappWord Is Nothing Then 
pappWord.Quit False 
End If 
Resume ErrorExit 
End If 
End Sub