MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    formatar número e exportar para o word

    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 03/11/2014

    formatar número e exportar para o word Empty formatar número e exportar para o word

    Mensagem  baldocchi em 30/4/2019, 15:39

    Estou fazendo uma exportação para o Word de modo a gerar uma ATA.
    Consigo exportar tudo, porém, os valores vão sem a formatação.
    Estou pedindo ajuda com a formatação desses valores para exportação pois não consegui encontrar a solução.

    Abaixo segue o código que estou usando.

    Eu tentei vários tipos de formatos para o Format e alguns tipos de variáveis como Double e Single.

    Obrigado a todos.


    Código que eu uso:
    Public Sub EnviarWordIndicador()
    Dim oApp As Object 'Cria uma variável objeto
    Dim PastaArq, ArqModelo

       'seta pasta do banco de dados
       PastaArq = CurrentProject.Path

       'Indicar nome do arquivo
       'Requerimento Padrão. Argumentos: Nome, Cargo e DataNascimento
       ArqModelo = "ModeloAta.dotx"
           
       ' Inicia o MS Word
       Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
       ' Torna o MS Word visível
       oApp.Visible = True
       ' Abre o documento base
       oApp.Documents.Add (PastaArq & "\" & ArqModelo)
           
       'Move cada campo para o indicador definido no documento
       oApp.ActiveDocument.Bookmarks("atadias").Select 'Nome do INDICADOR DO WORD
       oApp.Selection.Text = (Ata_Dias)                'Nome do CAMPO DA TABELA
       
       oApp.ActiveDocument.Bookmarks("atames").Select
       oApp.Selection.Text = (Ata_Mes)
       
       oApp.ActiveDocument.Bookmarks("ataano").Select
       oApp.Selection.Text = (Ata_Ano)
       
       oApp.ActiveDocument.Bookmarks("nomepresidente").Select
       oApp.Selection.Text = (Ata_Presidente)
           
       oApp.ActiveDocument.Bookmarks("nomeAPM").Select
       oApp.Selection.Text = (NomeAPM)
       
       oApp.ActiveDocument.Bookmarks("NomedaEscola").Select
       oApp.Selection.Text = (NomeAPM)
       
       'Data e Hora da reunião da APM
       Dim sDHReuniao, sDHReuniaoL, sDHReuniaoR As String
       sDHReuniaoL = Left(Ata_Hora, 2)
       sDHReuniaoR = Right(Ata_Hora, 2)
       sDHReuniao = sDHReuniaoL & ":" & sDHReuniaoR
       oApp.ActiveDocument.Bookmarks("HorarioDaReuniao").Select
       oApp.Selection.Text = (sDHReuniao) 'Data e Hora da reunião
       
       'Nome da APM
       oApp.ActiveDocument.Bookmarks("nomedaAPM").Select
       oApp.Selection.Text = (NomeAPM)

       'Número da Convocação da Reunião
       oApp.ActiveDocument.Bookmarks("NumConvocacao").Select
       oApp.Selection.Text = (Ata_Convocacao)

       'Número do Repasse
       oApp.ActiveDocument.Bookmarks("NumRepasse").Select
       oApp.Selection.Text = (Ata_Repasse)

       'Valores Recebidos de Custeio e Capital
       Dim xVr As Double
       xVr = 0
       xVr = Format(Ata_Vr_Rec_Custeio, "0,00#.##")
       oApp.ActiveDocument.Bookmarks("VrRecebidoCusteio").Select
       oApp.Selection.Text = (xVr)

       xVr = 0
       xVr = Format(Ata_Vr_Rec_Capital, "0,00#.##")
       oApp.ActiveDocument.Bookmarks("VrRecebidoCapital").Select
       oApp.Selection.Text = (xVr)
       
       ' Período de Realização da Despesa
       Dim sFormatDatas, xFormatDatas As String
       xFormatDatas = Ata_Per_Real_Despesas
       sFormatDatas = Left(xFormatDatas, 2)
       sFormatDatas = sFormatDatas & "/" & Mid(xFormatDatas, 3, 2)
       sFormatDatas = sFormatDatas & "/" & Mid(xFormatDatas, 5, 4)
       sFormatDatas = sFormatDatas & " à " & Mid(xFormatDatas, 9, 2)
       sFormatDatas = sFormatDatas & "/" & Mid(xFormatDatas, 11, 2)
       sFormatDatas = sFormatDatas & "/" & Mid(xFormatDatas, 13, 4)
       oApp.ActiveDocument.Bookmarks("AtaPeriodoRealDespesas").Select
       oApp.Selection.Text = (sFormatDatas)

       'Valor da Poupança Ata_Vr_Apl_Poupanca
       xVr = 0
       xVr = Format(Ata_Vr_Apl_Poupanca, "0,00#.##")
       oApp.ActiveDocument.Bookmarks("VrAplicPoupanca").Select
       oApp.Selection.Text = (xVr)

       'Valores Totais de Custeio e Capital Ata_Vr_Total_Custeio Ata_Vr_Tot_Aquis_Capital
       xVr = 0
       xVr = Format(Ata_Vr_Total_Custeio, "0,00#.##")
       oApp.ActiveDocument.Bookmarks("VrRendimentoCusteio").Select
       oApp.Selection.Text = (xVr)

       xVr = 0
       xVr = Format(Ata_Vr_Tot_Aquis_Capital, "0,00#.##")
       oApp.ActiveDocument.Bookmarks("VrRendimentoCapital").Select
       oApp.Selection.Text = (xVr)
       oApp.Application.Quit

       oApp.ActiveDocument.Bookmarks("NomeDoPresidente").Select
       oApp.Selection.Text = (Ata_Presidente)

       oApp.ActiveDocument.Bookmarks("NomeDoPresidente1").Select
       oApp.Selection.Text = (Ata_Presidente)

       'Valor de Aquisições CUSTEIO
       xVr = 0
       xVr = Format(Ata_Vr_Total_Custeio, "0,00#.##")
       oApp.ActiveDocument.Bookmarks("VrAquisCusteio").Select
       oApp.Selection.Text = (xVr)

       'Aquisições de CUSTEIO
       oApp.ActiveDocument.Bookmarks("ProdutosCusteio").Select
       oApp.Selection.Text = (Ata_Aquisicoes_Custeio)

       'Valor de Aquisições CAPITAL
       xVr = 0
       xVr = Format(Ata_Vr_Tot_Aquis_Capital, "0,00#.##")
       oApp.ActiveDocument.Bookmarks("VrAquisCapital").Select
       oApp.Selection.Text = (xVr)

       'Aquisições de CAPITAL
       oApp.ActiveDocument.Bookmarks("ProdutosCapital").Select
       oApp.Selection.Text = (Ata_Aquisicoes_Capital)

       'Dados Bancários da APM
       'Agência
       oApp.ActiveDocument.Bookmarks("Agencia").Select
       oApp.Selection.Text = (Texto81)
       'Conta Corrente
       oApp.ActiveDocument.Bookmarks("ContaCorrente").Select
       oApp.Selection.Text = (Texto83)

       oApp.ActiveDocument.Bookmarks("NomePresidente2").Select
       oApp.Selection.Text = (Ata_Presidente)

       oApp.ActiveDocument.Bookmarks("Quemredigiuaata").Select
       oApp.Selection.Text = (Texto89)

       'Valores RESTANTES de Custeio e Capital
       xVr = 0
       xVr = Format(Texto85.Value, "0,00#.##")
       oApp.ActiveDocument.Bookmarks("VrRestCusteio").Select
       oApp.Selection.Text = (xVr)

       xVr = 0
       xVr = Format(Texto87.Value, "0,00#.##")
       oApp.ActiveDocument.Bookmarks("VrRestCapital").Select
       oApp.Selection.Text = (xVr)

       'Número do Repasse 1
       oApp.ActiveDocument.Bookmarks("NumRepasse1").Select
       oApp.Selection.Text = (Ata_Vr_Rep_Num)

       Set oApp = Nothing

    End Sub
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 785
    Registrado : 23/01/2018

    formatar número e exportar para o word Empty Re: formatar número e exportar para o word

    Mensagem  crysostomo em 30/4/2019, 23:15

    Não está dando para ver nada, mas faz uma formatação que gere um consulta ou um formulário que fica todo formatado para sua exportação.


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    avatar
    Nill2013Br
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 14/05/2013

    formatar número e exportar para o word Empty Re: formatar número e exportar para o word

    Mensagem  Nill2013Br em 3/6/2019, 20:09

    Veja se este procedimento ajuda, eu estava com um problema semelhante e resolvi com ele:

    .ActiveDocumento.Bookmarks("nome do campo CPF").Select
    .Selection.Text = Trim(CStr(Format (Forms!NOMEDOFORMULARIO!NOMEDOCAMPOCPF, "###\.###\.###\-##")))

    .ActiveDocumento.Bookmarks("nome do campo tipo moeda").Select
    .Selection.Text = Format (CCur(Me.NOMEDOCAMPOTIPOMOEDA), "Currency")

    O link é este: http://www.maximoaccess.com/t33797-resolvidoenviando-dados-do-access-para-o-word-indicador?highlight=formatar+moeda+indicador+word#

    Conteúdo patrocinado

    formatar número e exportar para o word Empty Re: formatar número e exportar para o word

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 16:43