none
como pasar datos de un formulario a un a Word Visual Studio RRS feed

  • Pregunta

  • Hola muy buenas Tardes tengo el siguiente codigo en visual studio

    Imports Microsoft.Office.Interop.Word
    Imports System.IO
    Imports Microsoft.Office.Interop
    Imports intancia_word = Microsoft.Office.Interop

    Public Class Historial

        Dim MSWord As New Word.Application
        Dim documento As Word.Document

        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

            Dim nomPac As String = txtNombrePac.Text

            FileCopy("I:\Clinica Actualizado 03-10-17 Correcto3\Plantilla Historial.docx", "I:\Clinica Actualizado 03-10-17 Correcto3\Plantilla Historial_" + nomPac + ".doc")
            documento = MSWord.Documents.Open("I:\Clinica Actualizado 03-10-17 Correcto3\Plantilla Historial_" + nomPac + ".doc")

            documento.Bookmarks.Item("Nombres").Range.Text = txtNombrePac.Text
            documento.Bookmarks.Item("Apellidos").Range.Text = txtApePac.Text
            documento.Bookmarks.Item("Estado").Range.Text = txtEstadoPac.Text
            documento.Bookmarks.Item("detalle").Range.Text = txtDetalleEstado.Text
            documento.Bookmarks.Item("fecha").Range.Text = txtFechaAten.Text
            documento.Bookmarks.Item("turno").Range.Text = txtTurnoAte.Text

            documento.Save()
            MSWord.Visible = True

            documento.Close()

        End Sub
    End Class

    eso me permite guardar los datos de los textos que tengo en el formulario y imprimir en el Word , me sale a la primera pero quiero volver a imprimir y me sale el siguiente error.

    {"El servidor RPC no está disponible. (Excepción de HRESULT: 0x800706BA)"}ayuden me por favor


    William Daniel

    • Cambiado Enrique M. Montejo jueves, 12 de octubre de 2017 15:50 Programación con Microsoft Word.
    domingo, 8 de octubre de 2017 20:43