Indsæt tekst hvor markøren står

Denne kode kan gøre det du spørger efter. rt er den richtextbox der er på formularen.

Private Sub Command1_Click()
    Dim vars As String, vars2 As String
    vars = Left(rt.Text, rt.SelStart)
    vars2 = Right(rt.Text, Len(rt.Text) - rt.SelStart)
    rt.Text = vars & "Den tekst jeg skal indsætte" & vars2
End Sub


vh ck

takker

Hvorfor ikke bare:

Private Sub Command1_Click()
  RichTextBox1.SelText = "Den tekst jeg skal indsætte"
End Sub

Kendte jeg ikke til :( men du har ret, det er da meget lettere

man for også fejl hvis man marker en tekst og trykker på Command1

ikke med den du kom med sjh ?

ducks >Nej det var også din kode der kom med fejl.