none
Falha ao substituir variaveis Visual Basic para um template docx word RRS feed

  • Discussão Geral

  •  

    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

                                                       
    sábado, 15 de agosto de 2020 06:15

Todas as Respostas

  • terrível o fórum da microsoft não poder postar um print do meu erro com mais detalhes acho que não vou conseguir ajudar por aqui alguém me indica algum lugar de quem pode me ajudar
    domingo, 16 de agosto de 2020 04:43