Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > C++ Builder > Сбросить выделение в Word-документе

Автор: Нитонисе 7.1.2010, 22:35

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

Код

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

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

Автор: Нитонисе 8.1.2010, 16:30

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

Код


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

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

Код


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

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

Автор: 586 8.1.2010, 17:12

Цитата(Нитонисе @ 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

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