none
preencher um documento word com dados form vb RRS feed

  • Discussão Geral

  • Boa Noite,

    Preciso gerar um documento do word substituindo algumas variaveis, pois é um documento pre formatado, o documento quando preenchido todos os campos gera perfeitamente, Salva de forma perfeita, porem quando algum campo fica em branco, ocorre um erro, dizendo que o campo não pode ser nulo. Alguém sabe como resolver esse problema?

    Segue meu codigo

    Private Sub sub_dados(ByVal header As String, ByVal Data As String)
            With objWord.Selection.Find
                .ClearFormatting()
                .Text = header
                .Execute()
                .Forward = True

            End With
            Clipboard.Clear()
            Clipboard.SetText(Data)
            objWord.Selection.Paste()
            Clipboard.Clear()

        End Sub

    "e para fazer a chamada e substituição das variaveis"

    objWord = New Microsoft.Office.Interop.Word.Application
            objDoc = objWord.Documents.Open("C:\Laudos_Doc\Doc\Histeroscopia.docx")

            Call sub_dados("@nome", txtNome.Text)
            Call sub_dados("@data", txtData.Text)
            Call sub_dados("@idade", txtIdade.Text)
            Call sub_dados("@DUM", txtDUM.Text)
            Call sub_dados("@diaciclo", txtDiaCiclo.Text)
            Call sub_dados("@paridade", txtParidade.Text)
            Call sub_dados("@DiagPreHistero", txtDiagpreHistero.Text)

             

            objWord.ActiveDocument.SaveAs("C:\Laudos_Doc\" + txtNome.Text)
            objWord.Quit()

            MessageBox.Show("Arquivo gerado com sucesso", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Information)

            objWord = Nothing

    Espero que alguém possa me ajudar.


    • Editado Sicasisi domingo, 7 de agosto de 2016 22:45 erro
    sábado, 6 de agosto de 2016 02:25