sub FindAndReplace{
  my $count = 0;
  my $s = $word->Selection;
  $s->HomeKey(wdStory);
  $s->Find->{'Text'}=$WordToLookup;
  $s->Find->Replacement->{'Highlight'}=1;
  while ( $s->Find->Execute() ){
    $s->Comments->Add({ Range=>$s->Range, 
                        Text =>"Match ".++$count });
  }
  $s->HomeKey(wdStory);
}