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
|