VPF::Сбросить выделение в Word-документе

Нитонисе

Дата 7.1.2010, 22:35 (ссылка)

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

Загрузка ...

Опытный

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

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

Заношу в Word-документ текст:

Код

WordApplication1->Selection->set_Text(StringToOleStr("Текст"));

Однако он после этой процедуры подсвечен. Далее у меня идет процедура вставки и соответственно выделенный фрагмент удаляется. Как сбросить выделение?

Нитонисе

Дата 8.1.2010, 16:30 (ссылка)

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

Загрузка ...

Опытный

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

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

Вот как выглядит макрос сдвига курсора на один пункт вправо:

Код


Sub Макрос()
   Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

Как это переписать в билдер?

Код


WordApplication1->Selection->MoveRight(tagVARIANT *Unit, tagVARIANT *Count, tagVARIANT *Extend);

Что за параметры у это функции? с юнитом и каунтом более менее понятно, но прямая подстановка правомочна?

586

Дата 8.1.2010, 17:12 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2243
Регистрация: 8.5.2006

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

Цитата(Нитонисе @ 8.1.2010, 16:30

)

Код


Sub Макрос()
   Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

Как это переписать в билдер?

примерно так:

Код

#define wdCollapseEnd 0
#define wdPageBreak 2
#define wdLine 5
#define wdcharacter 1

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    WordApplication1->Selection->MoveRight(TVariant(wdCharacter), TVariant(1), EmptyParam);
}

Нитонисе

Дата 8.1.2010, 17:14 (ссылка)

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

Загрузка ...

Опытный

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

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

586, работает. Спасибо smile

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