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);
}
Вот так вот работает но не вытягивает файлы у которых путь состоит из русских символов ((