Lookup value

[Mark]

I am using Excel 2003. I have a worksheet with names and email addresses.
In this worksheet there are some people with the same name, so I need to be
able to do some sort of lookup on a name which produces all the possibilities
lets say name, identity number, email address which are selectable from a
list in a userform.

Ideally I need to be able to transfer the result from Excel into Word

Is this possible, if so, can someone assist me with some code, please?

 

[ryguy7272]

See these links for a wealth of information:
http://word.mvps.org/FAQs/InterDev/XLToWordWithDAO.htm

http://word.mvps.org/faqs/interdev/controlwordfromxl.htm

http://word.mvps.org/FAQs/InterDev/ControlXLFromWord.htm

Finally, and this is my personal favorite:

Add DocVariables to your Word document, wherever you want the Excel data to
go. For instance in Word click Insert > Field > DocVariable > New Name (I
used First_Name in my example) > OK. You will see a space reserved for the
variable. Tap Alt+F9 to display or hide the DocVariable. There are many,
many other methods, using bookmarks, etc. I think the DocVariable method is
the best for countless reasons (too many to go into here; try it you will see
the benefits of using this method).


Sub ControlWordFromXL()

Dim objWord As New Word.Application
Dim doc As Word.Document
Dim bkmk As Word.Bookmark
sWdFileName = Application.GetOpenFilename(, , , , False)
Set doc = objWord.Documents.Open(sWdFileName)
On Error Resume Next

Sheets("Sheet1").Activate
objWord.ActiveDocument.Variables("First_Name").Value =
Range("First_Name").Value
objWord.ActiveDocument.Variables("Last_Name").Value =
Range("Last_Name").Value
‘etc……………………………….
objWord.ActiveDocument.Fields.Update

On Error Resume Next
objWord.Visible = True

End Sub


Regards,
Ryan--


Regards,
Ryan---