Как вставить строку в док-т Word программно из Д5??? [D5, Win2k]
Barabashka © (2002-04-01 16:00:00)
если мне надо вставить текст в конкретное место в док-те
пр. надо вставить в 5 строку с 19 позиции...
есть ли какие-либо параметры для Insert?
W := CreateOLEObject("Word.Application"); //Word 8
W.Documents.Open (FileName:="....\oblu.doc");
W.ActiveDocument.Range(Start:=0, End:=0);
W.ActiveDocument.Range.Insert(Text:="Title");
AFROLOV (2002-04-01 16:55:00) [1]
Должно сработать:
const wdLine=5;
const wdCharacter=1;
const wdMove=0;
...
W.Selection.Start:=W.ActiveDocument.Range.Start;//Устанавливаем
Selection в начало документа
W.Selection.End:=W.ActiveDocument.Range.Start;//Снимаем
выделение
W.Selection.MoveDown(wdLine, 5,wdMove);//Смещаемся на 5 строк
вниз
W.Selection.MoveRight(wdCharacter,19,wdMove);//Смещаемся на
19 позиций в право
W.Selection.TypeText("Мой текст"); // впечатываем свой текст
//или если из буфера то
W.Selection.Paste;
..
Хотя для вставки текста в бланки лучше на позиции в документе
не закладываться. Так как такой подход при любом изменении бланка
потребует переписывания программы. В Word есть такая штука как
FormField - поля которые могут быть проименованы при создании
бланка. Тогда вставка текста в такое поле примет вид:
W.ActiveDocument.FormFields.Item("Field1").Result:="Мой
текст";
Наверх 
ЧАТ |
Орешник |
|
