VBA Tips - Excluir um módulo VBA - Delete Module After Running VBA Code

| Blog Office VBA | Blog Excel | Blog Access |

Não há muito o que dizer. Onde você usaria este código? Bem, talvez para proteger as aplicações que você desenvolve e cujo contrato ainda não tenha sido totalmente cumprido (pago)...Divirta-se!

Sub DeleteThisModule()

    Dim vbCom As Object

    MsgBox "Hi, I will delete myself "

    Set vbCom = Application.VBE.ActiveVBProject.VBComponents

    vbCom.Remove VBComponent:= _

    vbCom.Item("Module1")

End Sub

Sub ExcluirModuloVBA()

    Dim vbCom As Object

    Dim NomeModulo As String

    NomeModulo = "Módulo1"

    Set vbCom = Application.VBE.ActiveVBProject.VBComponents

    vbCom.Remove VBComponent:= vbCom.Item(NomeModulo)

    MsgBox NomeModulo & " excluído com sucesso"

End Sub

Ahhh...Não se esqueça, para que o código funcione, habilite a opção "Confiar no acesso ao modelo de objeto no projeto do VBA" na janela de Segurança de Macros.

Reference: http://www.ozgrid.com/VBA/delete-module.htm

Tags: VBA, Word, Compare Formatting Changes in Word Document using VBA, Compare Headers and Footers in Word Document using VBA, Compare Word Documents

VBA Word - Compare o rodapé e o cabeçalho de dois documentos - Compare Word Documents with Headers and Footers using VBA

| Blog Office VBA | Blog Excel | Blog Access |

É verdade... Os documentos do MS Word estão em toda parte: Propostas, Contratos, Minutas, Licitações, Notas, Trabalhos técnicos. Em muitos casos têm mais de um autor e uns cinco avaliadores, revisores, etc. Existem muitas soluções de gestão de documentos disponíveis para trabalhos paralelos. 

Mas, apenas no caso de você receber um documento revisado por seu chefe queira certificar-se de que é uma versão diferente da anterior que lhe enviou, use o código abaixo:

Sub CompareDoc()

    Dim oDoc1 As Document

    Dim oDoc2 As Document

    Set oDoc1 = Documents.Open("D:\Changed Header.doc")

    Set oDoc2 = Documents.Open("D:\Original Header.doc")

    Application.CompareDocuments _

    oDoc1, oDoc2, wdCompareDestinationNew, _

    , , , , , True, True

End Sub

Este código apenas compara os 2 documentos e cria um terceiro novo documento com o controle das alterações mostrando-as. 

Existem muitos parâmetros para: CompareDocuments, CompareFormatting, CompareHeaders, CompareFootnotes. 

Reference: http://vbadud.blogspot.com.br/

Tags: VBA, Word, Compare Formatting Changes in Word Document using VBA, Compare Headers and Footers in Word Document using VBA, Compare Word Documents