EXPORTAR FORM PARA WORD
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.
Citação::
Dá uma pesquisada na seção de Código Fonte que vc vai achar alguns no VBMania.
Sim.
....
.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?
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
levei duas semanas para descobrir com fazer a macro funcionar como queria.
[txt-color=#0000f0] 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[/txt-color]
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.
[txt-color=#0000f0] 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[/txt-color]
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!
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!
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.