![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Подскажите пожалуйста, в чем может быть ошибка здесь? Может ко построен неверно?
Код:
procedure TForm1.Button1Click(Sender: TObject); var W: olevariant; word: olevariant; i,r:integer; separat:string; s:widestring; begin W:=CreateOleObject('Word.Application'); WordApplication1.Visible:=true; word:=GetCurrentDir +'\act.doc'; WordApplication1.Documents.Add(Word,EmptyParam,EmptyParam,EmptyParam); WordDocument1.ConnectTo(WordApplication1.ActiveDocument); WordApplication1.Selection.Font.Size:=12; WordApplication1.Selection.Font.Name:='Times New Roman'; W:= CreateOleObject('Word.Basic'); W.StartOfDocument; W.EditFind('<N>'); W.Insert:=AdoQuery1.Fields.Fields[1].AsString; W.FileSaveAs('E:\пробный\act.doc'); WordApplication1.Disconnect; end; lmikle: пользуемся тегами. |
#2
|
|||
|
|||
![]() Че-то много кода лишнего.
Зачем тебе 'Word.Basic' там??? Вроде все проще делалось. Опиши словами чего ты хочешь. |
#3
|
|||
|
|||
![]() Когда в интернете смотрела, там подключался basic. Вообще смысл такой - перекинуть из adoquery нужные колонки в отчетную таблицу в word. Решила делать заменой текста, т.к. с закладками в ворде все сложнее. На данном этапе хочу первую колонку из таблицы в делфи перекинуть в нужную колонку в ворд. И добавить доп строки, если не будет хватать строк. Только пока не знаю как это сделать
|