Het omzetten van de leden op Reacties

Bij de ontwikkeling van een document, is het niet ongebruikelijk om een ​​bepaalde paragraaf stijl te gebruiken voor redactionele notities. Zo kan de noten worden opgeslagen in de leden met behulp van de Notes-stijl. Op een gegeven moment, kunt u alle alinea's die de Notes stijl te gebruiken en ze converteren naar werkelijke opmerkingen in het document te nemen. Kan je door het document en handmatig maken van de conversie, maar dit kan snel vervelend. Gebruik in plaats daarvan een macro die de conversie voor u doet:

Sub ConvertNotesToComments ()
Dim CommentText als Koord
Dim mijnBereik als Waaier
Dim iPCount As Integer
Dim J As Integer

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

Voor J = iPCount Om 1 Step -1
Als ActiveDocument.Paragraphs (J) .style = _
ActiveDocument.Styles ("Notes") Then
Stel mijnBereik = ActiveDocument.Paragraphs (J) .Range
CommentText = MyRange.Text

'Weg met trailing het einde van paragraaf merk
CommentText = Links (CommentText, Len (CommentText) - 1)

'Selectie verplaatsen naar het einde van de vorige paragraaf
MyRange.Collapse (wdCollapseStart)
MyRange.Move Unit: = wdCharacter, Count: = - 1

'Het oorspronkelijke paragraaf is overbodig
ActiveDocument.Paragraphs (J) .Range.Delete

'Maak het commentaar bij de waaier locatie
ActiveDocument.Comments.Add Range: = mijnBereik, _
Tekst: = CommentText
End If
Volgende J
Application.ScreenUpdating = True
End Sub

De macro stappen achteruit door het document, te kijken naar de stijl van elke paragraaf. Als het er één vindt dat de Notes-stijl gebruikt, dan beweegt de tekst van de paragraaf in de CommentText variabele, en dan krijgt ontdoen van de paragraaf. De reactie wordt dan aan het einde van de paragraaf voor waarin de deletie werd toegevoegd.

WordTips is uw bron voor kosteneffectieve Microsoft Word training. (Microsoft Word is de meest populaire tekstverwerker in de wereld.) Deze tip (5404) is van toepassing op Microsoft Word 97, 2000, 2002, en 2003.