Abrir Word 2007 desde Visual Basic

28/09/2009 - 22:31 por Jjhdez | Informe spam
Buenas tardes

Tengo una aplicación en Visual Basic 6.0 desde la cual puedo abrir archivos
WORD y completar datos segun los necesito.

Todo lo anterior me funciona con Word 2003 o versiones menores, pero tengo
problemas con Word 2007.

Alguien tiene un ejemplo de como poder hacer..??
Gracias

Preguntas similare

Leer las respuestas

#1 Monica May
28/09/2009 - 23:17 | Informe spam
hola,

una aplicacion en Visual Basic 6.0 desde la
cual puedo abrir archivos
WORD y completar datos segun los necesito.
Todo lo anterior me funciona con Word 2003
o versiones menores, pero tengo
problemas con Word 2007.




- Que tal si nos pones el codigo que utilizas ?

de esta forma podemos ver donde tienes el error y ver si es por culpa
del codigo o de otras variables externas al codigo !

Comentanos...!

Saludos
Monica

www.fermu.com
www.teladearana.es
Respuesta Responder a este mensaje
#2 Jjhdez
28/09/2009 - 23:36 | Informe spam
Gracias Monica

Este es el codigo


Dim wordObj As Object
Template$ = "nombreplantilla.dot"
On Error Resume Next
Set wordObj = Nothing
Set wordObj = CreateObject("Word.Application")
On Error GoTo ErrImpDoc
ChDir PATHINI$
wordObj.Visible = True
wordObj.ChangeFileOpenDirectory PATHINI$
wordObj.Documents.Add Template$
wordObj.Activate



"Monica May" wrote:

hola,

> una aplicacion en Visual Basic 6.0 desde la
>cual puedo abrir archivos
> WORD y completar datos segun los necesito.
> Todo lo anterior me funciona con Word 2003
>o versiones menores, pero tengo
> problemas con Word 2007.


- Que tal si nos pones el codigo que utilizas ?

de esta forma podemos ver donde tienes el error y ver si es por culpa
del codigo o de otras variables externas al codigo !

Comentanos...!

Saludos
Monica

www.fermu.com
www.teladearana.es




Respuesta Responder a este mensaje
#3 Monica May
30/09/2009 - 00:22 | Informe spam
hola,

-Has mirado que tengas activada la referencia a [ Microsoft Word 12.0 Object
Library] ???

Comentanos...!

Saludos
Monica


Dim wordObj As Object
Template$ = "nombreplantilla.dot"
On Error Resume Next
Set wordObj = Nothing
Set wordObj = CreateObject("Word.Application")
On Error GoTo ErrImpDoc
ChDir PATHINI$
wordObj.Visible = True
wordObj.ChangeFileOpenDirectory PATHINI$
wordObj.Documents.Add Template$
wordObj.Activate
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida