Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Salvar arquivos de ...
 
Notifications
Clear all

Salvar arquivos de Mala Direta com título de células.

 
2024 - VBA & Macros
Post Recente por damienwill 9 anos atrás
5 Posts
2 Usuários
0 Reactions
991 Visualizações
RSS
damienwill
 damienwill
(@damienwill)
Posts: 3
New Member
Topic starter
 

Antes de mais nada, gostaria de pedir desculpas por qualquer inconformidade no meu tópico.

Bom, precisarei emitir centenas de certificados para um evento através de Mala Direta pelo Word, em formato PDF e com os dados lá no Excel. Até aí, tudo certo, aprendi fazendo.

Acontece que não irei enviar por e-mail, mas sim disponibilizar numa pasta compartilhada (dropbox, etc) as centenas de certificados onde cada participante poderá baixar os que lhes pertencem. Só que para isso eu preciso que o nome dos arquivos tragam duas informações importantes: nome do participante e o "código" do minicurso/palestra (ex: MC1, MC2, PL1, PL2, PL3,...), para que todos consigam encontrar facilmente seus certificados. Lembrando, essas duas informações estão em uma planilha do Excel.

Aí eu pergunto: Qual seria o procedimento mais comum para se fazer isso, se é que é possível? Como renomear arquivos com base em células sendo que ao mesmo tempo preciso trabalhar com mala direta? Eu preciso de uma dica inicial, para poder me virar depois, pois até então conseguia me virar só com o óbvio do pacote Office.

Abs

 
Postado : 27/09/2015 2:03 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Se der pra passar o certificado para excel fica mais facil mas esse codigo salva um arquivo com o nome de certficado.pdf

Ve se isso lhe ajuda

Sub Macro1()

ChDir "C:Certificado"
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:CertificadoCertificado.pdf", ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ChangeFileOpenDirectory "C:Certificado"
End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 27/09/2015 2:39 pm
damienwill
 damienwill
(@damienwill)
Posts: 3
New Member
Topic starter
 

Hmm... Eu realmente nunca mexi com macros, então vou ter que verdadeiramente estudar esse código (não só ele, mas ter uma noção melhor de VBA) pra saber se ele atende as minhas necessidades.

 
Postado : 27/09/2015 4:18 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Esse codigo é so um exemplo nao esta funcionando ainda como vc precisa.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 27/09/2015 4:49 pm
damienwill
 damienwill
(@damienwill)
Posts: 3
New Member
Topic starter
 

Esse codigo é so um exemplo nao esta funcionando ainda como vc precisa.

Eu notei. Obrigado.

Mas tenho de pedir, alguém poderia montar algo próximo do que eu quero mas em forma de comentários? Os códigos eu monto depois... é porque infelizmente preciso fazer isso até semana que vem e eu não teria tempo para dominar o VBA. Contudo, não estou pedindo algo pronto, pelo contrário, acho que esse problema seria um bom exemplo para eu ter a mínima noção do que fazer.

 
Postado : 28/09/2015 12:01 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico