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 lo stile 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. Usa invece una macro che faccia 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.

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

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (5404) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia della barra multifunzione di Word (Word 2007 e più tardi) qui: