Visual Basic - imprimir Richtextbox en una posicion

Hola,

Como puedo enviar imprimir el RichtextBox en una posicion derterminada
del documento de word

Utilizo el siguiente codigo:

Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
Dim wdPar As Paragraph
Set wdDoc = wdApp.Documents.Add
Set wdPar = wdDoc.Paragraphs.Add
wdDoc.Range.InsertAfter RichTextBox1.Text
wdApp.ActiveDocument.Activate
wdApp.Visible = True

Muchas Gracias

Llevo todo el dia intentando imprimir en una posicion del documento de Word
no he podido conseguirlo.

Si alguien tiene una idea, por favor envienmela.

Saludos

Private Sub Command1_Click()
Dim xword As Word.Application ' Instancia a Word
Dim xRange As Range ' Rango del objeto
Dim xSelection As Find ' Búsqueda del objeto
Set xword = New Application

Dim destino$
destino = "C:\Calcuelec\formularios\mv.doc"
xWord.Documents.Add destino

Set xRange = xword.ActiveDocument.Range
xRange.Find.Execute "%%memoria%%", , , , , , , , , RichTextBox1.Text, True

xword.Visible = True

( Envia este error y no puedo conseguirlo)

Error 5854 en tiempo de ejecucion:
El parametro de la cadena es demasiado largo

Vuelve al código anterior y sigue probando. ¡Seguro que lo consigues!

Private Sub Command1_Click()
' Referencia: Microsoft Word 11.0 Object Library
Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
Dim wdPar As Paragraph
Set wdDoc = wdApp.Documents.Open("C:\Temp.doc")
Set wdPar = wdDoc.Paragraphs.Add
wdDoc.Range.InsertAfter RichTextBox1.Text ' Inserta el RTB al final del doc
wdPar.Range.Select ' Selecciona el principio del texto insertado.
wdApp.Visible = True
End Sub

Hola de nuevo

Ahora me imprime al final del documento.
necesito imprimir en un marcador predeterminado.

Muchisimas gracias.

Private Sub Command1_Click()
' Referencia: Microsoft Word 11.0 Object Library
Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
Dim wdMark As Bookmark
Set wdDoc = wdApp.Documents.Open("C:\Temp.doc")
Set wdMark = wdDoc.Bookmarks("marcador") ' "marcador" es el nombre asignado al marcador del doc
wdMark.Range.InsertAfter RichTextBox1.Text
wdApp.Visible = True
End Sub

Espero que así te sirva.
Saludos

Gracias Ramon,
Funciona de maravilla, ya lo tengo solucionado

Saludos