vincular con word
Publicado por luca103 (15 intervenciones) el 06/01/2005 17:49:51
Pense que no me funcionaba porque trabajaba en versiones diferentes, pero he instalado en todos los ordenadores el office 2000 y he vuelto a empezar, por supuesto con las referencias añadidas, os mando el codigo por si alguien me puede echar una mano, ejecutado con el office 2003 funciona de maravilla.
Dim oword As Word.Application
Set oword = New Word.Application
oword.Application.Visible = True
oword.Documents.Open FileName:="C:\plantilla.doc" 'Ruta donde esté la plantilla y nombre del archivo incluyendo la extensión entre comillas dobles la de encima del 2
oword.ActiveDocument.Bookmarks.Item("texto1").Select 'HORA
HORA.SetFocus
oword.Selection.TypeText Text:=HORA.Text
oword.ActiveDocument.Bookmarks.Item("texto2").Select 'DIA
NOMBRE.SetFocus
oword.Selection.TypeText Text:=NOMBRE.Text
Set oword = Nothing
Dim oword As Word.Application
Set oword = New Word.Application
oword.Application.Visible = True
oword.Documents.Open FileName:="C:\plantilla.doc" 'Ruta donde esté la plantilla y nombre del archivo incluyendo la extensión entre comillas dobles la de encima del 2
oword.ActiveDocument.Bookmarks.Item("texto1").Select 'HORA
HORA.SetFocus
oword.Selection.TypeText Text:=HORA.Text
oword.ActiveDocument.Bookmarks.Item("texto2").Select 'DIA
NOMBRE.SetFocus
oword.Selection.TypeText Text:=NOMBRE.Text
Set oword = Nothing
Valora esta pregunta
0