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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.03.2010, 20:10   #1
FroL25
Пользователь
 
Регистрация: 03.01.2010
Сообщений: 22
По умолчанию Работа с Word

У меня такой вопрос.Я написал код который создает файл Word и добавляет в него текст.
Код:
AnsiString str;
 Variant v,v1;
 if(!fStart)
 {
  try
  {
   vVarApp=CreateOleObject("Word.Application");
   fStart=true;
  }
  catch(...)
  {
   MessageBox(0, "Îøèáêà ïðè îòêðûòèè ñåðâåðà Word",
                 "Îøèáêà", MB_OK);
  return;
  }
 }
  vVarApp.OlePropertySet("Visible",true);
  vVarDocs=vVarApp.OlePropertyGet("Documents");
  vVarDocs.OleProcedure("Add");
 if(vVarDocs.OlePropertyGet("Count") != 1)
 {
  MessageBox(0, "Îøèáêà ïðè ñîçäàíèè äîêóìåíòîâ",
                 "Îøèáêà", MB_OK);
  return;
 }
  vVarDoc=vVarDocs.OleFunction("Item",1);
 vVarDoc.OleProcedure("Activate");
 vVarParagraphs=vVarDoc.OlePropertyGet("Paragraphs");
 str="\t\tУтверждено\t\t";
  vVarParagraphs.OleProcedure("Add");
 vVarParagraph=vVarParagraphs.OleFunction("Item",1);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 AnsiString vAsCurDir1="C:\\111111111111111.doc";    
 vVarDoc=vVarDocs.OleFunction("Item",1);
 vVarDoc.OleProcedure("SaveAs",vAsCurDir1.c_str());
Все работает,но мне нужно добавить в этот файл картинки.Как это сделать?
FroL25 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работать в Word, не открывая документы (работа с закрытыми документами Word) Георгиевич Microsoft Office Word 10 07.09.2009 11:19
Работа с Word Ky3Heu, Общие вопросы Delphi 1 20.05.2009 12:06
работа с WORD Shaitan63 Помощь студентам 9 14.10.2008 07:25
Работа с Word-ом grey Помощь студентам 6 25.11.2007 14:28
Работа с Word Prowler Общие вопросы Delphi 1 14.09.2007 23:26