Suchen und Ersetzen in Worddateien?

Option Explicit
Dim dokuname As String
Dim suchwort As String, ersatzwort As String
Sub START()
Dim fso As Object, Ordner As Object, datei As Object
Dim startOrdner As String
Dim endung As String
startOrdner = InputBox("Bitte vollständigen Pfad von DOC-Dateien eingeben. Bitte am Ende ein  _
Backslah")
startOrdner = "" & startOrdner & ""
suchwort = InputBox("Bitte den zu ersetzenden Begriff eingeben")
ersatzwort = InputBox("Und jetzt das Ersatzwort!")
If startOrdner = "" Or suchwort = "" Then Exit Sub
Set fso = CreateObject("Scripting.FileSystemObject")
Set Ordner = fso.GetFolder(startOrdner)
For Each datei In Ordner.Files
endung = fso.GetExtensionName(datei)
If endung Like "doc" Then
dokuname = startOrdner & fso.GetFileName(datei)
Debug.Print dokuname
'                SuchUndErsetz
End If
Next datei
End Sub
Sub SuchUndErsetz()
Dim doku As Document
Dim oStory As Range
Set doku = Documents.Open(dokuname)
For Each oStory In doku.StoryRanges
With oStory.Find
.Text = suchwort
.Replacement.Text = ersatzwort
.Execute Replace:=wdReplaceAll
End With
Next oStory
doku.Close savechanges:=True
End Sub