Macro haga línea vertical extrem derecha document longitud lineas seleccionadas ratón

Buenas tardes necesito una macro que haga una linea vertical en el extremo derecho documento con una longitud igual a las lineas selccionadas con el ratón.

La macro que tengo realiza una línea de la longitud h=12.5 a partir del punto de situación del cursor.

sub linea()

Dim por As Single
Dim y As Single
Const w = 0
Const h = 12.5

With ActiveDocument.Shapes.AddConnector(msoConnectorStraight, por, y, w, h)

.Fill.Transparency = 0#
.Line.Weight = 1#
.Line.DashStyle = msoLineSolid
.ConnectorFormat.Type = msoConnectorStraight
.Line.Style = msoLineSingle
.Line.Transparency = 0#

.Line.ForeColor.RGB = RGB(255, 0, 0)

End With
Application.ScreenUpdating = True
End Sub

necesito que realice una línea cuya longitud no la marque yo fija (h=12,5) sino que salga en función del texto seleccionado con el ratón

0

Añade tu respuesta

Haz clic para o