Question

我是ASP的新手。应用程序尝试创建Word文档时出现错误。有时会在不同的机器和某些用户中发生这种情况，而我无法在测试环境中进行复制（仅在生产环境中）。而且在我的工作场所非常有限，我可以尝试而不问生产区域。

这是错误：

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

我是否可以通过其他方式插入条形码来避免出现这些行？有人知道为什么会出现此错误？一些提示环顾四周？

任何帮助将不胜感激，谢谢！

使用ASP

0 个答案: