Все форматы Excel и Word

for (int i = 0; i<FileOpen1->Dialog->Files->Count; i++) {
AnsiString Filenamen=FileOpen1->Dialog->Files->Strings[i];
if(FileExists(Filenamen)){
//пытаемся открыть word
try{
WordDocs = WonrdbeginN.OlePropertyGet("Documents").OleFunction("Open",
        WideString(Filenamen));
...
}catch(...){ 
WordDocs.OleFunction("Close");
             }
//пытаемся открыть excel
try{
BooksnN.OleFunction("Open",Filenamen.c_str());
...
}catch(...){ 
BooksnN.OleFunction("Close");
             }
}
}

UnicodeString expansion=AnsiLowerCase(ExtractFileExt(FileOpen1->Dialog->Files->Strings[i]));

UnicodeString expansion=AnsiLowerCase(ExtractFileExt(FileOpen1->Dialog->Files->Strings[i]));
if(expansion==".xls"||expansion==".xlsx"||...)ворд не открываем, производительность повышаем

try{
 WonrdDocs = WonrdbeginN.OlePropertyGet("Documents").OleFunction("Open",
        WideString(Filenamen));wonrd_is_getn=true;
WonrdDoc = WonrdbeginN.OlePropertyGet("ActiveDocument");
 int numTbls = WonrdDoc.OlePropertyGet("Tables").OlePropertyGet("Count");
    WonrdTable = WonrdDoc.OlePropertyGet("Tables").OleFunction
        ("Item", numTbls);//доходит аш до сюда