Probleme mit Find.Execute

24/08/2007 - 15:43 von Rainer Burre | Report spam
Hallo,

ich habe ein Dokument in dem Begriffe mit einer bestimmten Formatvorlage
formatiert sind.
Nun möchte ich dieses Doc nach den Begriffen durchsuchen und mir diese
listen.

Folgenden Code verwende ich:

Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Materialnummer")
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchByte = False
.CorrectHangulEndings = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Do While Selection.Find.Execute
Debug.Print Selection.Text
Loop


Leider wird die Schleife nach dem Auffinden des letzten Vorkommens
nicht beendet, sondern làuft endlos weiter (Selection.Text ist dabei dann
der letzte Text, der gefunden wird).

Kann mir jemand helfen?

Ich benutze Word 2003. Unter Word 2000 funktioniert es bestens.

Gruß
Rainer
 

Lesen sie die antworten

#1 Wolfram Jahn
24/08/2007 - 20:02 | Warnen spam
Rainer Burre schrieb:

Leider wird die Schleife nach dem Auffinden des letzten Vorkommens
nicht beendet, sondern làuft endlos weiter (Selection.Text ist dabei dann
der letzte Text, der gefunden wird).



Und wenn Du Dir den Start von Selection in einer Variablen merkst und
nach dem Finden schaust, ob sich der Wert gefàlligst erhöht hat? Und
wenn nicht, dann hàttest Du ein weiteres/besseres Endekriterium.


Wolfram

Ähnliche fragen