Показать сообщение отдельно
  #1  
Старый 21.10.2010, 12:22
Аватар для Paskal
Paskal Paskal вне форума
Новичок
 
Регистрация: 28.09.2010
Сообщения: 93
Репутация: 12
Вопрос Заполнение шаблона Word по меткам ,?

Всем прет!
Накопал здесь примерчик как можно заполнять шаблон MSWord-а по меткам но пишет ошибочку не описан индетификатор
Код:
GetActiveOleObject
и
Код:
CreateOleObject
Подскажите пожалуйста как их описать в раздел переменных var .
И второй вопросик в данной ситуации нужно ли подключатся к серверу MSWord
WordApplication1.Connect;
WordDocument1.Connect;


Пример заполнения-->
Код:
MSWord:Variant; 
What,Which,Count,Name:OLEVariant;
begin
try
 MsWord := GetActiveOleObject('Word.Application');
 except
 try
 MsWord := CreateOleObject('Word.Application');
  except
  raise Exception.Create('Ошибка запуска Word');
  end;
 end;
 try
  MSWord.Documents.Open(Имя_файла_шаблона);
  except
  ShowMessage('Ошибка при попытке WORD загрузить шаблон!');
  exit;
  end;
  What:=-1;
  Which:=unAssigned;
  Count:=unAssigned;
  
  Name:='Имя_метки';
  MsWord.Selection.GoTo(What,Which,Count,Name);
  MsWord.selection.TypeText('Текст_метки');
  
  MsWord.Visible:=True;
Ответить с цитированием