I do not know if Macropod response has fixed your problem but this works for me
Dim rs As Object, m_objWord As Object, m_objDoc As Object, wname As String, SQL As String, nameaddress As String, newname As String
Dim fromfile As String, tofile As String, formettedDate As String, count As Long
FormattedDate = Replace(Date, "/", "")
Set rs = CurrentDb.OpenRecordset("AddressLabelCurrent", dbOpenDynaset)
If Not rs.EOF Then
rs.MoveLast
rs.MoveFirst
End If
wname = "C:\Users\A C\Downloads\Word\ExportLetter.docx"
For count = 1 To rs.RecordCount
Set m_objWord = New Word.Application
Set m_objDoc = m_objWord.Documents.Add(wname)
m_objDoc.Bookmarks("FirstName").Select
m_objWord.Selection.Text = rs!FirstName
newname = "C:\Users\A C\Downloads\Word\" & rs![FirstName] & " = " & FormattedDate & ".DOC"
'Save Word doc
m_objDoc.SaveAs FileName:=newname
m_objDoc.Save
m_objDoc.Close
m_objWord.Quit
' clean up
Set m_objWord = New Word.Application ' not actually needed, it opens the new doc to ensure it is OK
m_objWord.Visible = True 'the same
Set m_objDoc = m_objWord.Documents.Add(newname) ' The same
MsgBox "this New Document has been saved as - " & newname ' The same
m_objDoc.Close ' The same
m_objWord.Quit ' The same
rs.MoveNext
Next count
'MsgBox "this New Document has been saved"
rs.Close
Set rs = Nothing
Set m_objWord = Nothing
Exit_Command1_Click:
Exit Sub
Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
You will of course have to change the Path & File names