Hola:
Acabo de hacer un simple ejemplo que lo que hace es cargar en el control un documento creado previamente con el Wordpad, pero esto es indiferente, porque no me podría creer que no funcionase, la diferencia básica esta en que hay que usar la propiedad TextRtf del RichTextBox en lugar de la Text indicada anteriormente. La variable <Ano> esta así expresamente porque tuve problemas con <Año> tal vez porque la 'ñ' no es un cáracter muy estandar.
Esta es una imagen con el código y puedes ver que funciona respetando tipos de letra y lo que haga falta, como ves utilizo dos RichTextBox diferentes pero es para que quede mas claro el ejemplo ya que puede utilizarse sólo uno.
Pego aqui tambien el código por si algun día que a veces ocurre no aparece la imagen.
Código vb:
Ver originalPrivate Sub Command1_Click()
Dim Texto As String
Texto = RichTextBox1.TextRTF
Texto = Replace(Texto, "<Ciudad>", Text1.Text)
Texto = Replace(Texto, "<Dia>", Format(Date, "d"))
Texto = Replace(Texto, "<Mes>", Format(Date, "mmmm"))
Texto = Replace(Texto, "<Ano>", Format(Date, "yyyy"))
Texto = Replace(Texto, "<Nombre1>", Text2.Text)
Texto = Replace(Texto, "<Nombre2>", Text3.Text)
Texto = Replace(Texto, "<Firma>", "erbuson")
RichTextBox2.TextRTF = Texto
End Sub
Private Sub Form_Load()
RichTextBox1.LoadFile "C:\Documento.rtf"
End Sub
Saludos