'*********************** controllo se il file specifico esiste , se non esiste lo creo
If CBool(Len(Dir$("C:\2CA\SCHEDE PRODOTTI LAVORATI\SCHEDE TEMATICHE\" & ID_ELEMENTI & "_" & desParametro & ".docx"))) = False Then
Dim objFSO, strDoc, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
strDoc = "C:\2CA\SCHEDE PRODOTTI LAVORATI\SCHEDE TEMATICHE\" & ID_ELEMENTI & "_" & desParametro & ".docx"
Set objFile = objFSO.CreateTextFile(strDoc)
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
End If
'******************************** apro il file specifico
Dim word As Object
Dim doc As Object
Set word = CreateObject("Word.Application")
word.Visible = True
Set doc = word.Documents.Open("C:\2CA\SCHEDE PRODOTTI LAVORATI\SCHEDE TEMATICHE\" & ID_ELEMENTI & "_" & desParametro & ".docx")
ho risolto cosi, o almeno cosi funziona