Как вставить строку в док-т Word программно из Д5???

← →
Barabashka (2002-04-01 16:00) [0]

если мне надо вставить текст в конкретное место в док-те
пр. надо вставить в 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) [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:="Мой текст";

Как вставить строку в док-т Word программно из Д5??? Найти похожие ветки