WORD生成完全通用组件新鲜上市

呵，我的e-mail是[email protected]是不是免费的？：）

解决方案 »

  1.   

    send me to [email protected]. 3x
      

  2.   

    send to me [email protected]
      

  3.   

    [email protected]
    thank you
      

  4.   

    交个朋友吧 [email protected]
      

  5.   

    能否让俺也学学：
    [email protected]
      

  6.   

    谢谢
    我的电邮：[email protected]
      

  7.   

    学习，谢谢，[email protected]
      

  8.   

    Public Function word_exe(ByVal filename, ByVal find_str, ByVal change_str) As StringDim wdapp As New Word.ApplicationOn Error GoTo e1
    Dim f_str() As String, c_str() As String, i As Integer
    wdapp.Visible = False
    wdapp.Documents.Open filename
    f_str = Split(find_str, "|")
    c_str = Split(change_str, "|")
    For i = 0 To UBound(f_str)
        wdapp.ActiveDocument.Content.Find.Execute f_str(i), , True, , , , , , , c_str(i), 2
    Next i
    wdapp.ActiveDocument.Save
    wdapp.ActiveDocument.Close
    wdapp.QuitSet wdapp = Nothing
    word_exe = "OK"
    Exit Function
    e1:
        wdapp.Quit
        Set wdapp = Nothing
        Dim ErrMsg As String
        ErrMsg = "Error Number:" & Err.Number & "<br><br>"
        ErrMsg = ErrMsg & "Error Source:" & Err.Source & "<br><br>"
        ErrMsg = ErrMsg & "Error Description:" & Err.Description & "<br><br>"
        word_exe = ErrMsg
        Exit FunctionEnd Function
    我写的这个有什么错，为什么vb调用正常，用asp调用就报错呢，是不是服务有什么要求啊？
      

  9.   

    这段代码你放在VB端还是ASP端，HTML报错显示为何？
    如果放在VB端，把函数返回类型改成Variant试试.
      

  10.   

    很感兴趣，可以发给我一份吗？
    [email protected]
    谢谢先！！！
      

  11.   

    有趣，有用，我想要。
    [email protected]
      

  12.   

    谢谢,我也想要一份
    [email protected]
      

  13.   

    我正需要它，谢谢。
    [email protected]
      

  14.   

    谢谢,我也想要一份
    [email protected]
      

  15.   

    不错，我也想要，谢谢了，这是很好的东西，你的dll是什么语言写的
    [email protected]