Seleccionar un lugar especifo de un documento word

Hola Nacho,

Podrias dar algun ejemplo de "un lugar asignado"?

Saludos,
KL


"Nacho" wrote in message
news:

Hola, en la macro que realizo abro un documento de word y le pego algunas
lineas, pero me las pega en la primer linea del documento, hay alguna
manera
de pegarlos en un lugar asignado?

El texto viene de un text box y uso la siguiente instruccion.

Dim X As Object
Set X = CreateObject("Word.Application")
X.Visible = True
X.Documents.Open ("C:\doc1.doc")
X.Selection.Text = TextBox1.Text

Muchas Gracias
Saludos

Si, claro.

Me gustaría poder decidir la línea en el documento y si es posible la columna.
Por ejemplo escribir Hola en la línea 5 de la página 2

Saludos

"KL" escribió:

Hola Nacho,

Podrias dar algun ejemplo de "un lugar asignado"?

Saludos,
KL


"Nacho" wrote in message
news:
> Hola, en la macro que realizo abro un documento de word y le pego algunas
> lineas, pero me las pega en la primer linea del documento, hay alguna
> manera
> de pegarlos en un lugar asignado?
>
> El texto viene de un text box y uso la siguiente instruccion.
>
> Dim X As Object
> Set X = CreateObject("Word.Application")
> X.Visible = True
> X.Documents.Open ("C:\doc1.doc")
> X.Selection.Text = TextBox1.Text
>
> Muchas Gracias
> Saludos

Hola Nacho,

Me gustaria poder decidir la linea en el documento y si es posible la
columna.
Por ejemplo escribir Hola en la linea 5 de la pagina 2

Cuando te refieres a una columna, imagino que se trata de una tabla, no? Las
tablas en word son objetos independientes diferentes al texto normal.

Abajo te pongo dos ejemplos, uno modifica el texto en un parrafo especifico
y otro modifica el texto de una celda especifica de una tabla. En el primer
caso debe existir el parrafo 5, y en el segundo y al menos una tabla con al
menos 2 filas y 3 columnas.

Sub test1()
Dim WDApp As Object, miDoc As Word.Document, Texto As String
Texto = "Prueba"
Set WDApp = CreateObject("Word.Application")
With WDApp
.Visible = True
Set miDoc = .Documents.Open("C:\doc1.doc")
End With
miDoc.Paragraphs(5).Range = Texto & Chr(10)
End Sub

Sub test2()
Dim WDApp As Object, miDoc As Word.Document, Texto As String
Texto = "Prueba"
Set WDApp = CreateObject("Word.Application")
With WDApp
.Visible = True
Set miDoc = .Documents.Open("C:\doc1.doc")
End With
miDoc.Tables(1).Rows(2).Cells(3).Range = Texto
End Sub

Saludos,
KL