#

Word: Find Code Beispiel 
 
In Word kann man eine automatische Suche durchführen mit dem Find Objekt.
Da die Suche mit Find über ein Find-Word Object läuft, ist die Verwaltung des vba Codes ein wenig komplizierter.
Deshalb habe ich hier ein kleines Code Beispiel zur Verfügung geladen.
 
Unter Word vba kann man die Suche innerhalb eines Textblockes durchführen, indem man den Textbereich als Range festlegt und über diesen dann eine Find-Objekt erstellt.

'< init >
Dim range_Document As range
Set range_Document = ActiveDocument.range
'</ init >
 
Dim objFind As Find
Set objFind = range_Document.Find

 
 
Anschliessend führt das Find-Objekt die Suche aus

objFind.Execute "long"
'-----< Search >----
If objFind.Found Then
 
End If
'-----</ Search >----

 
 
Das gefundene Textstelle verbirgt sich wiederum in einem Find.Parent Bereich.
Aus diesem Treffer-Bereich kann dann die Zielposition oder auch der Text entnommen werden.

objFind.Execute "long"
'-----< Search >----
If objFind.Found Then
Dim range_Found As range
Set range_Found = objFind.Parent

Dim intPos As Integer
intPos = range_Found.Start
MsgBox "Found at :" & intPos
 
End If
'-----</ Search >----
 

 
 
Betrifft: Word Makro, vba, Suchen

 
 
Vba Code Beispiel zu Word Find
 

Sub Makro1()
'< init >
Dim range_Document As range
Set range_Document = ActiveDocument.range
'</ init >

Dim objFind As Find
Set objFind = range_Document.Find
objFind.Execute "long"
'-----< Search >----
If objFind.Found Then
Dim range_Found As range
Set range_Found = objFind.Parent

Dim intPos As Integer
intPos = range_Found.Start
MsgBox "Found at :" & intPos
 
End If
'-----</ Search >----
 
End Sub
 

 
Mobile

.

123movies