Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.10.2013, 14:40   #1
gromdel
Пользователь
 
Регистрация: 24.04.2012
Сообщений: 70
По умолчанию Добавить картинку в Word

Добрый день. Начал работать с ворд из делфи.
Разобрался как вставлять текст в готовый шаблон:
Код:
var
  word : variant;
  procedure FindAndReplace (SearchStr, ReplaceStr : string);
  begin
    word.Selection.Find.Text := SearchStr;
    word.Selection.Find.Replacement.Text := ReplaceStr;
    word.Selection.Find.Execute (Replace := 2);
  end;
begin
    try
      Word := CreateOleObject('Word.Application');
    except
      MessageBox (Handle, 'Не установлен Microsoft Office Word. 
                          MB_OK or MB_ICONERROR);
      exit;
    end;
  word.documents.open (ExtractFilePath(Application.ExeName) +'1.dotm');
  FindAndReplace ('111', 'cool');

  word.Visible := true;
  word := Unassigned;
    end;
теперь нужно вставить картинку в этот же шаблон вордовский в определенное место. Какими методами надо пользоваться?? Что-нибудь ОЛЕ объекты или??
Заранее спасибо.

P.S. добавлю. Смотрел вариант из вашего справочника темой выше. там пример указан:
Код:
var direction:olevariant;
line:integer;
begin
wordapplication1.connect;
wordapplication1.visible:=true;
wordapplication1.documents.add(emptyparam,emptyparam);
wordapplication1.selection.insertafter('Ðèñóíîê:'+#13);
//Âûâîä òåêñòà,
//#13 - ïåðåâîä ñòðîêè

direction:=0;
wordapplication1.selection.collapse(direction); 
// ñíÿòü âûäåëåíèå

clipboard.assign(image1.picture);
wordapplication1.selection.paste;//Âûâîä ðèñóíêà

wordapplication1.disconnect;
end;
Его можно ли переделать? я просто не могу понять как указать место в ворде. куда вставить рисунок

Последний раз редактировалось gromdel; 13.10.2013 в 14:51.
gromdel вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Добавить картинку в Word из MemoryStream alexan0308 Общие вопросы Delphi 0 04.04.2013 15:28
Добавить картинку в xsl Aleksey1989 JavaScript, Ajax 3 24.02.2012 13:52
Картинку из Word в PowerPoint Gepar Microsoft Office Word 6 21.12.2011 19:21
Не могу добавить картинку в полотно viter.alex Microsoft Office Word 1 26.01.2009 19:00
Как на кнопку добавить картинку? xTANATOSx Общие вопросы Delphi 3 05.11.2007 13:11