Notifications
Clear all

Macro Mala Direta

7 Posts
3 Usuários
0 Reactions
2,424 Visualizações
(@fcarlosc)
Posts: 0
New Member
Topic starter
 

Boa-tarde,
Existe alguma macro que pegue um arquivo word com vários "clientes" e separe cada cliente com um nome de arquivo (.doc) ?

Att,

Francisco

 
Postado : 26/05/2017 9:33 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

fcarlosc,

Muito provavelmente, deve ser possível fazer isso. Todavia, anexe aqui no fórum, compactado com .ZIP seu arquivo WORD.

 
Postado : 26/05/2017 10:55 am
(@fcarlosc)
Posts: 0
New Member
Topic starter
 

Segue anexo...

Se puder salvar o arquivo com o nome do candidato, agradeço.

att,

Francisco

 
Postado : 26/05/2017 12:45 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

fcarlosc,

Boa Tarde!

Cara, até tentei bastante te ajudar (estudei bastante os objeto do word) para poder aprender como selecionar somente uma parte e copiar para um outro arquivo. Todavia, como não sei trabalhar com os objetos do word (no VBA) fica muito complexo pois é muito difícil determinar um Selection ou um Range preciso no Word para se fazer a cópia do que se quer. Esse é o ponto mais difícil. Para complicar ainda mais, a literatura existente, inclusive da própria Microsoft, não é nada esclarecedora.

Enfim, fico devendo essa. Vamos ver se aparece alguém aí "fera" em VBA para Word que possa esclarecer essa dúvida.

 
Postado : 28/05/2017 9:55 am
(@fcarlosc)
Posts: 0
New Member
Topic starter
 

Boa-noite wagner

Não daria para colocar uma palavra chave em uma célula para determinar o ponto onde será efetuado a "quebra" da página e gerado um arquivo !?

Att,

Francisco

 
Postado : 28/05/2017 4:23 pm
(@edcronos2)
Posts: 0
New Member
 

provavelmente de para usar o gravador de macro e salvar os principais comando requeridos para então ajustar para oq se quer
para demarcar pode se usar a palavra CANDIDATO: que inicia o trecho

     Selection.Find.ClearFormatting

     CommandBars("Navigation").Visible = False
     Selection.Find.ClearFormatting
     With Selection.Find
          .Text = "CANDIDATO:"
          .Replacement.Text = ""
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = True
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
     End With
     Selection.Find.Execute

mas vamos dizer que não é nada comparado ao do excel
acho que para o pessoal aqui seria mais pratico salvar o arquivo em txt e manipular pelo vba do excel

 
Postado : 28/05/2017 5:17 pm
(@edcronos2)
Posts: 0
New Member
 

uma vez eu fiz uma macro que procurava palavras e selecionava trechos, mas como tem um tempo nem achei
mas pode tentar segui

http://gregmaxey.com/word_tip_pages/ins ... trols.html
http://www.makeuseof.com/tag/8-surprisi ... soft-word/
https://superuser.com/questions/729646/ ... n-word-vba

http://excel-macro.tutorialhorizon.com/ ... -bookmark/

acho que pode dar alguma referencia do que fazer

 
Postado : 28/05/2017 6:11 pm