Word VBA

SDondeti · #1 04-15-2011, 08:51 AM

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:

Code:

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.

macropod · #2 04-15-2011, 03:38 PM

Hi Sdoneti,

Try something like the following, which shows how you can get the next word, or even the whole paragraph:

Code:

Sub Demo()
With Selection.Range
  With .Find
    .ClearFormatting
    .Text = "Heading"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute
  End With
  Do While .Find.Found
    ' get the next word
    MsgBox .Words.Last.Next.Words.First
    ' get the whole paragraph
    MsgBox .Paragraphs.Last.Range.Text
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
End Sub

SDondeti · #3 04-19-2011, 08:36 AM

Hi Macropad,

Thank you. I used InsertCation to solve my problem.

CaptionLabels.Add Name:="Picture"
Selection.InsertCaption Label:="Picture", _
Title:=": ", _
Position:=wdCaptionPositionBelow, _
ExcludeLabel:=0

Thanks,
Sudhakar

telkomek · #4 08-15-2012, 10:58 AM

Quote:

Originally Posted by macropod

Hi Sdoneti,

Try something like the following, which shows how you can get the next word, or even the whole paragraph:

Code:

Sub Demo()
With Selection.Range
  With .Find
    .ClearFormatting
    .Text = "Heading"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute
  End With
  Do While .Find.Found
    ' get the next word
    MsgBox .Words.Last.Next.Words.First
    ' get the whole paragraph
    MsgBox .Paragraphs.Last.Range.Text
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
End Sub

when i'm test is looping forever.
are only happen to me?

macropod · #5 08-15-2012, 05:03 PM

Works fine for me. The code makes one pass through the selected range, then stops.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Lost Word Document and cant find it!!! I saved it but it ISNT there!!	APAV	Word	9	10-09-2017 01:17 PM
How to find out the version of the word files?	mariaprabudass	Word	0	06-18-2010 05:40 AM
can Find/Replace NOT find something?	Bobosmite	Word	6	05-27-2010 08:09 PM
How to find the version of word file?	mariaprabudass	Word	6	04-29-2010 03:33 AM
FInd recurring words in Word 2003	NJ007	Word	4	01-25-2010 03:11 PM