USES  ..,Word2000,..
.....
var
   FileName  : TFileName;
   WordApp  : TWordApplication;
   Doc         : WordDocument;
   Range      : Word2000.Range;
   MyText    : OleVariant;
begin
   WordApp       := TWordApplication.Create(nil);
   WordApp.ConnectKind := ckNewInstance;
   WordApp.Connect;
   Doc       := WordApp.Documents.Add   (EmptyParam,EmptyParam,EmptyParam,EmptyParam);
   Range := Doc.GoTo_(wdGoToHeading, EmptyParam, EmptyParam, EmptyParam);
   if Range <> nil then
    begin
     Range.InsertFile(FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
     Range := Doc.GoTo_(wdGoToBookmark,EmptyParam,EmptyParam,'MyBookMark');
     Range.Text := MyText;
    end
   WordApp.Visible := true;
end