VB.NET - Preenchendo documentos Word com dados de um DataSet

Neste artigo eu vou mostrar como você pode preencher um documento do Word, no caso um contrato, com dados de uma tabela via automação OLE usando o VB.NET.

por José Carlos Macoratti

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

"desabilita o botão para fechar o word

btnFechaWord.Enabled = False

"abre uma conexao

Dim strConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\teste\Escola.mdb"

Dim cn As OleDbConnection = New OleDbConnection(strConnection)

cn.Open()

" define um objeto dataAdapater

Dim strSql As String = "SELECT Codigo, Nome, Curso, Periodo, Mensalidade FROM Alunos"

Dim da As OleDbDataAdapter = New OleDbDataAdapter(strSql, cn)

Try

da.Fill(dsAlunos, "Alunos")

Catch ex As Exception

MsgBox(ex.Message)

End Try

carregaLista()

" fecha a conexao

cn.Close()

" Vincula o dastaset ao datagrid

dgEscola.DataSource = dsAlunos.Tables(0)

End Sub

Private Sub carregaLista()

"carrega o listbox com o nome dos alunos para seleção

Try

For i = 0 To dsAlunos.Tables(0).Rows.Count - 1

Me.lstEscola.Items.Add(dsAlunos.Tables(0).Rows(i).Item(1))

Next

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

Private Sub btnGeraAviso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGeraAviso.Click

Dim data As Date

data = Today

Try

"Instancia a Aplicação Word.

objWord = CreateObject("Word.Application")

"Abre o documento aviso.doc do Microsoft Word.

objWord.Documents.Open("d:\teste\aviso.doc")

"Percorre o DataSet

For i = 0 To dsAlunos.Tables(0).Rows.Count - 1

"Se o nome que está no DataSet for igual ao Nome selecionado no listbox.

If lstEscola.SelectedItem = dsAlunos.Tables(0).Rows(i).Item(1) Then

"Procura pela palavra "@escola" e substitui pelo conteúdo indicado

SubstituiVariavel("@escola", "Faculdades Caminho Feliz.")

SubstituiVariavel("@data", data)

SubstituiVariavel("@nome", dsAlunos.Tables(0).Rows(i).Item(1))

SubstituiVariavel("@curso", dsAlunos.Tables(0).Rows(i).Item(2))

SubstituiVariavel("@Periodo", dsAlunos.Tables(0).Rows(i).Item(3))

SubstituiVariavel("@mensalidade", Format(dsAlunos.Tables(0).Rows(i).Item(4), "R$#,##0.00;(R$#,##0.00)"))

SubstituiVariavel("@diretor", "Dr. Jose C. Macoratti")

End If

Next

If MsgBox("Confirma abertura do documento?", MsgBoxStyle.YesNo, "Microsoft Word - Aviso.doc") = MsgBoxResult.Yes Then

"torna o Word visivel

objWord.visible = True

"habilita o botão para fechar o word sem salvar

btnFechaWord.Enabled = True

Else

fechaword()

End If

Catch ex As Exception

objWord.ActiveDocument.Close(False)

objWord.Quit()

objWord = Nothing

MsgBox(ex.Message)

End Try

End Sub

Private Sub SubstituiVariavel(ByVal Achar As String, ByVal Substituir As String)

"procura a variável e substitui o valor

With objWord.Selection.Find

.Text = Achar.ToString

.Replacement.Text = Substituir.ToString

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

While .Execute = True

objWord.Selection.Select()

System.Windows.Forms.Clipboard.SetDataObject(Substituir)

objWord.Selection.Paste()

End While

End With

End Sub

Private Sub fechaWord()

"Fecha o documento Word sem salvar

objWord.ActiveDocument.Close(False)

"Fecha o Word

objWord.Quit()

objWord = Nothing

End Sub

Private Sub btnFechaWord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFechaWord.Click

fechaword()

End Sub