For Each aDoc In loWord.Documents > If lcFile $ aDoc.Name > docFound = True > EndIf >EndFor >If !docFound > loWord.Documents.Open(lcFile) >EndIf