Hallo Allerseits,

ich habe eine Userform in einem Worddokument, in welcher sich ein Text-Control befindet. In dem Text-Control können mehrere Zeilen eingegeben werden. Mittels Shift+Enter werden Zeilenumbrüche (Chr13 und Chr10) eingetragen. 

Beim Beenden wird in einer Tabellenzelle des Dokumentes nun nach einer bestimmten Zeilenfolge gesucht, diese markiert und der Text aus dem Text-Control übertragen.

Das Problem ist, dass die Zeilenumbrüche dort nur als 'Leerzeichen' angezeigt werden. Es sind zwei Zeichen (Chr13 und Chr10). Aber leider wird in der Tabellezelle nix umgebrochen. Anbei die Funktion, welche sucht und ersetzt. Hat jemand für mich einen Lösungsansatz. Viele Grüße von nick aus Berlin

Public Function f_SetAProtocolValue(IM_Bookmark As String, IM_ReplaceText As String)

    On Error GoTo fehler

    ' Gehe zum Anfang des Dokumentes..
    Selection.HomeKey Unit:=wdStory
    
    'Selection.Find.ClearFormatting
    'Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = IM_Bookmark
        .Replacement.Text = IM_ReplaceText
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    
    With Selection
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseStart
        Else
            .Collapse Direction:=wdCollapseEnd
        End If
        
        .Find.Execute Replace:=wdReplaceOne
        
        Selection.Font.Color = wdColorDarkTeal
        
    End With

    Exit Function
    
fehler:

    Exit Function
    
    
End Function