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.
