Hej!
Jag försöker infoga fromaterad text i en Rich TextBoc men lykas dåligt.
När jag infogar den för första gången går det mycket bra, men nästa gång försvinner alla gamla formateringar...

Koden jag använder är som nedan:

<code>

With frmFönster(I)
DoEvents
.medd.Text = .medd.Text & Datan1
.medd.SelStart = Len(.medd.Text) - Len(Datan1)
.medd.SelLength = Len(Datan1)
.medd.SelFontSize = stor
.medd.SelBold = fet
.medd.SelItalic = kursiv
.medd.SelFontName = typw
.medd.SelColor = fargen
.medd.SelStrikeThru = genom
.medd.SelUnderline = under
.medd.SelLength = 0
End with

</code>
alla formateringar är beroende av vad man har valt innan man "adderade" texten...
de finns lagrade i varablara, stor, fet, kursev, typw, fargen, genom, under...

Nån som vet hur man skall göra för att även behålla de gamla formateringarna när man lägger till ny text??

Hej
Spånar lite. Det är ju så om man trycker Enter (radskifte)
så behåller ju dokumentet det senast valda.
Alltså skall du skicka vbCrLf som sista tecken i din input.

spånar
Sven

Problemet är att du läger till texten med Text egenskapen. På så sätt tar bort formateringen av texten. Testa med:
<code>
Dim SelStart as Long
With frmFönster(I).medd
SelStart = Len(.Text)
.SelStart = SelStart
.SelText = Datan1

.SelStart = SelStart
.SelLength = Len(Datan1)

.SelFontSize = stor
.SelBold = fet
.SelItalic = kursiv
.SelFontName = typw
.SelColor = fargen
.SelStrikeThru = genom
.SelUnderline = under

.SelLength = 0
End with
</code>

tack!!!!!
*bamseglad*