Konvertering Avsnitt på Kommentarer

November 14  by Eliza

Ved utvikling av et dokument, er det ikke uvanlig å bruke et bestemt avsnitt stil for redaksjonelle notater. For eksempel kan notatene lagres i avsnitt ved hjelp av Notes-stil. På et tidspunkt, kan det være lurt å ta alle de paragrafene som bruker Notes stil og konvertere dem til faktiske kommentarer i dokumentet. Du kan gå gjennom dokumentet og gjøre konverteringen manuelt, men dette kan fort bli kjedelig. I stedet bruker en makro som gjør konverteringen for deg:

Sub ConvertNotesToComments ()
Dim CommentText As String
Dim MyRange Som Range
Dim iPCount As Integer
Dim J As Integer

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

For J = iPCount Til en Step -1
Hvis ActiveDocument.Paragraphs (J) .Style = _
ActiveDocument.Styles ("Merknader") Deretter
Satt MyRange = ActiveDocument.Paragraphs (J) .Range
CommentText = MyRange.Text

"Bli kvitt følgende end-of-avsnittsmerke
CommentText = Left (CommentText, Len (CommentText) - 1)

"Flytt markeringen til slutten av forrige avsnitt
MyRange.Collapse (wdCollapseStart)
MyRange.Move Enhet: = wdCharacter, Count: = - 1

'Den opprinnelige ledd er ikke lenger nødvendige
ActiveDocument.Paragraphs (J) .Range.Delete

Opprett kommentaren på området plassering
ActiveDocument.Comments.Add Range: = MyRange, _
Tekst: = CommentText
End If
Neste J
Application.ScreenUpdating = True
End Sub

Makro skritt bakover gjennom dokumentet, ser på stilen til hvert avsnitt. Hvis den finner en som bruker Notes stil, så den beveger teksten i avsnitt inn i CommentText variabel, og deretter blir kvitt ledd. Kommentaren blir deretter tilsatt til enden av avsnittet forut for hvor slettingen ble gjort.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (5404) gjelder for Microsoft Word 97, 2000, 2002, og 2003.