La situacion es la siguiente:
Necesito abrir un documento en word y para ello tengo este codigo pero me marca un error en la linea donde utilizo el CreateObject("Application.Word"), el error que dice es el siguiente:
No se puede crear el componente ActiveX.
Descripción: Excepción no controlada al ejecutar la solicitud Web actual. Revise el seguimiento de la pila para obtener más información acerca del error y dónde se originó en el código.
Detalles de la excepción: System.Exception: No se puede crear el componente ActiveX.
EL codigo que tengo es el siguiente:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mWord As Word.Application
mWord = CreateObject("Word.Application")
mWord.Documents.Open("C:\Ejemplo.doc")
ReemplazaValores(mWord, "{TipoDocumento}", "A HUEVOOOOOO")
'mWord.ActiveDocument.SaveAs(mWord.ActiveDocument. FullName.Replace(mWord.ActiveDocument.Name, "") & TipoDocumento & NumDocumento & "_" & FechaRemision.Year & ".doc")
cWord.Visible = True
cWord.ActiveDocument.SaveAs(mWord.ActiveDocument.F ullName.Replace(mWord.ActiveDocument.Name, "ahuevo.doc"))
End Sub
Private Sub ReemplazaValores(ByRef mWord As Object, ByVal CadBuscar As String, ByVal CadReemplazar As String)
mWord.Selection.Find.ClearFormatting()
mWord.Selection.Find.Replacement.ClearFormatting()
With mWord.Selection.Find
.Text = CadBuscar
.Replacement.Text = CadReemplazar
.Forward = True
.Wrap = 1
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
If Not CadReemplazar Is Nothing AndAlso Not CadReemplazar.Equals("") Then
mWord.Selection.Find.Execute(Replace:=2)
End If
End Sub
Espero que me puedan ayudar, por que tengo idea que se tenga que hacer.
