Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

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
»
Zwischenspeicher als Bild mit 19 Zentimeter Breite einfügen
»
MS Word: Einfügen Paste Ereignis in Word einbauen
»
Word Code: Word Find
»
Word Makro: Alle Sätze markieren und Markierungen wieder löschen
»
Word Makro: Word automatischer Zoom auf 100% beim Dokument öffnen
»
Word Makro: Tabellen durchlaufen und Inhalt kopieren und Einfügen
»
Word Makro: Automatische Korrektur von falschen Übersetzungslinks
»
Word Makro: Einfügen von neuen Zeilen nach einer Textmarke

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de