Rápido (est) maneira de ver (recuperar) mudanças em um documento (depois de não rastreá-las)

Question

Costumo dar feedback sobre muitos documentos com o Word. Infelizmente, se um documento foi salvo sem alterações de rastreamento, eu preciso (lembre-se de) ativá-lo. Infelizmente, acontece com muita frequência que eu comece a corrigir um documento e realize 10 ou mais alterações, pois não habilitei o rastreamento.

A solução, é claro, é salvar o documento e fazer uma comparação.

Mas o fluxo de trabalho Comparar é pesado em cliques. Não há padrão para usar o documento atual para um dos documentos na comparação. Eu tenho que salvar o documento atual para um novo arquivo (não tão ruim), mas então eu tenho que selecionar os arquivos antigos e novos através de um diálogo de arquivo (que é realmente clicky).

Minhapergunta:existeumamaneiramaisrápidaderecuperarasalteraçõesfeitasdepoisquevocêesquecedeativarasalterações?

Amaioriadoseditoresdecódigo-fontedosoftwareaceitaodocumentoatualcomoumdosarquivosparaumaoperaçãodecomparação,masparecequeoWordsempredesejaumarquivosalvo(esuaGUIémuitoburraparaproporoarquivoquefoiabertorecentementeouestáabertocomoumpadrãoouatémesmonotopodalistaalfabéticadearquivos).

Outrasoluçãoseriaumamaneiradeter"Rastrear alterações" ativadas em qualquer documento que eu abrir. No entanto, lendo isso Eu tenho a impressão de que é apenas configurável para novos documentos.

    

Answer 1

Another solution would be a way to have "Track changes" enabled on any document I open.

Eu encontrei uma maneira, que também funciona para tolerar o caso de ativar o controle de alterações quando um documento está em "Modo de exibição protegido" ( ActiveDocument é inválido no manipulador padrão Document_Open e você precisa capturar o direito evento).

Aqui está a Macro VBA que precisa entrar em ThisDocument para o projeto Normal :

Private WithEvents app As Word.Application

Private Sub Document_Open()
    Set app = Word.Application
    ' Force track changes
    ' On error resume next, since Protected View Document_Open has different context
    On Error Resume Next
    ActiveDocument.TrackRevisions = True
End Sub

' see https://msdn.microsoft.com/en-us/library/office/hh128817(v=office.14).aspx
Private Sub app_ProtectedViewWindowBeforeClose(ByVal PvWindow As ProtectedViewWindow, ByVal CloseReason As Long, Cancel As Boolean)
    Select Case CloseReason
      Case wdProtectedViewCloseEdit
        ActiveDocument.TrackRevisions = True  'safe to turn on here
    End Select
End Sub