#1
|
|||
|
|||
Word VBA - Find
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 Thanks in advance. SDondeti. |
#2
|
||||
|
||||
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
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 |
#4
|
|||
|
|||
when i'm test is looping forever
Quote:
are only happen to me? |
#5
|
||||
|
||||
Works fine for me. The code makes one pass through the selected range, then stops.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
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 |