VBA

[Steved]

Hello from Steved
Is this possible in VBA

Kalsoy then paragragh, paragraph Without Fear.

If the word Kalsoy is found then ^p then ^p put Without
Fear.
As in the Below example

1st: 1 KALSOY 5137552X05 ( 6) 67.0 ELSHAM
SHEESEE FE 12 20) H(16 6 2) Without Fear

Thankyou.

 

[Doug Robbins - Word MVP]

Hi Steve,

I would suggest that you try and make your questions a bit less cryptic than
they are.

In this case do you want to append "Without Fear" the end of the second
paragraph following any paragraph in which the word "Kalsoy" appears.

What about if "Kalsoy" appears in two successive paragraphs. Do you want
"Without Fear" added to the second paragraph that contains Kalsoy and the
one after it?

Maybe this does what you want:

Dim myrange As Range
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:="Kalsoy", MatchCase:=True, Wrap:=wdFindStop,
Forward:=True) = True
Set myrange = Selection.Range
myrange.MoveEnd wdStory
myrange.End = myrange.Paragraphs(2).Range.End - 1
myrange.InsertAfter "Without Fear"
Loop
End With

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

 

[Steved]

Hello Doug

Firstly Thankyou
In this case it is a word association and it will only
appear once.

Thanks

-----Original Message-----
Hi Steve,

I would suggest that you try and make your questions a bit less cryptic than
they are.

In this case do you want to append "Without Fear" the end of the second
paragraph following any paragraph in which the word "Kalsoy" appears.

What about if "Kalsoy" appears in two successive paragraphs. Do you want
"Without Fear" added to the second paragraph that contains Kalsoy and the
one after it?

Maybe this does what you want:

Dim myrange As Range
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:="Kalsoy",

MatchCase:=True, Wrap:=wdFindStop,