Здравствуйте. Есть приложение, работающее с MS Word. Суть - открываем WORD, читаем данные из таблички, передаем эти данные в запрос, закрываем WORD. Проблема следующая - на некоторых файлах *.doc выскакивает ошибка "MS WORD обнаружило ошибку. Приложение будет закрыто. ... Восттановить документ и перезапустить...".
| Код |
......
repeat
begin
if (sr.Attr and faAnyFile) = sr.Attr then
begin
try
MsWord := CreateOleObject('Word.Application');
except
ShowMessage('MS Word не установлен');
end;
path1 := path_to_word + sr.Name;
Doc := MsWord.Documents.Open(FileName := path1, ReadOnly := true);
tab := MsWord.ActiveDocument.Tables.Count;
for i := 1 to tab do
begin
tbl := Doc.Tables.Item(i);
if (trim(Tbl.Cell(1,1).Range.Text) = 'Фамилия') then
begin
count := Tbl.Rows.Count;
for j := 2 to count do
begin
name_c := trim(Tbl.Cell(j,2).Range.Text);
family_c := trim(Tbl.Cell(j,1).Range.Text);
father_c := trim(Tbl.Cell(j,3).Range.Text);
number := trim(Tbl.Cell(j,6).Range.Text);
d_rozd := Trim(Tbl.Cell(j,4).Range.Text);
// обработка данных, полученных из таблицы
// запрос
//........
end;
end;
end;
MsWord.Document.Save;
MsWord.Quit;
end;
until FindNext(sr) <> 0;
FindClose(sr);
|
В чем дело. Заранее спасибо. |