SergeBS
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору agMuH Я делаю по-другому: var filnam : OleVariant; s0, s1, s2 : string; WordApp, What, Which, Count, Name : OleVariant; begin ... WordApp:=CreateOleObject('Word.Application'); WordApp.Visible:=True; FilNam := Path + '\справка.doc'; try WordApp.Documents.Open(filnam); except MessageBox(Handle,'Где программа, должен быть документ "справка.doc"!','Ошибка',48); WordApp.Quit; exit; end; WordApp.Options.CheckSpellingAsYouType:=False; WordApp.Options.CheckGrammarAsYouType:=False; What := -1; // wdGoToBookmark, Which := UnAssigned; Count := UnAssigned; //дата; date0 это bookmark Name := 'date0'; WordApp.Selection.GoTo(What, Which, EmptyParam, Name); s2 := FormatDateTime('dd.mm.yyyy г.',now); WordApp.Selection.TypeText(s2); Name := 'fio1'; //bookmark WordApp.Selection.GoTo(What, Which, EmptyParam, Name); ,,,, т.е. не редактирую, а добавляю. |