Форум 3DNews
Вернуться   Форум 3DNews > Программирование > Программирование

Ответ Создать новую тему
Опции темы Опции просмотра
Непрочитано 07.08.2006, 15:53   [включить плавающее окно]   #1
13march
Мужской Заслуженный
Автор темы
 
Аватар для 13march
 
Регистрация: 26.04.2006
Unhappy Builder+Word Замена текста

Код:
AnsiString templatepath; // путь к шаблону
TVariant doc; // Путь к шаблону

templatepath = HomeDir + "\\шаблон.doc";
doc = (TVariant)templatepath;

WordApp->Disconnect(); // если не делать иногда может возникать ошибка
WordApp->Connect();
WordApp->Documents->Add(&doc, EmptyParam, EmptyParam, EmptyParam); // Шаболон должен существовать
WordDoc->ConnectTo(WordApp->ActiveDocument); // Делаем активным документ, что бы замены производились в нем

WordDoc->Content->Find->Execute((TVariant)"abcd",
     (TVariant)NULL, (TVariant)NULL, (TVariant)NULL, (TVariant)NULL, (TVariant)NULL, (TVariant)NULL,
     (TVariant)wdFindContinue, (TVariant)NULL,
     (TVariant)"Hello",
     (TVariant)wdReplaceAll,
     (TVariant)NULL, (TVariant)NULL, (TVariant)NULL, (TVariant)NULL);
При выполнении последнего метода вылетает ошибка HRCHECK: Заглушке переданы неправильные данные.
Что неправильно? Никак не могу разобраться, запарился.
__________________
__________________
__________________
13march вне форума  
Конфигурация ПК
Ответить с цитированием
Непрочитано 08.08.2006, 14:23   [включить плавающее окно]   #2
Phodopus
Мужской Продвинутый
 
Регистрация: 05.10.2005
Адрес: Санкт-Петербург
Изменил твой примерчик до банального...
Код:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TVariant docFileName = "C:\\шаблон.doc";
  WordApp->Connect();
  WordApp->Documents->Add(docFileName, EmptyParam, EmptyParam, EmptyParam); // Шаболон должен существовать
  WordDoc->ConnectTo(WordApp->ActiveDocument); // Делаем активным документ, что бы замены производились в нем

  TVariant strFindFor = "abcd", strReplaceWith = "Hello";
  WordDoc->Content->Find->Execute(strFindFor, EmptyParam, EmptyParam,
    EmptyParam, EmptyParam, EmptyParam, EmptyParam, (TVariant)wdFindContinue,
    EmptyParam, strReplaceWith, (TVariant)wdReplaceAll, EmptyParam, EmptyParam,
    EmptyParam, EmptyParam);
  WordApp->set_Visible(TRUE);
}
Работает.
C++ Builder 6 Pro ServicePack 4, 6.0.10.166.
Office XP Pro Service Pack 3.
Phodopus вне форума  
Ответить с цитированием
Непрочитано 09.08.2006, 09:45   [включить плавающее окно]   #3
13march
Мужской Заслуженный
Автор темы
 
Аватар для 13march
 
Регистрация: 26.04.2006
Аааааа,зараза.
Проверил на другом компе - работает. Надо Office переустановить.....
Phodopus спасибо за помощь.

13march добавил :

Так и есть, переустановкой Office проблема была решена.

13march добавил :

...Но появилась другая: не изменяется текст в полях "надпись" с панели "Рисование".
В тексте, таблицах изменяется, а в "надписях" нет.
Макрос, записанный в Word-е проблему не проясняет. Кто знает решение проблемы - подскажите.
__________________
__________________
__________________
13march вне форума  
Конфигурация ПК
Ответить с цитированием
Непрочитано 09.08.2006, 12:53   [включить плавающее окно]   #4
Phodopus
Мужской Продвинутый
 
Регистрация: 05.10.2005
Адрес: Санкт-Петербург
Может флаг какой в ф-ии Find->Execute надо выставить?
Посмотрю..
Phodopus вне форума  
Ответить с цитированием
Непрочитано 09.08.2006, 14:20   [включить плавающее окно]   #5
13march
Мужской Заслуженный
Автор темы
 
Аватар для 13march
 
Регистрация: 26.04.2006
Макрос, записанный в ворде ранее при изменении, тоже не изменяет текст в полях "набпись"
__________________
__________________
__________________
13march вне форума  
Конфигурация ПК
Ответить с цитированием
Ответ Создать новую тему

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 12:14. Часовой пояс GMT +3.


Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd. Перевод: zCarot
Copyright © 2000-2017 3DNews. All Rights Reserved.
Администрация 3DNews требует соблюдения на форуме правил и законов РФ
Серверы размещены в Hostkey