Error con word.application
Publicado por Christian (4 intervenciones) el 22/08/2005 22:31:48
Hola a todos.
Tengo el siguiente código para abrir un documento word agragarle sierta información y salvarlo en otro documento. El problema es que da el siguiente error tratando de ejecutarlo.
Set ApWord = server.CreateObject("Word.Application")
Set DocWord = ApWord.Documents.Open("c:\boletin1.doc")
Set SelWord = DocWord.Application.Selection
SelWord.TypeText "A" & vbTab
SelWord.TypeText "B" & vbTab
SelWord.TypeText "C" & vbTab
ApWord.DisplayAlerts = wdAlertsNone
DocWord.SaveAs "c:\nuevo.doc"
DocWord.Close
ApWord.Quit
Error:
Microsoft Word (0x800A1772)
Word no pudo desencadenar el evento.
/add_word/add.asp, línea 14
esta linea es la siguiente:
Set DocWord = ApWord.Documents.Open("c:\boletin1.doc")
agradeceria si alguien me pudiera ayudar.
nota: este ejemplo trajaja bien en vb6.
Tengo el siguiente código para abrir un documento word agragarle sierta información y salvarlo en otro documento. El problema es que da el siguiente error tratando de ejecutarlo.
Set ApWord = server.CreateObject("Word.Application")
Set DocWord = ApWord.Documents.Open("c:\boletin1.doc")
Set SelWord = DocWord.Application.Selection
SelWord.TypeText "A" & vbTab
SelWord.TypeText "B" & vbTab
SelWord.TypeText "C" & vbTab
ApWord.DisplayAlerts = wdAlertsNone
DocWord.SaveAs "c:\nuevo.doc"
DocWord.Close
ApWord.Quit
Error:
Microsoft Word (0x800A1772)
Word no pudo desencadenar el evento.
/add_word/add.asp, línea 14
esta linea es la siguiente:
Set DocWord = ApWord.Documents.Open("c:\boletin1.doc")
agradeceria si alguien me pudiera ayudar.
nota: este ejemplo trajaja bien en vb6.
Valora esta pregunta


0