In case anyone wants to use it or comment...
Sub GrabAddresses()
Dim vFile As String
Dim PathToUse As String
Dim vDoc As Document
Dim vAddr As String

PathToUse = "C:\Documed\List Maker\Files\"
 On Error Resume Next
   vFile = Dir$(PathToUse & "*.doc")
     While vFile <> ""
       Set vDoc = Documents.Open(PathToUse & vFile)
         Selection.Find.ClearFormatting
         Selection.Find.Font.Underline = wdUnderlineSingle
         Selection.Find.Replacement.ClearFormatting
         Selection.Find.Replacement.Font.Underline = wdUnderlineNone
         With Selection.Find
           .Text = ""
           .Replacement.Text = ""
           .Forward = True
           .Wrap = wdFindContinue
           .Format = True
           .MatchCase = False
           .MatchWholeWord = False
           .MatchWildcards = False
           .MatchSoundsLike = False
           .MatchAllWordForms = False
         End With
         Selection.Find.Execute Replace:=wdReplaceAll
vDoc.envelope.Insert
 vAddr = vDoc.envelope.Address.Text
   Documents("List.doc").Activate
     Selection.EndKey Unit:=wdStory
     Selection.TypeText (vAddr)
     Selection.TypeText vbCr
     Selection.TypeText Text:="~"
     Selection.TypeText vbCr
vDoc.Close SaveChanges:=wdDoNotSaveChanges
   vFile = Dir$()
Wend
End Sub

    ----- Faye wrote: -----
 
    Hello,
    I've searched the newsgroups, but can't find anything on this.  I hope someone can help me do this.
    I need to loop through all letters in a folder, extract the delivery address from each, and add it to a list to create an address list of all receipients of these letters.  This is a kind of reverse mail merge where a 'data' file (just a tab delimited list in a document) is created from the letters instead of the opposite. I know that there's an activedocument.envelope.address.text property, but none of these letters have an envelope.  How does Word extract these 'Inside addresses' for the E&L wizard?
    Thank you! ( Using Word97)