objTempWord.Documents.Open strNewFileName, "", "", "", "", "", "", "", "", Format(strNewFileName, "DD/MMM/YYYY hh:nn:ss", "", vbUseSystem)

Cause the error " Type mismatch...."...