WORD OLE ½d¨Ò2 Try X := GetActiveOleObject ('Word.Application'); Except On E: EOleSysError do If (E.ErrorCode = $800401E3) then X := CreateOleObject ('Word.Application') else Raise; Else Raise; end;
WORD OLE ½d¨Ò2 Try X := GetActiveOleObject ('Word.Application'); Except On E: EOleSysError do If (E.ErrorCode = $800401E3) then X := CreateOleObject ('Word.Application') else Raise; Else Raise; end;
|
|
|
|