MACRO - Insertar texto al final de cada linea

[Martín]

Deseo implementar una macro para insertar testo al final de cada
linea
de un párrafo seleccionado., tengo el código de como hacerlo al
principio que sería:

//////////////////////////////////////////////////////////////////////

Sub cadena()
Dim miRango As Range
For i = 1 To ActiveDocument.Paragraphs.Count
Set miRango = ActiveDocument.Paragraphs(i).Range
With miRango
.Start = miRango.Start

.InsertBefore "CADENA"
End With
Set miRango = Nothing
Next i
End Sub

//////////////////////////////////////////

pero no he podido ponerselo al final

si alguien me da una mano se lo agradezco

Martín

[Tux]

Martín escribió:

> Deseo implementar una macro para insertar testo al final de cada
> linea
> de un párrafo seleccionado.

Para un parrafo seleccionado prueba lo siguiente:

'[]

Sub insert_after_selection()

Selection.InsertAfter "cadena"

End Sub

'[]

Comentanos ok? :)

Saludos
Monica

--

Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com

------------------------