Insertar texto en negrita en RichTextBox

[erbuson]

Hola, si los nombres son siempre los mismos y tienes una tabla con ellos, tampoco le veo yo mayor problema.

Se trata de crear una función genérica a la que le pases el nombre que quieres que ponga en negrita y el RichText que contiene este dato.

La función deberá buscar donde empieza el texto así como la longitud que tiene y efectuar el cambio. Es bastante simple.

Haz lo siguiente:

Crea un Formulario con RichTextBox1, Text1 y Command1 y pega el siguiente código:

Código vb:

Private Sub Form_Load()
  RichTextBox1.TextRTF = "Esto es una prueba de modificar el texto"
End Sub
 
Private Sub Command1_Click()
  EnNegrita RichTextBox1, Text1.Text
End Sub
 
Private Sub EnNegrita(Rtf As RichTextBox, Texto As String)
  Rtf.SelStart = InStr(Rtf.Text, Texto) - 1
  Rtf.SelLength = Len(Texto)
  Rtf.SelBold = True
End Sub
 

Verás como funciona para que lo tengas claro.

Saludos