VBA: Indsæt tekst fra txtboks

Fjern den sidste karakter fra den streng der indeholder en linie:

strLinie=left(strLinie,Len(strLinie)-1))

/tjacob

En anden måde lige om lidt!

tjacob>

Hvordan vil du integrere dit forslag i følgende kode:

With Selection.Find
.ClearFormatting
.Text = "NavnOgAdresse"
  With .Replacement
    .ClearFormatting
    .Text = Frm1.TxtNavnOgAdr.Text
  End With
  .Execute Replace:=wdReplaceAll, _
    Format:=True, MatchCase:=True, _
    MatchWholeWord:=True
End With

nicolaus

OK - Det kan ikke gøres, da du indlæser alle linier på en gang. Derfor er vi nødt til at anvende en anden metode: Erstat 'Enter' med "" (=ingenting) i Strengen Frm1.TxtNavnOgAdr.Text. Du er nødt til at eksperimentere lidt her, da et linieskift i VB kaldes med koden vbCrLf, som står for Carriage Return (= Chr(10)) + LineFeed (= Chr(13)).

Du kan bruge funktionen Replace, der erstatter en streng med en anden.

F.eks. hvis vi vil slette alle forekomster af Carriage Return i din streng:
    linien: .Text = Frm1.TxtNavnOgAdr.Text erstattes af:

    .Text = Replace(Frm1.TxtNavnOgAdr.Text, Chr(10), "")

Umiddelbart vil jeg tro, at dette løser dit problem, men det er muligt at du også er nødt til at slette LineFeed (Chr(13)).

/tjacob

Den var lige i øjet.

Mange tak for hjælpen

nicolaus