Tecnologia - Macro para word gerar arquivos

E agora uma dica de macro.Pense no seguinte:Ganhei um arquivo contendo mais de 1000 (mil) páginas. Todos organizados com quebra de página entre os títulos de cada tópico.Quero transformar cada quebra de página em um arquivo de texto.Para isso eu usei a seguinte macro: Sub BreakOnPage()Application.Browser.Target = wdBrowsePageFor i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages")ActiveDocument.Bookmarks("\page").Range.CopyDocuments.AddSelection.PasteSelection.TypeBackspaceChangeFileOpenDirectory "D:\diretoriojacriado"DocNum = DocNum + 1ActiveDocument.SaveAs FileName:="arquivocriado_" & DocNum & ".txt", FileFormat:=wdFormatTextActiveDocument.CloseApplication.Browser.NextNext iActiveDocument.Close savechanges:=wdDoNotSaveChangesEnd ...

Read more »

MEDITAÇÃO- CIÚMES MINISTERIAL

Boa noite galera! Faz um bom tempo que não posto nada em meu blog. Depois que inventaram o face ..... kkk Mas o assunto de hoje é bem melindroso e, através dele, poderá gerar opiniões polêmicas. Sei que muitos que seguem meu blog não são evangélicos, mas... CIÚMES/INVEJA MINISTERIAL Definição: Quando um líder/ministro não aceita que outrem tenha sucesso. Seja qual for o sucesso, seja o ganhar almas, seja até a camisa que ganhou de uma ovelha. Ao meu ver é um sintoma semelhante ao de: Caim em relação a Abel; Esaú e Jacó; Os irmãos de José; Arão e Miriã em relação a Moisés; Os irmãos de Davi, mesmo após sua consagração; Saul em relação a unção de Davi quando este tocava sua arpa; Os discípulos de Jesus Ou seja, está na Bíblia também! Talvez, para alguns ministros, esta postagem...

Read more »