Met commentaar te schrappen

Thomas heeft een groot document dat items die voor het voor anderen het publiceren van het document moet worden verwijderd heeft. De delen van het document dat moet worden verwijderd werden geselecteerd en gemarkeerd met een reactie waarin staat dat het voor publicatie moet worden verwijderd. Thomas zou graag snel alle tekst die werd gereageerd op deze manier en verwijder het zoeken en vervangen. Met behulp van Zoeken en vervangen, het enige wat hij kan doen is het vinden van de opmerkingen. Hij is niet een manier gevonden om erachter te komen of de reactie is een indicator dat de tekst moet worden verwijderd, noch heeft hij bedacht hoe het eigenlijke document tekst die werd benadrukt verwijderen.

Dit klinkt als een nogal betrokken taak, omdat het gaat vele stappen. Je nodig hebt om een ​​reactie te vinden, moet je kijken naar het lichaam van de reactie te zien of het overeenkomt met uw gewenste tekst, moet u de becommentarieerde tekst in het document lichaam te verwijderen, en dan moet je de reactie zelf verwijderen. Dit is een baan voor een macro.

Gelukkig zijn alle opmerkingen in een document zijn toegankelijk via de groep Reacties met VBA. U kunt stap door elk van de reacties en zien of het de "trigger tekst" op de reactiefeed van (en de tekst waarnaar het verwijst) moeten worden geschrapt aangeven bevat. In het volgende voorbeeld, als de reactie tekst bevat de woorden "delete dit" ergens in het commentaar, dan dient dit als de trekker over.

Sub DeleteCommentsBaseText ()
Dim c Als reactie
Voor Elke c In ActiveDocument.Comments
Als LCase (Trim (c.Range.Text)) Vind ik leuk "* deze te verwijderen *" Dan
c.Scope.Delete
c.DeleteRecursively
End If
Volgende c
End Sub

Als de trigger woorden zijn in de reactie, dan is het pand Scope wordt geschrapt; het is deze eigenschap die het document tekst die werd geselecteerd wanneer de reactie is gemaakt aangeeft. De DeleteRecursively methode wordt gebruikt om de werkelijke reactie te verwijderen. (De DeleteRecursively methode werd toegevoegd in Word 2013. In eerdere versies moet je de Delete-methode te gebruiken.)

Begrijpen dat wanneer je de macro uit te voeren is het zeer snel en veranderingen kunnen niet ongedaan gemaakt worden. Als u wilt, in plaats daarvan, een beetje meer controle over welke opmerkingen en tekst worden verwijderd, dan kunt u uw workflow te heroverwegen. Als u Wijzigingen bijhouden, wie plaatst de reactie kon ook markeren het document tekst voor verwijdering gebruiken. Dan, voorafgaand aan de afronding van het document, kunt u uit Wijzigingen bijhouden zetten en stap voor stap alle veranderingen om te bepalen of het niet zou moeten worden aanvaard of niet. Het is lang niet zo snel als de bovenstaande macro, maar het geeft je meer controle.

WordTips is uw bron voor kosteneffectieve Microsoft Word training. (Microsoft Word is de meest populaire tekstverwerker in de wereld.) Deze tip (2490) is van toepassing op Microsoft Word 2007, 2010 en 2013.