Suche in Word mit Excel-Makro

Sub KanalImDocSuchen(Suchtext) If Suchtext = "" Then Exit Sub Dim ObjWord As Object Dim Version As Integer Version = 11 On Error Resume Next Set ObjWord = GetObject("Word.Application." & Version) If ObjWord Is Nothing Then Set ObjWord = CreateObject("Word.Application." & Version) End If DatName = ActiveWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, "xls", "doc") With ObjWord On Error GoTo Errorhandler .Documents.Open Filename:=DatName With .Application.Selection With .Find .Text = Suchtext End With .Find.Execute End With .Visible = True End With Set ObjWord = Nothing Exit Sub Errorhandler: MsgBox Error Set ObjWord = Nothing End Sub

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Benutzer

Hallo Siegfried,
z.B. so:
Option Explicit
Public ObjWord As Object
Public Version As Integer

Sub KanalImDocSuchen(Suchtext) ' nur beim ersten Mal aufrufen
If Suchtext = "" Then Exit Sub
Dim ObjWord As Object
Dim Version As Integer
Version = 11
On Error Resume Next
Set ObjWord = GetObject("Word.Application." & Version) 'nur beim ersten Mal Word Object  _
erstellen und File öffnen
If ObjWord Is Nothing Then
Set ObjWord = CreateObject("Word.Application." & Version)
End If
DatName = ActiveWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, "xls", "doc")
With ObjWord
On Error GoTo Errorhandler
.Documents.Open Filename:=DatName
With .Application.Selection
With .Find
.Text = Suchtext
End With
.Find.Execute
End With
.Visible = True
End With
'     Set ObjWord = Nothing 'jetzt nicht, da ObjWord bei weiteren Suchen noch benötigt wird
Exit Sub
Errorhandler:
MsgBox Error
Set ObjWord = Nothing
End Sub

Sub KanalImDocSuchen_nochmal(Suchtext) ' nach dem ersten Mal aufrufen
If Suchtext = "" Then Exit Sub
On Error Resume Next
With ObjWord
With .Application.Selection
With .Find
.Text = Suchtext
End With
.Find.Execute
End With
.Visible = True
End With
'     Set ObjWord = Nothing 'jetzt nicht, da ObjWord bei weiteren Suchen noch benötigt wird
Exit Sub
Errorhandler:
MsgBox Error
Set ObjWord = Nothing
End Sub

Sub KanalImDocSuchen_close()
Set ObjWord = Nothing
End Sub

Man könnte das jetzt noch optimieren, da das Suchen in KanalImDocSuchen_nochmal genau gleich dem Suchen in der ersten Routine ist. Man könnte das also in eine eigene Subroutine auslagern.
Alternativ teilt man in drei Routinen:
1) Öffnen des doc files
2) suchen im offenen File
3) Schließen des offenen Files
Um die Verwaltung musst Du Dich selbst kümmern, also sicher stellen, dass Öffnen, Suchen und Schließen in der richtigen Reihenfolge stattfinden.
Gruß
Harald

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

143 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suche in Word mit Excel-Makro

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

143 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread