Bueno, encontre la solucion y se me habia olvidado colocarla pero aqui va.
le pasa a cualquiera jojojo
Dim documento As Word.Application
Set documento = CreateObject("Word.Application")
producto = "c:\sistema\Mercosur.doc"
producto = "\\servidor\sistema\Mercosur.doc"
documento.Documents.Open producto, , False
documento.Visible = True
documento.PrintOut False
, , , producto 'error, si quiero llevar a pdf no piedo colocar "c:\sistema\Mercosur.doc" asi que solo queda asi:
documento.PrintOut False
documento.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
documento.Documents.Close
documento.Quit
bueno, he encontrado la solucion asi que he espero que el codigo le sirva a alguien mas.
saludos
