oDoc.Tables(TableCount).Cell(StepNum, 1).Range.InsertFile ("File.html")

oWord.selection.InsertFile("File.html")

Function fFillWordTable(ByVal strSteps As String, ByRef oDoc As Object, ByVal _
  StepNum As Integer, ByVal TableCount As Byte, ByVal strStep As String, ByVal _
  strDesc As String, ByVal strExpRes As String)
 
        Dim r As Word.Range
        Dim DescFileExist As Boolean
        Dim ExpResFileExist As Boolean
 
        'Delete existent files
        File.Delete("C:\Desc.html")
        File.Delete("C:\ExpRes.html")
 
        'Write variable in temporary file
        fileIO.WriteFile(strDesc, "C:\Desc.html")
        fileIO.WriteFile(strExpRes, "C:\ExpRes.html")
 
        'Check if Files are written
        DescFileExist = File.Exists("C:\Desc.html")
        ExpResFileExist = File.Exists("C:\ExpRes.html")
 
        'First cell, insert variable directly
        r = oDoc.Tables(TableCount).Cell(StepNum, 1).Range
        r.Text = strStep
 
       'Second cell, insertFile
        If DescFileExist = True Then
            r = oDoc.Tables(TableCount).Cell(StepNum, 2).Range
            r.InsertFile("C:\Desc.txt")
        End If
 
        'Third cell, insertFile
        If ExpResFileExist = True Then
            r = oDoc.Tables(TableCount).Cell(StepNum, 3).Range
            r.InsertFile("C:\ExpRes.txt")
        End If
    End Function