VPF::Работа с WORD - Форум программистов

Martin_8

Дата 26.11.2006, 19:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 93
Регистрация: 16.10.2006
Где: Минск

Репутация: нет
Всего: нет

Я пытаюсь, создать приложение, для вывода отчёта в формате .doc. Подключаю word документ так (код подсмотрел у кого-то здесь на форуме):

Код


OleVariant Template = EmptyParam;
OleVariant NewTemplate = false;
...
try {
WordApplication1->Connect();
}
catch (Exception &exception) {
MessageDlg("Ошибка ", mtError, TMsgDlgButtons() << mbYes, 0);
Abort();
}

//WordApplication->Visible=true;
TVariant a, b;
a = 0;
b = 0;
WordApplication1->Documents->Add(Template, NewTemplate);
WordDocument1->ConnectTo(WordApplication1->Documents->Add());
WordDocument1->Activate();
WordApplication1->set_Visible(true);

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

И ещё вопрос:
2) Как можно программно перейти на следующую строчку?

В следующем коде не происходит отключении полужирного, и весь программно добавляемый текст продолжает остоваться полужирным.

Код


WordDocument1->Range(EmptyParam, EmptyParam)->Font->Bold=1;
WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr(rekv2));
WordDocument1->Range(EmptyParam, EmptyParam)->Font->Bold=0;

3) Собственно, вопрос, почему?

Reptile

Дата 27.11.2006, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 115
Регистрация: 30.9.2006
Где: Украина, Первомай ск

Репутация: 2
Всего: 3

1) По моему(проверить не могу) ошибка сдесь

Код


WordApplication1->Documents->Add(Template, NewTemplate);
WordDocument1->ConnectTo(WordApplication1->Documents->Add());

Попробуй убрать первую строку.
2)В Delphi

Код


WordApplication1.Selection.TypeText(' Hello ');
WordApplication1.Selection.TypeText(' Пока ');

Таким образом слова будут в разных строках.
3)А попробуй через Selection

Код


       WordApplication1.Selection.Font.Bold :=1 ;

Извените если ощибаюсь Builder-а нет, проверить не могу smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »