在存儲過程中調用外部對象進行簡繁互換

/*
  Description:
  Need Office 2000
 
 參數說明:
-------------------------------------------------------
 @TransType  轉換類型
     0 -- GB->Big5
     1 -- Big5->GB 
 @sInText  文本
 @sOutText   返回文本
-------------------------------------------------------
*/

ALTER  Proc spConverter @TransType tinyint,@sInText Nvarchar(4000),@sOutText Nvarchar(4000)OUTPUT
AS

 DECLARE @WordApplication int
 DECLARE @ErrHandler int
 DECLARE @Document int
 DECLARE @Selection int
 DECLARE @Message NVARCHAR(4000)
 DECLARE @src varchar(255), @desc varchar(255)
 --Create Word instance
 EXEC @ErrHandler = sp_OACreate 'Word.Application', @WordApplication OUT
 IF @ErrHandler != 0
 BEGIN
    EXEC sp_OAGetErrorInfo @WordApplication, @src OUT, @desc OUT
    SELECT hr=convert(varbinary(4),@ErrHandler), Source=@src, Description=@desc
     RETURN
 END
 ---// create instance end
 --Create a word document instance
 EXEC @ErrHandler = sp_OACreate 'Word.Document', @Document OUT
 IF @ErrHandler != 0
 BEGIN
    EXEC sp_OAGetErrorInfo @Document, @src OUT, @desc OUT
    SELECT hr=convert(varbinary(4),@ErrHandler), Source=@src, Description=@desc
     RETURN
 END
 --//
 ---
 EXEC @ErrHandler = sp_OAGetProperty @Document, 'Application.Selection', @Selection OUT
 IF @ErrHandler != 0
 BEGIN
    EXEC sp_OAGetErrorInfo @Document
     RETURN
 END
 
 EXEC @ErrHandler = sp_OASetProperty @Selection, 'Text', @sInText
 IF @ErrHandler != 0
 BEGIN
    EXEC sp_OAGetErrorInfo @Selection
     RETURN
 END
 
 EXEC @ErrHandler = sp_OAMethod @Selection, 'Range.TCSCConverter',NULL,@TransType,1,1
 IF @ErrHandler != 0
 BEGIN
    EXEC sp_OAGetErrorInfo @Selection
     RETURN
 END
 
 EXEC @ErrHandler = sp_OAGetProperty @Selection, 'Text', @sOutText OUT
 IF @ErrHandler != 0
 BEGIN
    EXEC sp_OAGetErrorInfo @Selection
     RETURN
 END
 ---
 EXEC @ErrHandler = sp_OADestroy @WordApplication
 IF @Errhandler != 0
 BEGIN
    EXEC sp_OAGetErrorInfo @WordApplication
     RETURN
 END
 ---
 EXEC @ErrHandler = sp_OADestroy @Document
 IF @Errhandler != 0
 BEGIN
    EXEC sp_OAGetErrorInfo @Document
     RETURN
 END
 EXEC sp_OAStop
 RETURN