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