Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Word 2010: copia track changes

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Word 2010: copia track changes

Postdi Alunna » 21/02/17 14:23

Ciao a tutti... :)
Ho letto quanto fatto già sulle revisioni di word in un altro post...

Mi servirebbe poter copiare, in un altro doc word tutte le revisioni effettuate in un documento, compresi gli autori delle revisioni stesse (sostanzialmente un copia incolla del riquadro revisioni).

Utilizzando i vari revisori versioni diverse di Word e lavorando una media di oltre 3000 revisioni per documento, spesso il semplice copia incolla del riquadro revisioni risulta disabilitato.

Potreste aiutarmi?

Grazie a prescindere... :)
Alunna
Alunna
Utente Junior
 
Post: 20
Iscritto il: 21/10/15 11:01

Sponsor
 

Re: Word 2010: copia track changes

Postdi Anthony47 » 22/02/17 14:37

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
Avatar utente
Anthony47
Moderatore
 
Post: 17524
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Word 2010: copia track changes":

copia
Autore: rombotuono
Forum: Applicazioni Office Windows
Risposte: 2

Chi c’è in linea

Visitano il forum: Nessuno e 22 ospiti