Quando si sviluppa un documento, non è insolito utilizzare un particolare stile di paragrafo per le note editoriali. Ad esempio, le note possono essere memorizzate in paragrafi utilizzando uno stile chiamato “Note”. Ad un certo punto, potresti voler prendere tutti i paragrafi che utilizzano lo stile Note e convertirli in commenti effettivi nel documento. Puoi esaminare il documento ed effettuare la conversione manualmente, ma questo può diventare rapidamente noioso.

Utilizza invece una macro che esegue la conversione per te:

Sub ConvertNotesToComments()

Dim CommentText As String     Dim MyRange As Range     Dim iPCount As Integer     Dim J As Integer

Application.ScreenUpdating = False     iPCount = ActiveDocument.Paragraphs.Count

For J = iPCount To 1 Step -1         If ActiveDocument.Paragraphs(J).Style = _           ActiveDocument.Styles("Notes") Then             Set MyRange = ActiveDocument.Paragraphs(J).Range             CommentText = MyRange.Text

'Get rid of trailing end-of-paragraph mark             CommentText = Left(CommentText, Len(CommentText) - 1)



'Move selection to end of previous paragraph             MyRange.Collapse (wdCollapseStart)

MyRange.Move Unit:=wdCharacter, Count:=-1

'The original paragraph is no longer necessary             ActiveDocument.Paragraphs(J).Range.Delete

'Create the comment at the range location             ActiveDocument.Comments.Add Range:=MyRange, _               Text:=CommentText         End If     Next J     Application.ScreenUpdating = True End Sub

La macro fa un passo indietro nel documento, esaminando lo stile di ogni paragrafo. Se ne trova uno che utilizza lo stile Notes, sposta il testo del paragrafo nella variabile CommentText, quindi elimina il paragrafo. Il commento viene quindi aggiunto alla fine del paragrafo prima del punto in cui è stata effettuata la cancellazione.

_Nota: _

Se desideri sapere come utilizzare 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 (13382) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365. Puoi trovare una versione di questo suggerimento per vecchia interfaccia del menu di Word qui:

Conversione dei paragrafi in commenti.