EXPORTAR FORM PARA WORD

 Tópico anterior Próximo tópico Novo tópico

EXPORTAR FORM PARA WORD

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#476033 - 25/08/2017 23:50:34

MILTONSILVA94
CANOAS / RIO GRANDE DO SUL
Cadast. em:Janeiro/2015


Última edição em 10/09/2017 01:58:10 por MILTONSILVA94

Saudações Amigos!

Estou precisando exportar dados que estão no formulário 'Funcionários' para word no qual quero que os dados contidos neste formulário, exportem para word.

Desde já obrigado.




#476048 - 27/08/2017 21:17:46

CLEVERTON
SERRINHA
Cadast. em:Dezembro/2003


Membro da equipe

Última edição em 27/08/2017 21:18:53 por CLEVERTON

Dá uma pesquisada na seção de Código Fonte que vc vai achar alguns no VBMania.




#476410 - 10/09/2017 01:58:37

MILTONSILVA94
CANOAS / RIO GRANDE DO SUL
Cadast. em:Janeiro/2015


Citação:
:
Dá uma pesquisada na seção de Código Fonte que vc vai achar alguns no VBMania.


Sim.



#476411 - 10/09/2017 02:02:09

MILTONSILVA94
CANOAS / RIO GRANDE DO SUL
Cadast. em:Janeiro/2015


Preciso que no campo da 'matricula' exiba centralizado depois do 'nome', e o 'sexo' fique a direita do documento. Fiz desta maneira porém exibe tudo junto à direita:
         ....
        .Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
        .Selection.TypeText Text:="Nome: " & txtNome.Text
        .Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        .Selection.TypeText Text:="Matricula: " & txtMatricula.Text
        .Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Selection.TypeText Text:="Sexo: " & cboSexo.Text
        ....

Alguém sugere algo?



#476420 - 10/09/2017 17:44:48

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


Citação:
:
Dá uma pesquisada na seção de Código Fonte que vc vai achar alguns no VBMania.


Segue o que disse o CLEVERTON, aqui no VBMania tem muita coisa sobre, já usei daqui e de outros fóruns também

O conhecimento é como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


#476421 - 10/09/2017 18:29:55

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


Última edição em 11/09/2017 11:25:20 por JCM0867

No Macoratti,net tem exemplos e mostrando como fazer. Eu faço como se fosse mala direta para fazer contratos. ainda tenho uma macro que muda o nome, tira as mesclagens e Gera um Word padrão
levei duas semanas para descobrir com fazer a macro funcionar como queria.

   Sub SalvarAluno()
   Dim Campo As String
   Dim Patch As String
   'NomeAluno é um campo de Mesclagem
   Campo = (ActiveDocument.MailMerge.DataSource.DataFields("NomeAluno").Value) + " - " + _
           (ActiveDocument.MailMerge.DataSource.DataFields("CodigoAluno").Value)
   Patch = (ActiveDocument.MailMerge.DataSource.DataFields("Diretorio").Value)
   With ActiveDocument.MailMerge
      .SuppressBlankLines = True
      With .DataSource
         .FirstRecord = wdDefaultFirstRecord
         .LastRecord = wdDefaultLastRecord
      End With
         .Execute Pause:=False
   End With






#476611 - 16/09/2017 15:00:18

MILTONSILVA94
CANOAS / RIO GRANDE DO SUL
Cadast. em:Janeiro/2015


Citação:
:
:
Dá uma pesquisada na seção de Código Fonte que vc vai achar alguns no VBMania.


Segue o que disse o CLEVERTON, aqui no VBMania tem muita coisa sobre, já usei daqui e de outros fóruns também


Citação:
:
No Macoratti,net tem exemplos e mostrando como fazer. Eu faço como se fosse mala direta para fazer contratos. ainda tenho uma macro que muda o nome, tira as mesclagens e Gera um Word padrão
levei duas semanas para descobrir com fazer a macro funcionar como queria.

   Sub SalvarAluno()
   Dim Campo As String
   Dim Patch As String
   'NomeAluno é um campo de Mesclagem
   Campo = (ActiveDocument.MailMerge.DataSource.DataFields("NomeAluno").Value) + " - " + _
           (ActiveDocument.MailMerge.DataSource.DataFields("CodigoAluno").Value)
   Patch = (ActiveDocument.MailMerge.DataSource.DataFields("Diretorio").Value)
   With ActiveDocument.MailMerge
      .SuppressBlankLines = True
      With .DataSource
         .FirstRecord = wdDefaultFirstRecord
         .LastRecord = wdDefaultLastRecord
      End With
         .Execute Pause:=False
   End With




Obrigado pela participação!

Cito-lhes que já consultei exemplos no Macoratti mas em questão dos alinhamentos de como sair a exportação não encontrei.

Ex. Ter um campo 'Nome' alinhado a esquerda e ao lado a 'matricula' centralizado, e o 'sexo' alinhado a direita do documento. Fiz desta maneira mas está exibindo tudo junto à direita:
         ....
        .Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
        .Selection.TypeText Text:="Nome: " & txtNome.Text
        .Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        .Selection.TypeText Text:="Matricula: " & txtMatricula.Text
        .Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Selection.TypeText Text:="Sexo: " & cboSexo.Text
        ....

Alguém tem sugestões

Obrigado!



#477073 - 09/10/2017 23:23:08

MILTONSILVA94
CANOAS / RIO GRANDE DO SUL
Cadast. em:Janeiro/2015


Boa noite,

Consegui adaptar às edições quanto ao alinhamento daa informações para exportar os dados do form para word.
Amanhã a noite tentarei postar como ficou!



#477101 - 10/10/2017 20:07:52

MILTONSILVA94
CANOAS / RIO GRANDE DO SUL
Cadast. em:Janeiro/2015


 Anexos estao visíveis somente para usuários registrados

Olá!

Como prometido estou mandando minha exportação da ficha de word.
Gostaria de ouvir suas opiniões e sugestões ou melhoria a fazer.

Obrigado.



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por MILTONSILVA94 em 12/10/2017 17:53:05