Create autotext entries for each paragraph is probably the best thing to do
and then use
' Macro created 15-11-97 by Doug Robbins to add the address corresponding to
a drop down name
'
Dim Para as String, Paratext as string
Set myDrop = ActiveDocument.FormFields("Dropdown1").DropDown
Para = myDrop.ListEntries(myDrop.Value).Name
Paratext = ActiveDocument.AttachedTemplate.AutoTextEntries(Para).Value
ActiveDocument.FormFields("Text1").Result = Paratext
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP