Look for a function in MSWord to extend the selection 15 characters forward and backward, then grab the so extended selection into Perl and extract (using substr the first 15 and last 15 characters.
CountZero
"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law
Comment on Re: How to get the Pre-Match and Post-Match