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