Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Помогите с автоматизацией word  (Прочитано 3691 раз)
0 Пользователей и 1 Гость смотрят эту тему.
LexxK
Гость
« : 17-09-2008 05:10 » 

Плз подскажите как из Buildera 6 открыть документ word и произвести в него запись икак работает ф-ция ChangeFileOpenDirectory. Заранее благодарен.
Записан
sss
Специалист

ru
Offline Offline

« Ответ #1 : 17-09-2008 07:32 » 

Упрощенный код.

Код:

#include "Word_2K_SRVR.h"

bool opendoc( const wchar_t* fname)
{
  VARIANT v = {0};
  TWordApplication  *Word = NULL;

  try
  {
    Word = new TWordApplication( NULL);
    v.vt = VT_BSTR;
    v.bstrVal = SysAllocString( fname);
    Word->Connect();
    Word->Documents->Add ( &v);
    Word->set_Visible( 0xFFFF);
    return true;
  }
  catch(...)
  {
    if ( Word) Word->set_Visible( 0xFFFF);
    if ( v.bstrVal) SysFreeString( v.bstrVal);
  }
  return false;
}
Записан

while (8==8)
LexxK
Гость
« Ответ #2 : 18-09-2008 15:53 » 

Ещё вопрос как привести AnsiString к wchar_t
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines