Visual Basic - Problemas al insertar texto en WORD

Life is soft - evento anual de software empresarial
 
Vista:

Problemas al insertar texto en WORD

Publicado por Alberto (8 intervenciones) el 26/08/2005 11:41:20
Creo un documento de word con el siguiente texto.

Set objword = New Word.Application
Set doc = objword.Documents.Add
objword.Selection.TypeText variabletexto
objword.Selection.TypeText variable2texto

Set parrafo = doc.Tables.Add(doc.Range(0, 0), variable3texto, totalcolumnas)

y aqui creo una tabla con valores.

Todo funciona bien, pero me crea la tabla antes de lo que he puesto al principio. Con lo cual, lo que quiero que me salga como título de la tabla, me sale al pie de la tabla.

Alguien sabe como hacer que esto no me pase?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problemas al insertar texto en WORD

Publicado por Cecilia Colalongo (3116 intervenciones) el 26/08/2005 13:31:38
Lo más fácil siempre es que grabes una macro en Word con lo que quieres hacer y luego pegues el código. En éste caso lo que falta es un salto de línea:

objWord.Selection.TypeParagraph

Luego de los dos TypeText.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problemas al insertar texto en WORD

Publicado por alberto (8 intervenciones) el 29/08/2005 00:49:00
No es lo que decías cecilia, pero gracias por la ayuda.

El error estaba en la linea
Set parrafo = doc.Tables.Add(doc.Range(0, 0), variable3texto, totalcolumnas)

el range(0,0) colocaba el cursor arriba. Lo cambie por

set parrafo = doc.tables.add(objword.selection.range,variable3texto,totalcolumnas) y funciona a la perfeccion.

Nota objword es un word.application.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar