无法在服务器 VB.Net 上打开 Word 模板

问题描述

我的以下代码在本地运行，我们在服务器上安装了 Microsoft Word。在我的解决方案项目中，我们有一个名为“Patients”的文件夹，其下有一个名为“Test1”的单词模板。

     Protected Sub btnPatientDoc_Click(sender As Object,e As EventArgs)

        Dim fLocation = Server.MapPath("~/Patients/Test1.docx")
        
        Dim id As String = Request.QueryString("ID")

        Dim applicationWord = New Microsoft.Office.Interop.Word.Application()

        applicationWord.Visible = True

        Dim doc As Document = applicationWord.Documents.Open(fLocation)

        doc.Activate()


        Dim patientFirstName = (From x In dbo.Patient Where x.ID= id Select x.firstname).FirstOrDefault()

        Dim patientSurnameName = (From x In dbo.Patient Where x.ID = id Select x.lastname).FirstOrDefault()

        doc.Content.Find.Execute("PATIENTS FULL NAME",False,True,1,patientFirstName + " " + patientSurnameName,2,False)

        doc.Content.Find.Execute("Date",Today.Date(),False)

End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）