Contador NS

Boa noite, Desculpa eu colocar minha dúvida neste tópico, mas no outro ninguém me respondeu. Por favor me ajudem, eu tinha uma macro que executando-a eu conseguia imprimir meu documento 50 vezes de 4 em 4 minutos, agora perdi a macro. Ela rodava a noite toda, quando chegava de manhã já tinha as 50 impressões feitas, este documento tem muitas imagens, e se eu mandar tudo de uma vez, a impressora esquenta e sai tudo borrado, por isso preciso dessa macro. Lembro me que ela tinha uma contagem de tempo time value + time now contagem 50 vezes imprimir. por favor !!!!!

Boa noite, por favor me ajudem, eu tinha uma macro que executando-a eu conseguia imprimir meu documento 50 vezes de 4 em 4 minutos, agora perdi a macro. Ela rodava a noite toda, quando chegava de manhã já tinha as 50 impressões feitas, este documento tem muitas imagens, e se eu mandar tudo de uma vez, a impressora esquenta e sai tudo borrado, por isso preciso dessa macro. Lembro me que ela tinha uma contagem de tempo time value + time now contagem 50 vezes imprimir. por favor !!!!!

Me ajudem Pessoal preciso fazer essa macro simples funcionar, mas não funciona. Preciso imprimir este documento a cada 2 minutos automaticamente, por que a impressora não pode imprimir tudo de uma vez se não esquenta. O começo da Macro é quanto a impressão o restante, era as repetições automaticas, mas não funciona. Sub imprimir() ' ' imprimir Macro ' ' ActiveDocument.PrintOut End Sub Private Sub Auto_open() Application.OnTime Now + TimeValue("00:02:00"), "imprimir" Application.OnTime Now + TimeValue("00:04:00"), "imprimir" Application.OnTime Now + TimeValue("00:06:00"), "imprimir" Application.OnTime Now + TimeValue("00:08:00"), "imprimir" Application.OnTime Now + TimeValue("00:10:00"), "imprimir" Application.OnTime Now + TimeValue("00:12:00"), "imprimir" Application.OnTime Now + TimeValue("00:14:00"), "imprimir" Application.OnTime Now + TimeValue("00:16:00"), "imprimir" Application.OnTime Now + TimeValue("00:18:00"), "imprimir" Application.OnTime Now + TimeValue("00:20:00"), "imprimir" Application.OnTime Now + TimeValue("00:22:00"), "imprimir" Application.OnTime Now + TimeValue("00:24:00"), "imprimir" Application.OnTime Now + TimeValue("00:26:00"), "imprimir" Application.OnTime Now + TimeValue("00:28:00"), "imprimir" Application.OnTime Now + TimeValue("00:30:00"), "imprimir" Application.OnTime Now + TimeValue("00:32:00"), "imprimir" Application.OnTime Now + TimeValue("00:34:00"), "imprimir" Application.OnTime Now + TimeValue("00:36:00"), "imprimir" Application.OnTime Now + TimeValue("00:38:00"), "imprimir" Application.OnTime Now + TimeValue("00:40:00"), "imprimir" Application.OnTime Now + TimeValue("00:42:00"), "imprimir" Application.OnTime Now + TimeValue("00:44:00"), "imprimir" Application.OnTime Now + TimeValue("00:46:00"), "imprimir" Application.OnTime Now + TimeValue("00:48:00"), "imprimir" Application.OnTime Now + TimeValue("00:50:00"), "imprimir" Application.OnTime Now + TimeValue("00:52:00"), "imprimir" End Sub

Boa noite pessoal, estou com um grande problema. Tenho uma pasta com mais de 300 arquivos .xml, aproximadamente uns 100 destes arquivos contem a instrução: <indPag>1</indPag> E aproximadamente uns 200 contem a informação: <indPag>0</indPag> Onde o "0" significa "a vista" e o "1" significa "a prazo" Preciso separar estes xml em duas pastas, a pasta que contem os a vista e a pasta que contem os a prazo. Já baixei inumeros buscadores de arquivos na net, que procuram o conteudo do arquivo, mas nenhum destes buscadores consegue entender essa expressão do arquivo: <indPag>1</indPag> , acredito que seja por causa dos sinais <>. Como separar os arquivos? sem ter que abrir um a um. Muito obrigado desde já.

Preciso de ajuda com macros para exportar e importar arquivo texto, pago pela ajuda, valor a combinar. Meu e mail: andre-contador@hotmail.com, estou com pouco tempo disponível, por isso me desculpem se demorar um pouco para retornar. Inicialmente quero importar um arquivo, porém somente alguns dados do arquivo, em determinadas colunas de uma plan, consigo fazer o serviço manualmente, porém me toma tempo e conhecimento, como a plan final será usada por usuarios sem conhecimento, preciso automatizar essa situação para o uso por leigos em excel. Modelo Básico: 5061413282000143100682431117 20050331SP0101 513093392300016782379126 20050301RJ2 Tenho um arquivo grande, que sempre começa com 50, 51, 54, e preciso que o excel importe apenas a parte que começa com "50" e ainda somente determinadaqs colunas, como podem ver no modelo esses itens por exemplo "SP" "RJ" eu não preciso.