麻烦哪位过来帮我看看这个错误提示是什么意思

Question

麻烦哪位过来帮我看看这个错误提示是什么意思调试的时候显示为:
Project Mysss.exe Raised exception class EOleSysError with message '操作无法使用' Process stopped Use Step Or Run to Continum.停在：V:=GetActiveOleObject('Word.Basic');
整个函数是：
//**********************************************************************
// GN: InsertdataToWord
// CS: S a String;
// HJ: Delphi7
//**********************************************************************  
procedure insertdatatoword(S:string);
var
  V:Variant;
begin
  try
    V:=GetActiveOleObject('Word.Basic');
  except
    V:=CreateOleObject('Word.Basic');   
    v.filenew;  end;
  v.AppShow;  
  V.Insert(s);
end;  另外，我还想问一下 这里的 S 最大可以传多少个字符 
谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  WordApp: IUnknown;
begin
  if Succeeded(GetActiveObject(ProgIDToClassID('Word.Application'), nil, WordApp)) then
    begin
      ShowMessage('已打开了Word!');
    end;
end;你这样使用吧..............................

Answer 2

这个大概说明'Word.Basic'对象目前没有激活的实例。
不过也许有其他原因。