Показать сообщение отдельно
  #7  
Старый 18.04.2007, 12:54
Аватар для merdashka
merdashka merdashka вне форума
Новичок
 
Регистрация: 03.04.2007
Адрес: Ашгабат
Сообщения: 77
Репутация: 10
Лампочка

В Word Сервис/Параметры - ставишь галочку "коды полей". Куда нужно будеть вставить данные ставишь ссылку - {DOCVARIABLE fio \* MERGEFORMAT}
(fio - это переменная заменишь на любую). После скрываешь коды полей. Сохраняешь как шаблон.

И уже в Delphi

Var
Application:variant;
begin
Application:= CreateOleObject('Word.Application');
Application.Documents.Add('c:\Viza.dot', False, 0);
Application.ActiveDocument.Variables.Item('fio').V alue := Table1.FieldByName('Name').AsString+' '+Table1.FieldByName('Familiya').AsString;
Application.ActiveDocument.Fields.Update;
Application.Visible := True;
end;

В Excel
Excel.Workbooks.Add('путь к шаблону');// а заполнять как простой лист Excel

А по поводу ориентации листа Word ничего тебе сказать не смогу, обычно в Word сначала создаются шаблоны , где устанавливается эта подлая ориентация. Короче селяви. Может нам кто еще поможет, будем уповать и молиться
Ответить с цитированием