Форум: "Основная";
Текущий архив: 2003.07.31;
Скачать: [xml.tar.bz2];

Вниз

Маленькая проблемка с MSWord   Найти похожие ветки 

← →
vic_774N   (2003-07-16 00:16) [0]

Вставляю текст в Word и пытаюсь сдвинуть курсор в конец вставленного слова

Имеем :

procedure TForm1.Button7Click(Sender: TObject);
var
Wor: Words;
ran: Range;
i: Integer;
begin
doc := WordApplication.ActiveDocument;
Wor:= doc.Get_Words;
ran:=Wor.Application.Selection.Get_Range;
ran.InsertBefore(ComboBox1.Text); // вставляю текст
ran.MoveEnd(wdWord,1); //1 здесь ошибка
end;

1 // тип и формат должны быть идентичны
формат команды такой :
MoveEnd(Unit_: OleVariant; Count: OleVariant);

какие тут грабли и как с ними бороться ?

---

← →
Wowa-K   (2003-07-16 07:05) [1]

Попробуй
var
MyCount : OleVariant;
.....
MyCount := 1;
ran.MoveEnd(wdWord,MyCount);

---

← →
vic_774N   (2003-07-16 08:33) [2]

Спасибо !
Я нашел другой вариант:

procedure TForm1.Button7Click(Sender: TObject);
var
s: Selection;
begin
WordApplication1.Connect;
s:=WordApplication1.Selection;
s.TypeText("любой текст");
end;

работает отлично !

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.07.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.01 c