[tinky]

Доброго времени суток! Возникла проблема с распознаванием программой типа шрифта в месте нахождения курсора.

Код:

type
  ...
  WordDocument1: TWordDocument;
  ...
 
var
  MsWord: Variant;
  i,c: integer;
  s:string;
 
...
 
 for i:=1 to Length(MsWord.Activedocument.Range.Text) do
  begin
    s:=MsWord.ActiveDocument.Range(i-1,i);
    Edit1.Text:=s;
    MsWord.ActiveDocument.Range.Select;
    MsWord.Selection.Start:=i-1;
    MsWord.Selection.End:=i;
    If WordDocument1.Range.Font.Bold=1 then Label2.Caption:="Жирный" else Label2.Caption:="нормальный"
    Label1.Caption:=MSWord.Selection.Font.Size;
  end;

программа работает нормально без предпоследней строчки, но при ее добавлении возникает ошибка "Значение лежит вне допустимого диапазона". К тому же открывается новый документ, хотя уже есть один запущенный(в свойствах worddocumentа - ckRunningOrNew). Все i перетыкал ничего не спасет
Люди, помогите, в чем проблема?((