Hola, en un texto previamente escrito en un RichTextBox al hacer un clic en el botón Negrita automáticamente agrega “Texto en negrita” (esto puede ir en cualquier parte del texto), pero al continuar escribiendo no quiero seguir haciéndolo con negrita por lo tanto al código fuente le agregué que la anule. El tema está en que de esta última forma no me aplica la negrita. ¿Qué hago mal?
Código:
Private Sub Command1_Click()
RichTextBox1.SelBold = True
SendKeys "«Texto en negrita»"
RichTextBox1.SelBold = False 'Esto debería anular la negrita en la posición actual, pero lo hace ne todo el texto.
RichTextBox1.SetFocus
End Sub
Private Sub Form_Load()
Command1.Caption = "Negrita"
RichTextBox1.Text = "Este texto es para probar"
End Sub
Gracias desde yá por las respuestas.
Saludos