[VB6 Word] Word crasht na simpele Find

[alvastbedankt]

Ik gebruik de volgende code op diverse configuraties zonder problemen.
Nu gebruik ik Office2007 en VB6 en crasht de code.

Wie weet waarom??

Ik mag alles doen met het document, behalve het Find object gebruiken...

code:

    Dim Office As Word.Application   ' the word object
    Dim SourceDoc As Word.Document

    Set Office = New Word.Application
    Office.Visible = True
    
    Set SourceDoc = Office.Documents.Add(Template:=sTemplate, NewTemplate:=False, DocumentType:=wdNewBlankDocument)
    
    Debug.Print SourceDoc.Range.Find.MatchCase

[MAX3400]

Zal me niet veel verbazen als bepaalde "code" onder Office 2007 niet meer mag. Sterker nog; ik heb wel eens vb-scripts gezien die niet eens werkten van Office2000 naar 2003.

[Ashtaroth]

Kijk ff naar het object model. Vlgs mij is het objectmodel gewijzigd.
I.p.v.

Visual Basic:

SourceDoc.Range.Find.MatchCase

is het vlgs mij nu iets van

Visual Basic:

SourceDoc.Range.Find.Execute(MatchCase)

Probeer ff en laat ff weten of e.e.a. werkt.

[alvastbedankt]

Bedankt voor de suggesties. Ik ga ze maandag uitproberen.