border
VB 6
 
 
/
  #1 (permalink)  
Antiguo 12-04-2008, 10:06:47
Nuevo Amigo
 
Registrado: mar 2006
Posts: 5
Créditos: 315
samuel86 Valoración +2
Predeterminado Combinar correspondencia

Hola a todos y muchas gracias por leer este post.

Mi problema es el siguiente:

Desde una aplicación Visul Basic 6.0, combino correspondencia en una plantilla.
El código que utilizo es el siguiente:
'===============================================
Dim appWord As Word.Application
Dim docWord As Word.Document

Set appWord = CreateObject("Word.Application")
Set docWord = appWord.Documents.Open(strRutaArchivo)

docWord.MailMerge.MainDocumentType = wdFormLetters
docWord.MailMerge.OpenDataSource Name:=App.Path & "\temp\Plantillas.mdb"

With docWord
.MailMerge.Destination = wdSendToNewDocument
.MailMerge.Execute False
End With

appWord.ActiveDocument.SaveAs ...
docWord.Close False

Set appWord = Nothing
Set docWord = Nothing
'===============================================
Este proceso no me da ningún problema si utilizo Office 2003, si lanzo el proceso en un equipo que posea un Office 2000 el programa me lanza el error: "Word no pudo abrir el origen de datos"
El error se produce en la instruncción "docWord.MailMerge.OpenDataSource".
Cuando se ejecuta esta instrucción el programa abre la base de datos y posteriormente emite el mencionado error.
El origen de datos que utilizo es una base de datos Access 2000.

Espero que puedan ayudarme.

Muchas gracias.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 14-04-2008, 06:19:22
Avatar de Alella
Super Moderator
 
Registrado: mar 2004
Ubicación: BARCELONA - ESPAÑA
Posts: 1.494
Créditos: 30.527
Alella Valoración +2
Predeterminado Re: Combinar correspondencia

Hola, que tal.

Te paso un proyecto que tenía guardado. Espero que te ayude.

Ya nos contarás.
Archivos Adjuntos
Tipo de Archivo: zip 200529393984_word basic (version office XP y 2000).zip (14,5 KB, 239 visitas)
__________________
Un saludo.

Alfredo
Barcelona-España
_________________
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Normas del Foro
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 14-04-2008, 14:35:34
Nuevo Amigo
 
Registrado: mar 2006
Posts: 5
Créditos: 315
samuel86 Valoración +2
Predeterminado Re: Combinar correspondencia

Hola de nuevo a todos.

El proyecto de ejemplo es verdadreramente bueno, estoy seguro que me será de utilidad en futuras aplicaciones, pero en el caso de la aplicación que estoy desarrollando no es una solución viable, de todos modos muchisimas gracias.

Os explico la solución que he tomado:

El sistema de Combinar correspondencia por código (sobre todo lo relacionado con la propiedad MailMerge) vb 6.0, presenta muchos problemas a la hora de incompatibilidades con las distintas versiones de Office que pueda terer el usuario instalada en el euipo. Por lo tanto he optado por realizar lo siguiente:

En lugar de vincular la plantilla (documento maestro) directamente a la base de datos Access, la vinculo a un documento Word de tipo RTF cumplimentado con los datos obtenidos de la base Access.

Función para crear un fichero RTF con origen de datos Access:
'================================================= =====
Public Sub CreaRTF(ByVal Ruta As String, ByVal Fichero As String, ByVal var As Integer)
Dim appAcc As Access.Application

Set appAcc = New Access.Application
appAcc.Visible = False

appAcc.OpenCurrentDatabase App.Path & " empFicheroAccess.mdb"

appAcc.DoCmd.OutputTo acOutputTable, "TABLA", acFormatRTF, App.Path & " empFichero.rtf", False

'Combinamos documento (*)
End Sub
'================================================= ======

(*): En la función que agregué en el primer post, he cambiado la instrución "OpenDataSource". El resultado final sería el siguiente:

'================================================= ======
docWord.MailMerge.OpenDataSource App.Path & " empFichero.rtf"
'================================================= ======
Simplemente cambiamos el origen de los datos al nuevo fichero RTF.

Muchas gracias.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #4 (permalink)  
Antiguo 09-06-2009, 22:44:36
Gran Participación en el Foro
 
Registrado: abr 2008
Posts: 195
Créditos: 3.792
KADOSH Aun no valorado
Predeterminado Re: Combinar correspondencia

hola, estaba mirando el hilo y quice ver el adjunto, me lo descarga pero no reconoce el formato la pc, que formato tiene ? por que puede ser que no lo vea ?

Cita:
Empezado por Alella Ver Mensaje
Hola, que tal.

Te paso un proyecto que tenía guardado. Espero que te ayude.

Ya nos contarás.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #5 (permalink)  
Antiguo 11-06-2009, 07:36:23
Avatar de Alella
Super Moderator
 
Registrado: mar 2004
Ubicación: BARCELONA - ESPAÑA
Posts: 1.494
Créditos: 30.527
Alella Valoración +2
Predeterminado Re: Combinar correspondencia

Hola, que tal.

Creo que es un problema del WinRar. A mí cuando me pasa esto lo abro con 7ZIP y funciona correctamente.

Ya nos contarás.
__________________
Un saludo.

Alfredo
Barcelona-España
_________________
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Normas del Foro
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #6 (permalink)  
Antiguo 12-06-2009, 13:12:48
Gran Participación en el Foro
 
Registrado: abr 2008
Posts: 195
Créditos: 3.792
KADOSH Aun no valorado
Predeterminado Re: Combinar correspondencia

Hola, como estas.
che , y como lo ves, por que probe con winzip 7 , 8 , 8.1 , winrar, 7zip, y nada, pero no es la primera vez, me ha pasado con varios archivos de este foro, no se si las versiones de zip mias son viejas, o se corrompe al bajar
un saludo

Cita:
Empezado por Alella Ver Mensaje
Hola, que tal.

Creo que es un problema del WinRar. A mí cuando me pasa esto lo abro con 7ZIP y funciona correctamente.

Ya nos contarás.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #7 (permalink)  
Antiguo 12-06-2009, 14:20:38
Avatar de Alella
Super Moderator
 
Registrado: mar 2004
Ubicación: BARCELONA - ESPAÑA
Posts: 1.494
Créditos: 30.527
Alella Valoración +2
Predeterminado Re: Combinar correspondencia

Hola, que tal.

Yo tengo la versión 4.57 del 7.zip y he podido abrir el fichero.

Ya nos contarás.
__________________
Un saludo.

Alfredo
Barcelona-España
_________________
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Normas del Foro
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado



La franja horaria es GMT. Ahora son las 00:32:26.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios


right
Inactive Reminders By Icora Web Design