INSERTAR TEXTO SABIENDO DONDE ESTA EL CURSOR
Publicado por marval (49 intervenciones) el 22/04/2004 10:25:53
Quiero insertar un texto , este: [...]. Donde tengan situado el cursor y pulsen una opción del menú. Por una parte, y por otra, quiero que si pulsan otra opción me vaya a donde estén situados los huecos con [...].
Soy novatilla, y sólo tengo esto, no se si voy encaminada... SI PODEIS AYUDARME.
Private Sub mnucrear_Click()
'HA DE ESCRIBIR [...] EN LA POSICIÓN SELECIONADA DENTRO DEL DOCUMENTO DEL RICHTEXTBOX.
'Dim escrito As String
Dim nPos As String
'escrito = "[...]"
nPos = Me.rtfRichTextBox1.SelStart
'MsgBox (nPos)
If nPos >= 0 Then
'"[...]"
End If
End Sub
GRACIAS
Soy novatilla, y sólo tengo esto, no se si voy encaminada... SI PODEIS AYUDARME.
Private Sub mnucrear_Click()
'HA DE ESCRIBIR [...] EN LA POSICIÓN SELECIONADA DENTRO DEL DOCUMENTO DEL RICHTEXTBOX.
'Dim escrito As String
Dim nPos As String
'escrito = "[...]"
nPos = Me.rtfRichTextBox1.SelStart
'MsgBox (nPos)
If nPos >= 0 Then
'"[...]"
End If
End Sub
GRACIAS
Valora esta pregunta
0