Показать сообщение отдельно
  #2  
Старый 23.03.2010, 10:09
Аватар для TOJluK
TOJluK TOJluK вне форума
Местный
 
Регистрация: 25.02.2009
Адрес: Минск
Сообщения: 551
Версия Delphi: 2007
Репутация: 110
По умолчанию

Ну так и в чем проблема? Да, такое можно реализовать. Один из способов- берешь шаблон, расставляешь в нем метки, и потом по ним перемещаешься уже в дэлфи.

Ворд открываешь так:
Код:
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;

Ответить с цитированием