Conversione paragrafi a Commenti

Quando si sviluppa un documento, non è insolito utilizzare un particolare stile paragrafo per note editoriali. Per esempio, le note possono essere memorizzati nei paragrafi che utilizzano lo stile Notes. Ad un certo punto, si consiglia di prendere tutti i paragrafi che utilizzano lo stile Notes e li convertono ai commenti effettive nel documento. Si può passare attraverso il documento e fare manualmente la conversione, ma questo può rapidamente diventare noioso. Invece, utilizzare una macro che fa la conversione per voi:

ConvertNotesToComments Sub ()
Dim CommentText As String
Dim MyRange come gamma
Dim iPCount As Integer
Dim J As Integer

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

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

'Sbarazzarsi di finale di fine segno di paragrafo
CommentText = Left (CommentText, Len (CommentText) - 1)

'Sposta la selezione alla fine del paragrafo precedente
MyRange.Collapse (wdCollapseStart)
MyRange.Move Unità: = wdCharacter, Count: = - 1

'Il punto originale non è più necessario
ActiveDocument.Paragraphs (J) .Range.Delete

'Crea il commento alla posizione gamma
ActiveDocument.Comments.Add Range: = MyRange, _
Testo: = CommentText
End If
Successivo J
Application.ScreenUpdating = True
End Sub

I passi macro all'indietro attraverso il documento, guardando lo stile di ogni paragrafo. Se ne trova uno che utilizza lo stile note, allora si perviene il testo del punto nella variabile CommentText, e poi si libera del paragrafo. Il commento viene aggiunto alla fine del paragrafo precedente in cui è stata effettuata la cancellazione.

WordTips è la vostra fonte per la formazione Microsoft Word conveniente. (Microsoft Word è il più popolare software di elaborazione testi del mondo.) Questa punta (5404) si applica a Microsoft Word 97, 2000, 2002, e 2003.