Как переместить курсор в конец только что открытого файла, т.е. дописать текст в конец?
01.01.2007
Используем объект Selection. Объект Selection имеет поля Start и End. Эти поля имеют тип Integer и содержат номера символов начальной и конечной позиции выделенного текста. Если выделить весь документ, а затем считать значения этих полей, то сможем определить объем документа как количество символов. Если в поле Start объекта Selection записать значение из поля End этого же объекта, то курсор будет перемещен в конец документа. Используем это обстоятельство для перемещения курсора в конец документа. В Delphi это выглядит следующим образом:
Function EndOfDoc:boolean; begin EndOfDoc:=true; try W.ActiveDocument.Range.Select; W.Selection.Start:=W.Selection.End; except EndOfDoc:=false; end; End;