Thema Datum  Von Nutzer Rating
Antwort
05.01.2020 20:03:08 Tobias
NotSolved
05.01.2020 23:33:32 Gast7777
*****
NotSolved
Rot Word VBA: suchen und in Variable kopieren
 06.01.2020 19:11:14 Tobias
NotSolved
06.01.2020 19:37:33 tscharl
NotSolved
07.01.2020 11:12:12 tscharl
NotSolved
08.01.2020 19:04:30 Gast71206
NotSolved
08.01.2020 21:51:18 tscharl
NotSolved
08.01.2020 22:09:41 Tobias
NotSolved
08.01.2020 22:11:31 tscharl
NotSolved
11.01.2020 00:26:12 xlKing
*****
Solved
11.01.2020 13:59:49 Gast69430
NotSolved

Ansicht des Beitrags:
Von:
Tobias		 Datum:
06.01.2020 19:11:14		 Views:
612		 Rating:
     
Antwort:
  Ja
Thema:
Word VBA: suchen und in Variable kopieren

Stimmt. Das hat die Fehlermeldung schonmal gelöst. Danke

Leider finde ich so trotzdem keine Suchergebnisse, sprich die Variable "zwischenspeicher" bleibt leer. Wenn ich den selben String manuell suche bekomme ich ein Ergebnis. Ich habe die Suche im Code um ein paar Optionen ergänzt, leider komme ich trotzdem nicht zum gewünschten Ergebnis

Dim quelldoku As Document
Dim fundwort As String
Dim fundbereich As Range
Dim zwischenspeicher As String

Set quelldoku = ThisDocument

'gesuchtes Wort abfragen
fundwort = "__product_name*/"

'das ganze Dokument durchsuchen
Set fundbereich = quelldoku.Range

With fundbereich.Find
    .Text = fundwort
    .Forward = True
    .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    '.Wrap = wdFindStop
    
    fundbereich.Find.Execute
    Do While fundbereich.Find.Execute = True
        fundbereich.Select
        zwischenspeicher = Selection.Text
        Selection.Expand unit:=wdLine
        
        
          
    Loop
End With

MsgBox (zwischenspeicher)

 

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
05.01.2020 20:03:08 Tobias
NotSolved
05.01.2020 23:33:32 Gast7777
*****
NotSolved
Rot Word VBA: suchen und in Variable kopieren
 06.01.2020 19:11:14 Tobias
NotSolved
06.01.2020 19:37:33 tscharl
NotSolved
07.01.2020 11:12:12 tscharl
NotSolved
08.01.2020 19:04:30 Gast71206
NotSolved
08.01.2020 21:51:18 tscharl
NotSolved
08.01.2020 22:09:41 Tobias
NotSolved
08.01.2020 22:11:31 tscharl
NotSolved
11.01.2020 00:26:12 xlKing
*****
Solved
11.01.2020 13:59:49 Gast69430
NotSolved