Moshe ha un documento di Word che è stato modificato da un copy editor. Ovunque l’editore abbia inserito un commento, inizia con una parentesi sinistra, seguita da “ed note:”, quindi la nota e infine una parentesi destra.

Per i processi interni di Moshe, è più vantaggioso avere queste note come commenti di Word effettivi. Si chiede se esiste un modo per automatizzare la ricerca di queste note nel testo e convertirle in commenti di Word.

Il modo per automatizzare questo processo è attraverso l’uso di una macro. La macro può fare affidamento sulle funzionalità Trova e sostituisci di Word, ma aggiunge un’elaborazione ogni volta che viene individuato un commento corrispondente.

Sub NoteToComment()

Dim sTemp As String

Selection.HomeKey Unit:=wdStory

With Selection.Find         .ClearFormatting         .Text = "\(ed note:*\)"

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindStop         .MatchWildcards = True     End With

Do While Selection.Find.Execute         sTemp = Selection.Text         sTemp = Mid(sTemp, 10, Len(sTemp) - 11)

sTemp = Trim(sTemp)

Selection.Text = ""

Selection.MoveEnd unit:=wdCharacter         Selection.MoveStart unit:=wdCharacter, Count:=-1         If Selection.Text = "  " Then Selection.Text = " "

Selection.Collapse         ActiveDocument.Comments.Add Range:=Selection.Range, Text:=sTemp     Loop End Sub

La macro si sposta prima all’inizio del documento, quindi imposta le condizioni per la ricerca. Ciò che viene cercato è lo schema che Moshe ha notato – una parentesi sinistra, seguita da “ed note:”, quindi la nota e infine una parentesi destra – questa sequenza è assegnata alla proprietà .Text dell’oggetto Find. Notare che ogni parentesi ha una barra rovesciata davanti. Se queste barre rovesciate non fossero incluse, Word considererebbe le parentesi come caratteri di controllo nel modello di ricerca. Inoltre, la proprietà .MatchWildcards è impostata su True in modo che la proprietà .Text venga considerata come un modello di ricerca.

Nel ciclo Do While, che viene immesso ogni volta che viene trovato un commento corrispondente, la variabile sTemp è impostata sul testo del commento. I primi 9 caratteri vengono rimossi (questi sono “(nota a cura di:”) insieme alla parentesi destra finale. Il commento viene rimosso dal documento e se rimangono più spazi dopo la rimozione, anche quelli vengono eliminati.

Infine, viene aggiunto un commento effettivo che contiene il testo nella variabile sTemp.

C’è una cosa da ricordare quando si usa questa macro: dipende dalla corrispondenza corretta del modello di commento. Ciò significa che se ci sono alcuni commenti che non seguono esattamente lo schema, questi potrebbero non essere trovati e convertiti (ad esempio, se c’è uno spazio dopo la parentesi sinistra aperta). Inoltre, se i commenti nel documento contengono osservazioni tra parentesi all’interno del commento (in altre parole, ci sono parentesi annidate nel commento), che rovineranno ciò che viene trovato dalla ricerca con caratteri jolly e ciò che successivamente finisce nel commento.

_Nota : _

Se vuoi sapere come fare da noi Per le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (1797) si applica a Microsoft Word 2007, 2010, 2013 e 2016.