MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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 : Respeito às Regras 100%

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

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

    Mensagem  baldocchi 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
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

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

    Mensagem  crysostomo 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.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Nill2013Br
    Novato
    Novato

    Respeito às regras : 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 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: https://www.maximoaccess.com/t33797-resolvidoenviando-dados-do-access-para-o-word-indicador?highlight=formatar+moeda+indicador+word#

      Data/hora atual: 25/7/2021, 04:45