Jó, ha ellenőrzi is az ember, kijönnek a hibák:
ertek = Mid(ertek, 1, (Len(ertek) - 2))
Akkor már a teljes
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") & "Documentsalkonyvtar"
'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
A normal.dot-ban legyen a helye.