var VarWord: Variant;// 创建 WORD时所用
wordapplication1.Documents.Open('D:/temp/doc1.doc',
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
VarWord:=Wordapplication1.activedocument;
VarWord.Application.Selection.EndKey(unit := wdStory, Extend := wdMove);//移动光标到末尾