![]() |
#5
|
|||
|
|||
![]()
Thanks macropod for the advice and help .
This code was modified is working well , this is what I want, but it does not work in the text box, can possible modify it to be working in the text box Greetings to all Sub FindIt() Dim blnFound As Boolean Dim rngFound As Range Dim strTheText As String Application.ScreenUpdating = False For i = 0 To 4 Selection.HomeKey wdStory Selection.Find.Text = "TARIQ" blnFound = Selection.Find.Execute If blnFound Then Selection.MoveStartWhile wdWord Set rng1 = Selection.Range ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="FirstName" End If 'move back to beginning Selection.HomeKey wdStory Next Application.ScreenUpdating = True End Sub |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Mjpunj | Mail Merge | 1 | 06-20-2014 05:28 PM |
Mail Merge Directory - Combining fields | officegirl | Mail Merge | 1 | 03-21-2013 11:02 PM |
![]() |
Galceran | Mail Merge | 2 | 02-10-2013 05:47 PM |
![]() |
Aude | Mail Merge | 1 | 01-06-2012 07:38 PM |
![]() |
sssb2000 | Mail Merge | 5 | 09-26-2010 09:40 AM |