Posición del cursor en textedit

alberto-moyano 12-07-2021, 00:19

Hola gente, tengo una función que agrega un entorno de marcas (para LaTeX) pero al aplicarla lleva el cursor a la posición 1:1 (primer caracter:primera linea) como lo que pretendo es que el cursor quede en la linea siguiente a la última linea de la etiqueta, lo que hago es marcar la posición de la linea y luego sumarle 1 después de aplicadas las etiquetas, pero obtengo que TextEditor.Line es de solo lectura, no comprendo como sumarle las lineas nuevas

Código:
Public Sub menuMYQUOTE_Click()

  Dim seleccion As String

  Dim cadena1 As String

  Dim cadena2 As String

  Dim contador As Integer

  Dim posicion As Integer

  posicion = TextEditor1.Line

  seleccion = TextEditor1.SelectedText

  contador = Len(seleccion)

  cadena1 = seleccion

  cadena2 = "\\begin{myquote}\n    \\enquote{" & seleccion & "}\n\\end{myquote}"

  If contador >= 1 Then

    TextEditor1.Text = Replace(TextEditor1.Text, cadena1, cadena2)

  Endif

  TextEditor1.Line = posicion + 1

End

Gracias por cualquier sugerencia

Última modificación: 12-07-2021, 00:42 por alberto-moyano.