Private Sub gerarWorld()
Dim data As Date
data = Today.ToShortDateString
Dim hora As Date
hora = Today.ToLongTimeString
Try
'Instancia a Aplicação Word.
objWord = CreateObject("Word.Application")
'Abre o documento aviso.doc do Microsoft Word.
objWord.Documents.Open("D:\backup hd bixado\MEU STUDIO PRO 2019\SistemaStudioPro\SistemaStudioPro\bin\x86\Debug\templates\Carne_de_Pagamento4.doc")
'Percorre o DataSet
For i = 0 To grid.Rows.Count - 1
'Se o nome que está no DataSet for igual ao Nome selecionado no listbox.
'If ListBox1.SelectedItem = Grid.Rows(i).DataBoundItem(2) Then
If grid.Rows(i).DataBoundItem(1) = ListBox1.SelectedItem Then
'Procura pela palavra "@escola" e substitui pelo conteúdo indicado
'DATA DO DOCUMNENTO
SubstituiVariavel("@dataDocumento", data)
SubstituiVariavel("@nomeCliente", grid.Rows(i).DataBoundItem(1))
SubstituiVariavel("@cpf", grid.Rows(i).DataBoundItem(2))
SubstituiVariavel("@enderecoCliente", grid.Rows(i).DataBoundItem(3))
SubstituiVariavel("@servico", grid.Rows(i).DataBoundItem(4))
' SubstituiVariavel("@valor", Format(grid.Rows(i).DataBoundItem(5), "R$#,##0.00;(R$#,##0.00)"))
SubstituiVariavel("@datadoServico", grid.Rows(i).DataBoundItem(6))
'hora tem q converter para tostring
'SubstituiVariavel("@horaServico", grid.Rows(i).DataBoundItem(7).ToString)
SubstituiVariavel("@empresaprestadora", grid.Rows(i).DataBoundItem(8))
SubstituiVariavel("@cnpjouCPF", grid.Rows(i).DataBoundItem(9))
SubstituiVariavel("@enderecoEmpresa", grid.Rows(i).DataBoundItem(10))
End If
Next
If MsgBox("Confirma abertura do documento para emissão dos contratos ?", MsgBoxStyle.YesNo, "Carnê Gerado para o Microsoft Word doc") = MsgBoxResult.Yes Then
'torna o Word visivel
objWord.visible = True
'habilita o botão para fechar o word sem salvar
BtnFecharWord.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
