Luego me cambiaron los papeles del juego y me dijeron q el office no podia estar instalado en el servidor, y mi solucion usaba Server.CreateObject("Word.Application"), que llama a un DCOM que se instala cuando instalas el office y ya pes se cae, mi pregunta es: Como puedo resolver este problema usando OPENxml o algun otro metodo q no amarre a tener q instalar el office en la servidor, o quizas alguna manera de instalar los DCOM manualmente, necesarios para que el Server.CreateObject("Word.Application") funke sin instalar el office…
Este es mi codigo:
Código:
Protected Sub btnImprimir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnImprimir.Click Dim oWord As word.Application Dim wd As word.Document Dim oTable As word.Table 'oWord = New word.ApplicationClass oWord = Server.CreateObject("Word.Application") oWord.Visible = False wd = oWord.Documents.Open(Server.MapPath("Formato_Poliza_Adminsion_Temporal.dot")) 'wd = oWord.Documents.Add(Server.MapPath("Formato_Poliza_Adminsion_Temporal.dot")) Dim r As Integer, c As Integer 'oTable = wd.Tables.Add(wd.Bookmarks.Item("\endofdoc").Range, 3, 5) oTable = wd.Tables.Add(wd.Bookmarks.Item("Mujer").Range, 3, 5) For r = 1 To 3 For c = 1 To 5 oTable.Cell(r, c).Range.Text = "r" & r & "c" & c Next Next oTable.Rows.Item(1).Range.Font.Bold = True oTable.Rows.Item(1).Range.Font.Italic = True oWord.Visible = True oWord.Activate() End Sub