Mutuando quanto fatto per l'utente AleRosa (vedi
viewtopic.php?f=26&t=107785):
Crea un nuovo file Word, e al suo interno inserisci questa macro:
- Codice: Seleziona tutto
Sub RevCounter2()
Dim I As Long, delW As Long, addW As Long
Dim pippO As Revision, wCn As Long, myTipo As Variant
Dim myDoc As Document, tDoc As Document
'
Documents(Application.MacroContainer).Activate
For Each myDoc In Documents
If myDoc.Name <> Application.MacroContainer Then
Set tDoc = myDoc
Exit For
End If
Next myDoc
Selection.HomeKey Unit:=wdStory
'
Application.ScreenUpdating = False
Debug.Print Now
With tDoc
For Each pippO In .Revisions
DoEvents
myTipo = pippO.Type
If myTipo = 1 Then myTipo = myTipo & " - Insert"
If myTipo = 2 Then myTipo = myTipo & " - Delete"
If myTipo = 3 Then myTipo = myTipo & " - Property"
revn = revn + 1
Selection.EndKey Unit:=wdStory
Selection.TypeText "Rev. N° " & revn
Selection.TypeParagraph
Selection.TypeText Text:=pippO.Author
Selection.TypeParagraph
Selection.TypeText Text:=myTipo
Selection.TypeParagraph
Selection.TypeText Text:=pippO.Range.Text
Selection.TypeParagraph
Selection.TypeParagraph
Next pippO
End With
Application.ScreenUpdating = True
Debug.Print "End: ", Now
MsgBox ("Totale revisioni: " & revn)
End Sub
Poi apri anche il file da monitorare, facendo in modo che in tutto ci siano solamente questi due file aperti; infine avvia la Sub RevCounter2
Nel file nuovo dovrebbero essere riportati, per ogni modifica e in sequenza:
-il numero sequenziale della revisione
-l'autore della modifica
-il tipo di modifica, con lo stesso numero con cui sono descritte nella "Enumerazione WdRevisionType" (vedi help on line del vba); i tipo Delete, Insert e Property change (es formato) sono anche descritti i chiaro
-il testo corrispondente della modifica
Ciao
