Thema Datum  Von Nutzer Rating
Antwort
Rot Wort suchen - Anzeige aktualisieren
 19.11.2022 18:12:17 Flyinggancho
NotSolved
21.11.2022 00:13:31 xlKing
NotSolved

Ansicht des Beitrags:
Von:
Flyinggancho		 Datum:
19.11.2022 18:12:17		 Views:
637		 Rating:
     
Antwort:
  Ja
Thema:
Wort suchen - Anzeige aktualisieren

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Wort suchen - Anzeige aktualisieren
 19.11.2022 18:12:17 Flyinggancho
NotSolved
21.11.2022 00:13:31 xlKing
NotSolved