Ошибка при создании текстового документа с ASP

Question

я новичок в asp. У меня ошибка при попытке приложения создать текстовый документ. Это иногда случается на разных машинах и у некоторых пользователей, и я не могу воспроизвести их в среде тестирования (только на производстве). А на моем рабочем месте очень ограничено то, что я могу попробовать, не спрашивая производственную площадку.

Это ошибка:

SCRIPT4605: este comando no está disponible para la lectura Este método o propiedad no está disponible porque.

Translation: This command is not available for reading. This method or property is not avaiable

Я ищу ошибку в производственной среде, и она, кажется, в этих пяти строках при попытке создать сетку и вставить штрих-код (создание штрих-кода работает нормально).

Set myRange = objDoc.Range(0, 0)
    Set myTable = objDoc.Tables.Add(myRange, 1, 1)
    Set myCell = myTable.Cell(1, 1)
    myCell.Range.ParagraphFormat.Alignment = 1
    myCell.Range.InlineShapes.AddPicture "<%=archivo_temporal%>"

Итак, objDoc создан нормально, но, похоже, не имеет (зависит от пользователя и машины) метода Range ().

Вот вся функция.

Sub OpenDoc(strLocation)

    Dim iOut
    Dim oElement
    Dim objWord
    Dim doc


    Set objWord = CreateObject("Word.Application")
    objWord.Visible = true
    Set objDoc = objWord.Documents.Open(strLocation)



    codigo_barras_b64 = DecodeString("<%=codigo_barras_b64%>")

    set FSObj = Createobject("Scripting.FileSystemObject")  
    set file = FSObj.CreateTextFile("<%=archivo_temporal%>", true)          
    file.write (codigo_barras_b64)    
    set file = nothing




    Set myRange = objDoc.Range(0, 0)
    Set myTable = objDoc.Tables.Add(myRange, 1, 1)
    Set myCell = myTable.Cell(1, 1)
    myCell.Range.ParagraphFormat.Alignment = 1
    myCell.Range.InlineShapes.AddPicture "<%=archivo_temporal%>"



    iOut = objword.ActiveDocument.Variables.Add("Secretaria", "<%=sLimpiarTextArea(sValor(RSCarat, "secreDescrip"))%> ")'
    iOut = objword.ActiveDocument.Variables.Add("Autos", "<%=sLimpiarTextArea(sValor(RSCarat, "expeAutos"))%> ")
    iOut = objword.ActiveDocument.Variables.Add("Sobre", "<%=sLimpiarTextArea(sValor(RSCarat, "expeSobre"))%> ")
    iOut = objword.ActiveDocument.Variables.Add("En",  "<%=sLimpiarTextArea(sValor(RSCarat, "expeEn"))%> ")
    iOut = objword.ActiveDocument.Variables.Add("Juez",  "<%=sLimpiarTextArea(sValor(RSCarat, "juezNombres"))%> ")
    iOut = objword.ActiveDocument.Variables.Add("ExpNro",  "<%=sLimpiarTextArea(sValor(RSCarat, "expeNro"))%> ")
    iOut = objword.ActiveDocument.Variables.Add("Fecha",  "<%=sLimpiarTextArea(sValor(RSCarat, "fechaInicio"))%> ")

    objWord.ActiveDocument.Fields.Update
    objWord.ActiveDocument.SaveAs "c:\temp\tsj.doc" 
    objWord.Application.Activate



    ' Borra el archivo generado 
    Set MyFile = FSObj.GetFile("<%=archivo_temporal%>")
    MyFile.Delete

    set FSObj = nothing 
    Set objWord = Nothing
End Sub

В любом случае я могу вставить штрих-код другим способом, чтобы избежать этих строк? У кого-то есть идея, почему эта ошибка? Некоторые советы, чтобы осмотреться?

Любая помощь будет оценена, спасибо!