Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Обтекание картинки в MS Word

Автор: lexus1234567 25.9.2012, 10:46

Здравствуйте! Помогите решить проблему! Нужно программно загрузить картинку и сделать ее обтекаемой текстом, чтобы текст ее не замечал и был поверх картинки. Как это сделать? Загрузить картинку я могу, а вот как работать с обтеканием не знаю. Пробывал записывать макросы, но там много лишнего получается и поэтому сложно разобраться. Помогите, пожалуйста!

Автор: kami 2.10.2012, 15:22

Получившийся макрос выложи.

Автор: lexus1234567 2.10.2012, 16:25

ctiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, FileName:= _
"C:\Documents and Settings\777\Мои документы\Мои рисунки\Копия 12.bmp", _
LinkToFile:=False, SaveWithDocument:=True).WrapFormat.Type = wdWrapNone

Автор: kami 2.10.2012, 23:44

Перевод ничем не будет отличаться от оригинального макроса:

Код


var
  app, doc, picture:OleVariant;
begin
  wa1.Connect; // wa1 - WordApplication, брошенный на форму.
  app:=wa1.Application;
  doc:=app.ActiveDocument;
  picture:=doc.Shapes.AddPicture(FileName := 'C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg', 
            LinkToFile:=False, SaveWithDocument:=True);
  picture.WrapFormat.Type := 5; //5 - это wdWrapBehind, который моя Delphi почему-то не вспомнила.

Автор: lexus1234567 3.10.2012, 15:02

kami, спасибо!!!