https://foro.gambas-es.org/viewtopic.php?f=4&t=7834&p=47246#p47246 ----------------------------------- v3ctor Lunes, 02 Diciembre 2019, 02:39 Re: No Existe Propiedad Background En Textedit!!! ----------------------------------- [code linenumbers=false syntax=gambas] Public Sub btnCapHtml_Click() Dim ruta As String Dim NombreLibro As String Dim FormatoFirma As String Dim LibroCapitulo As String Dim NuevoRichText As String '01 dic 2019 NuevoRichText = Replace(txtEcapitulo1.RichText, " capítulo " & capitulo & "
" FormatoFirma = "" & Application.Name & " versión " & Application.Version & "" Try Kill ruta Wait 0.2 If firma Then NuevoRichText = Replace$(NuevoRichText, "", LibroCapitulo & FormatoFirma & "") File.Save(ruta, NuevoRichText) Else NuevoRichText = Replace$(NuevoRichText, "", LibroCapitulo & "") File.Save(ruta, NuevoRichText) Endif Desktop.Open(ruta) Catch Message.Error(Error.Text & gb.NewLine & Error.Where) End[/code] así quedo el nuevo código no me gusta porque el libro y nombre de capitulo lo puse abajo y no arriba como estaba pero bueno cuando encuentre la forma lo cambiare, lo del color de fondo era importantisimo, recién en esta versión note el problema :oops: