Leer Word desde ASP

A ver si este código te ayuda

Dim oWord As New Word.Application
Dim oDoc As Word.Document
Dim oTOC As Word.TableOfContents
Dim oContent As Range, i As Integer

Set oDoc = oWord.Documents.Open("c:\citas.doc")
oWord.Visible = True

Set oTOC = oDoc.TablesOfContents(1)
Set oContent = oTOC.Range
For i = 1 To oContent.Paragraphs.Count
Debug.Print oContent.Paragraphs(i).Range.Text
Next

oDoc.Close
oWord.Quit

Cualquier cosa, me avisas...

Saludos desde Pacheco, Bs.As, Argentina
Adrián

"Hernan Perez Andrade" wrote in message
news:

Hola: les planteo una duda. Tengo que hacer una pagina ASP por la que :
a) pueda hacer upload al servidor de un .DOC de Word.
b) Abra el .DOC y lo analize buscando el TOC (la Tabla de Contenidos)
c) Almacenar en una base de datos los contenidos del TOC. Un elementodel
TOC
es un registro de titulo y uno de contenido de dicho elemento

Tengo a) y casi c). Me falta b). No tengo idea como abrir el .DOC en ASP y
ubicar el TOC y poder ubicar Titulo y Contenido de cada elemento del TOC.

Desde ya gracias por su atencion


Hernan

Pilar, BsAs, Argentina

Ups!
Lo hice para VB6... en ASP deberías hacer primero un
oWord = Server.CreateObject("Word.Application") (si no me equivoco)..
y ademas, las variables van sin tipo


"Adrian Di Ruggiero" wrote in message
news:%

A ver si este código te ayuda

Dim oWord As New Word.Application
Dim oDoc As Word.Document
Dim oTOC As Word.TableOfContents
Dim oContent As Range, i As Integer

Set oDoc = oWord.Documents.Open("c:\citas.doc")
oWord.Visible = True

Set oTOC = oDoc.TablesOfContents(1)
Set oContent = oTOC.Range
For i = 1 To oContent.Paragraphs.Count
Debug.Print oContent.Paragraphs(i).Range.Text
Next

oDoc.Close
oWord.Quit

Cualquier cosa, me avisas...

Saludos desde Pacheco, Bs.As, Argentina
Adrián

"Hernan Perez Andrade" wrote in message
news:

Hola: les planteo una duda. Tengo que hacer una pagina ASP por la que :
a) pueda hacer upload al servidor de un .DOC de Word.
b) Abra el .DOC y lo analize buscando el TOC (la Tabla de Contenidos)
c) Almacenar en una base de datos los contenidos del TOC. Un elementodel
TOC
es un registro de titulo y uno de contenido de dicho elemento

Tengo a) y casi c). Me falta b). No tengo idea como abrir el .DOC en ASP
y
ubicar el TOC y poder ubicar Titulo y Contenido de cada elemento del TOC.

Desde ya gracias por su atencion


Hernan

Pilar, BsAs, Argentina

Adrian:
muchas gracias por tu ayuda. Lo voy a probar en el equipo de mi trabajo. En
el de casa no se que paso que cuando instancio una sesion de word me da el
error
"Tipo de error: (0x80010001) La llamada fue rechazada por el destinatario.
/leerword.asp linea 3" y me corriendo un proceso de word que no puedo
interrumpir con el administrador de tareas. Estoy averiguando que es. En
internet aparecen varias posibles explicaciones y soluciones. Desde errores
en DCOM hasta problemas con el Norton Antivirus. Veré que pasa. De todos
modos el lunes pruebo lo que me pasaste y te cuento. Gracias de nuevo

Hernan
Pilar, Buenos Aires, Argentina

"Adrian Di Ruggiero" escribió en el mensaje
news:#

A ver si este código te ayuda

Dim oWord As New Word.Application
Dim oDoc As Word.Document
Dim oTOC As Word.TableOfContents
Dim oContent As Range, i As Integer

Set oDoc = oWord.Documents.Open("c:\citas.doc")
oWord.Visible = True

Set oTOC = oDoc.TablesOfContents(1)
Set oContent = oTOC.Range
For i = 1 To oContent.Paragraphs.Count
Debug.Print oContent.Paragraphs(i).Range.Text
Next

oDoc.Close
oWord.Quit

Cualquier cosa, me avisas...

Saludos desde Pacheco, Bs.As, Argentina
Adrián

"Hernan Perez Andrade" wrote in message
news:
> Hola: les planteo una duda. Tengo que hacer una pagina ASP por la que :
> a) pueda hacer upload al servidor de un .DOC de Word.
> b) Abra el .DOC y lo analize buscando el TOC (la Tabla de Contenidos)
> c) Almacenar en una base de datos los contenidos del TOC. Un elementodel
> TOC
> es un registro de titulo y uno de contenido de dicho elemento
>
> Tengo a) y casi c). Me falta b). No tengo idea como abrir el .DOC en ASP

y

> ubicar el TOC y poder ubicar Titulo y Contenido de cada elemento del

TOC.

>
> Desde ya gracias por su atencion
>
>
> Hernan
>
> Pilar, BsAs, Argentina
>
>

Adrian: anduvo fenomeno! Gracias de nuevo. Y aun en el equipo de casa
tambien, despues de batallar un poco con el dcomcnfg.exe. Ahora, te puedo
molestar con otra consulta. Con el codigo que me pasate obtengo la tabla de
contenidos. En gral una entrada en la tabla de contenidos es el titulo de
uno o mas parrafos que se extienden hasta la proxima entrada de la tabla de
contenidos. Ya tengo el titulo. Como obtengo el o los parrafos que vienen
despues del titulo. Probe con oContent.Paragraphs(i).Range(Start.=n,End:=j)
pero no logro ontener lo que quiero. Si se te ocurre algo, contame por
favor.


Hernan

"Hernan Perez Andrade" escribió en el mensaje
news:

Adrian:
muchas gracias por tu ayuda. Lo voy a probar en el equipo de mi trabajo.

En

el de casa no se que paso que cuando instancio una sesion de word me da el
error
"Tipo de error: (0x80010001) La llamada fue rechazada por el destinatario.
/leerword.asp linea 3" y me corriendo un proceso de word que no puedo
interrumpir con el administrador de tareas. Estoy averiguando que es. En
internet aparecen varias posibles explicaciones y soluciones. Desde

errores

en DCOM hasta problemas con el Norton Antivirus. Veré que pasa. De todos
modos el lunes pruebo lo que me pasaste y te cuento. Gracias de nuevo

Hernan
Pilar, Buenos Aires, Argentina

"Adrian Di Ruggiero" escribió en el mensaje
news:#
> A ver si este código te ayuda
>
> Dim oWord As New Word.Application
> Dim oDoc As Word.Document
> Dim oTOC As Word.TableOfContents
> Dim oContent As Range, i As Integer
>
> Set oDoc = oWord.Documents.Open("c:\citas.doc")
> oWord.Visible = True
>
> Set oTOC = oDoc.TablesOfContents(1)
> Set oContent = oTOC.Range
> For i = 1 To oContent.Paragraphs.Count
> Debug.Print oContent.Paragraphs(i).Range.Text
> Next
>
> oDoc.Close
> oWord.Quit
>
> Cualquier cosa, me avisas...
>
> Saludos desde Pacheco, Bs.As, Argentina
> Adrián
>
> "Hernan Perez Andrade" wrote in message
> news:
> > Hola: les planteo una duda. Tengo que hacer una pagina ASP por la que

:

> > a) pueda hacer upload al servidor de un .DOC de Word.
> > b) Abra el .DOC y lo analize buscando el TOC (la Tabla de Contenidos)
> > c) Almacenar en una base de datos los contenidos del TOC. Un

elementodel

> > TOC
> > es un registro de titulo y uno de contenido de dicho elemento
> >
> > Tengo a) y casi c). Me falta b). No tengo idea como abrir el .DOC en

ASP

y
> > ubicar el TOC y poder ubicar Titulo y Contenido de cada elemento del
TOC.
> >
> > Desde ya gracias por su atencion
> >
> >
> > Hernan
> >
> > Pilar, BsAs, Argentina
> >
> >
>
>