Azok a fránya \ jelek! Megpróbálom ismét

Sub mentes_maskent()

ertek1 = ActiveDocument.Tables(2).Cell(3, 1).Range.Text
ertek1 = Mid(ertek1, 1, (Len(ertek1) - 2))

ertek2 = ActiveDocument.Tables(2).Cell(1, 3).Range.Text
ertek2 = Mid(ertek2, 1, (Len(ertek2) - 2))

ertek3 = ActiveDocument.Tables(1).Cell(1, 3).Range.Text
ertek3 = Mid(ertek3, 1, (Len(ertek3) - 2))

fajlnev = ertek1 & "_" & ertek2 & "_" & ertek3 & ".docx"
path = Environ("USERPROFILE") & "\Documents\"

'lehet alkönyvtárat is megadni
'path = Environ("USERPROFILE") & "\Documents\alkonyvtar\"
'az alkonyvtarnak léteznie kell, különben az utolsó aktív könyvtár lesz az érték

With Dialogs(wdDialogFileSaveAs)
    .Name = path & fajlnev
    .Format = Word.WdSaveFormat.wdFormatXMLDocument
    .Show
End With


End Sub