Показать сообщение отдельно
  #3 (permalink)  
Старый 15.05.2012, 15:44
Интересующийся
Отправить личное сообщение для PsScitalec Посмотреть профиль Найти все сообщения от PsScitalec
 
Регистрация: 14.05.2012
Сообщений: 15

function ImportResumeOnExecute(ActionMenuItem, Sender) {
		var FileNames = System.CreateObject('TSObjectLibrary.StringsList');
         if ((System.PromptForFileNames(FileNames, 'Word Files(*.doc,*.docx)|*.doc;*.docx', '', "Выберите файл", ''))) {
         var Patch = FileNames.commatext;
         } else {
         return null;
         }
         var ResultPath = Patch.replace(/\\/g,"\\\\");
         Log.Write(1,'путь '+ ResultPath);
        try{    
                //Открытие файла Word
                 var Word = new ActiveXObject('Word.Application');
                 Word.Visible = false;
                 var Text = Word.Documents.Open(ResultPath);
                 Log.Write(1,'Документ содержит Text = '+ Text);
                 var txt = Word.Documents(Patch).Content.Text;
                 Word.quit(0);
                 Log.Write(1,'Документ содержит txt = '+ txt);
         }catch(e){
                 Word.quit(0);
         } 
         		 OpenContactResume(txt);        
}



Вот так вот работает но не вытягивает файлы у которых путь состоит из русских символов ((
Ответить с цитированием