word

[bhy]

Здравствуйте. У меня вопрос по WordApplication. Требуется программно создать таблицу в word, примерно 4х8, в каждой ячейке должны быть 4-5 строк разного размера шрифта. Подскажите как лучше это реализовывать. Очень надо сделать

[_SERGEYX_]

http://www.delphisources.ru/pages/fa..._word_doc.html

[bhy]

может у кого нибудь есть примеры работы с таблицей и текстом в Word

[bhy]

тут все время ошибка
MsWord := GetActiveOleObject('Word.Applicatio n');

[_SERGEYX_]

Uses ComObj;

[bhy]

Uses ComObj; всё есть , ошибка не пропадает

[SNUPY]

Эмм.. как видишь там try есть не могу понять зачем так сделано... но наверно был скрытый смысл... Во время запуска не через среду Delphi ошибки не будет.. Если нажать OK в диалоге ошибки а потом F9 прога у тебя зафурычит =) Либо делай так:

{  try
    MsWord := GetActiveOleObject('Word.Application');
  except}
    try
      MsWord := CreateOleObject('Word.Application');
      MsWord.Visible := True;
    except
      Exception.Create('Error');
    end;
//  end;
  MSWord.Documents.Add;
  MSWord.Selection.Font.Size := 12;
  MSWord.Selection.TypeText('Òåêñò');
  MSWord.Selection.Font.Bold := true;
  MSWord.Selection.TypeText(#13#10'new');
  MSWord.ActiveDocument.SaveAs('C:\ex.doc');

[bhy]

надо чтобы в word формировался лист с ценниками , вот думаю как сделать, может кто-нибудь знает

[Serge_Bliznykov]

bhy, ну так код от SNUPY должен работать.
попробуйте его для начала.

[SERG1980]

чесно говоря переписывать код лень но скрин создания таблицы из книги выложу