Усовершенствовать макрос

[kain151]

Здравствуйте, уважаемые профи и любители.

Помогите, пожалуйста, усовершенствовать код.
Есть небольшой макрос, проверяющий есть ли определенный файл в папке, если есть, то открывающий его и сохраняющий как текст.
Как сделать, чтобы наличие и сохранение файла определялось по его имени в независимости от того, с расширением он doc или docx.

Set FSO = CreateObject("Scripting.FileSystemObject")
  If FSO.FileExists("D:\path\11.doc") Then
        Documents.Open FileName:="D:\path\11.doc", ConfirmConversions:=False, ReadOnly _
        :=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
        :="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
        , Format:=wdOpenFormatAuto, XMLTransform:=""

        ActiveDocument.SaveAs FileName:="D:\path\11.txt", FileFormat:=wdFormatText, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, Encoding:=1251, InsertLineBreaks:=False, AllowSubstitutions:=False _
        , LineEnding:=wdCRLF
        ActiveWindow.Close
      End If
    Set FSO = Nothing

Заранее спасибо!

[Пименов Александр]

Надо в условие IF (Если) добавить оператор OR (Или):

Set FSO = CreateObject("Scripting.FileSystemO bject")
If FSO.FileExists("D:\path\11.doc") or FSO.FileExists("D:\path\11.docx") Then
Documents.Open FileName:="D:\path\11.doc", ConfirmConversions:=False, ReadOnly _
:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
, Format:=wdOpenFormatAuto, XMLTransform:=""

ActiveDocument.SaveAs FileName:="D:\path\11.txt", FileFormat:=wdFormatText, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=1251, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF
ActiveWindow.Close
End If
Set FSO = Nothing

[kain151]

Александр, к сожалению, не срабатывает.
Подозреваю, дело в том, что найденный с одним из расширений файл потом нужно открыть.

Documents.Open FileName:="D:\path\11.doc"

А если бы найден с расширением docx, а не doc, то не хочет открывать.
Подскажите, пожалуйста, как сделать чтобы открывал именно с найденным расширением?

[AndVGri]

Так, думаю, будет лучше

    Dim FSO As Object, sFind As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FileExists("d:\path\11.doc") Then
        sFind = "d:\path\11.doc"
    Else
        If FSO.FileExists("d:\path\11.docx") Then sFind = "d:\path\11.docx"
    End If
    If Len(sFind) > 3 Then
        Application.Documents.Open sFind
    End If
    '....

P. S. Сергей, спасибо за увиденную опечатку.

[Serge_Bliznykov]

If FSO.FileExists("d:\path\11.docx") Then sFind = "d:\path.11.docx"

исправлю опечатку

If FSO.FileExists("d:\path\11.docx") Then sFind = "d:\path\11.docx"

[kain151]

Друзья, все работает!
Спасибо Вам Огромное!

P.S. А что вот эта строка означает? - чтобы для себя понимать

If Len(sFind) > 3 Then