Hallo zusammen,

in Ergänzung zu meiner AnführungszeichenProblematik würde ich gerne das Word das Suchwort anzeigt

With Selection.Find
    .Text = vTextFN
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        
        .Execute
        
        Do While .found And InQuotes(.Parent.Range)
                .Execute
        Loop
       
    End With
     
    If Selection.Find.found Then
    
   
    vTextFound = Selection
ERNEUTFRAGEN:
  vAusw = InputBox(vTextK & vbCrLf & vbCrLf & "Einfügen : 1" & vbCrLf & vbCrLf & "NICHT EINFÜGEN : 2 " & vbCrLf & vbCrLf & "ERNEUT FRAGEN : 3 " & vbCrLf & vbCrLf & "DOC Öffnen : 4 ", vTextFound, 1)
    If vAusw <> "" Then
    Select Case CInt(vAusw) ....

Bevor die Inputbox kommt, sollte zu dem gesuchten Wort gesprungen und es angezeigt werden. Manchmal springt Word dort nicht hin. Und machmal springt Word hin, aber zeigt nur "weiße Felder" an...

Danke 
DC