Combinar correspondencia con 2003
Publicado por jes (14 intervenciones) el 04/04/2008 18:51:20
Hola.
Explico el escenario.
Realizo una base de datos que se combinaba con unos documentos de Word 2000, al evento de unos botones.
Al actualizar a 2003 no me combina, es decir siempre me aparace combinado el mismo registro.
El código es el siguiente:
Dim objWord As Word.Application
Set objWord = New Word.Application
If Dir("\servidor uta" & carpeta, vbDirectory) = "" Then
fs.CreateFolder "\servidor uta" & carpeta
objWord.Documents.Open ("\servidor utaejemplo.doc")
objWord.DDETerminateAll
objWord.ActiveDocument.SaveAs FileName:="\servidor uta" & carpeta & "" & "ejemplo.doc", FileFormat:=wdFormatRTF
objWord.Documents.Close (yes)
Como podría solucionarlo.
Saludos
Explico el escenario.
Realizo una base de datos que se combinaba con unos documentos de Word 2000, al evento de unos botones.
Al actualizar a 2003 no me combina, es decir siempre me aparace combinado el mismo registro.
El código es el siguiente:
Dim objWord As Word.Application
Set objWord = New Word.Application
If Dir("\servidor uta" & carpeta, vbDirectory) = "" Then
fs.CreateFolder "\servidor uta" & carpeta
objWord.Documents.Open ("\servidor utaejemplo.doc")
objWord.DDETerminateAll
objWord.ActiveDocument.SaveAs FileName:="\servidor uta" & carpeta & "" & "ejemplo.doc", FileFormat:=wdFormatRTF
objWord.Documents.Close (yes)
Como podría solucionarlo.
Saludos
Valora esta pregunta
0