Word VBA - Find

[SDondeti]

Hi,

Word VBA code was written in finding the word in a document and trying to get next word or characters after search word.



Example: In a sample.dotm, I am searching a word "Heading" in a forward=false which means up. I am able to find it and i want to know the next word or next characters after "Heading" using word vba.

Can some one help me out.

Here is the code i am trying to use:

With Selection.Find
  .text = "Heading"
  .Replacement.text = ""
  .Forward = True
  .Wrap = wdFindAsk
  .Format = False
  .MatchCase = True
  .MatchWholeWord = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
End With
Selection.Find.Execute

how to find the reference where the search word is found?

Thanks in advance.

SDondeti.