Suche in Word mit Excel-Makro
siegfried.rump@daimlerchrysler.com
ich habe den unten stehenden Code hier aus dem Forum, der soweit auch funktioniert.
Allerdings möchte ich die Suche aus Excel heraus mehrmals starten.
Dabei wird mir jedesmal eine neue Word-Datei geöffnet obwohl die Datei noch offen ist.
Ich möchte also in der bereits geöffneten Datei suchen.
Danke
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