Dim wordObjUtils
   Dim xlsObjUtils
   
   Function EncodeFileToString(sFileName)
      Set utils = CreateObject("EsUtils.CFileUtil")
      EncodeFileToString = utils.EncodeFileToString(sFileName)
      utils.RemoveFile sFileName
   End Function
   
   Function EncodeFileToStringWithoutRemove(sFileName)
      Set utils = CreateObject("EsUtils.CFileUtil")
      EncodeFileToStringWithoutRemove = utils.EncodeFileToString(sFileName)
   End Function
    
   Function GetTempoPath()
      Set utils = CreateObject("EsUtils.CFileUtil")
      GetTempoPath = utils.GetTmpPath()
   End Function
    
   Function RemoveFile(sFileName)
      Set utils = CreateObject("EsUtils.CFileUtil")
      utils.RemoveFile sFileName
   End Function
    
   Sub DecodeStringToFile(sBase64, sFileName)
      Set utils = CreateObject("EsUtils.CFileUtil")
      utils.DecodeStringToFile sBase64, sFileName
   End Sub

   Function openDocument(localFileName)
      Set wordObjUtils = CreateObject("Word.Application")
      wordObjUtils.visible = True
      wordObjUtils.Documents.Open localFileName
   End function
     
   Sub CheckInFromWord_SetDocParam(key, value)
   if (isNull(wordObjUtils.ActiveDocument.Variables(key))) Then
      wordObjUtils.ActiveDocument.Variables.Add key, value      
   else
      wordObjUtils.ActiveDocument.Variables(key).value = value
   End If
   End Sub
   
   Sub CheckInFromWord_documentSetFocus()  
      strMacroName = "IK_DocFlow.IK_DocFlowCheckIn.IK_DocFlow_SetFocus"
      On Error Resume Next
      wordObjUtils.Run strMacroName   
   End Sub

       
   Function xls_openDocument(localFileName)
      ' MsgBox "xls_openDocument localFileName = " & localFileName
      Set xlsObjUtils = CreateObject("Excel.Application")
      xlsObjUtils.visible = True
      xlsObjUtils.Workbooks.Open localFileName
   End function
     
     
   Sub xls_CheckInFromExcel_SetUrl(value)
      xlsObjUtils.ActiveWorkbook.Worksheets("ever").Range("A1").Formula = value
   End Sub
   
   Sub xls_CheckInFromExcel_SetRecordId(value)
      xlsObjUtils.ActiveWorkbook.Worksheets("ever").Range("A2").Formula = value
   End Sub
   
   Sub xls_CheckInFromExcel_SetVersionId(value)
      xlsObjUtils.ActiveWorkbook.Worksheets("ever").Range("A3").Formula = value
   End Sub


   
   Sub xls_CheckInFromExcel_documentSetFocus()  
      strMacroName = "IK_DocFlow.IK_DocFlowCheckIn.IK_DocFlow_SetFocus"
      On Error Resume Next
      xlsObjUtils.Run strMacroName   
   End Sub