MACRO - Insertar texto al final de cada linea

12/10/2007 - 21:58 por Martín | Informe spam
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
 

Leer las respuestas

#1 Tux
13/10/2007 - 22:00 | Informe spam
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

Preguntas similares