Perhaps the following, though together with your other macro it should give you enough information to modify it to your needs.
Code:
Option Explicit
Sub Macro1()
Const strpath As String = "C:\Path\"
Const BAAR As String = "BAAR"
Const MARCA As String = "marca"
Dim strName As String
Dim strMessage As String
Dim fso As Object
Dim oDoc As Document
strMessage = "Raport de verif pt. dosar " & BAAR & vbCr & _
"In atentia d-lui " & strName & "," & vbCr & _
"Urmare a verificarii dosarului " & BAAR & " auto pagubit marca " & MARCA & _
"va transmitem atasat raportul de verificare." & vbCr & _
"Rog confirmati primirea." & vbCr & _
"Cu stima," & vbCr & vbCr & _
"Mihai STAICU"
Set fso = CreateObject("Scripting.FileSystemObject")
Select Case True
Case fso.FileExists(strpath & "Mail AU.docx")
Set oDoc = Documents.Add(Template:=strpath & "Mail AU.docx")
strName = "Adrian Uta"
oDoc.Range.Text = strMessage
oDoc.SaveAs2 FileName:=strpath & "AU.docx", addtorecentfiles:=False
Case fso.FileExists(strpath & "Mail EN.docx")
Set oDoc = Documents.Add(Template:=strpath & "Mail EN.docx")
strName = "Emilia Negoita"
oDoc.Range.Text = strMessage
oDoc.SaveAs2 FileName:=strpath & "EN.docx", addtorecentfiles:=False
End Select
lbl_Exit:
Set fso = Nothing
Set oDoc = Nothing
Exit Sub
End Sub