while not adoquery3.Eof do
begin

temp:=format('%d.%s',[STH,adoquery3.FieldValues['nr']]);
WordDocument1.Range.InsertAfter(temp+#13+#13); //插入内容
//移入图片
if not tblobfield(adoquery3.FieldByName('ts')).IsNull then //图片移入 begin
//**********这里不知道为什么还要再重复一次，不然内容不能显示
temp:=format('%d.%s',[STH,adoquery3.FieldValues['nr']]);
WordDocument1.Range.InsertAfter(temp+#13+#13);
//****************************************************************
dbimage2.CopyToClipboard;
WordDocument1.Sentences.Last.Paste;
WordDocument1.Range.InsertAfter(#13);
end;

//stda.Add(adoquery3.FieldValues['da']); //记下每一小题的答案
STH:=STH+1;
adoquery3.Next;
end;

问题出在：WordDocument1.Sentences.Last.Paste这句，运行后出现下面的提示
---------------------------
Debugger Exception Notification
---------------------------
Project MO.exe raised exception class EOleException with message '命令失败'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

请问应该怎么做呢？