Hi,  I have been trying unsucessfully to manipulate the following code
for my purposes.  Could anyone please help?  I am trying to loop
through a folder with Word files that are application forms.  These
need to be exported (using save forms data) to seperate text files with
the same name as the Word files.  When I run this piece of code, two
problems come up -

1) If it works, then I have to press "Save" and then "Insert line
breaks etc." for the text file that is produced.  I will eventually be
dealing with a few hundred applications, so pressing two buttons
everytime will be quite tedious.

2) Error - cannot save forms data as the same name as active document
... my text files need to be of the same name!

Many thanks for all your help.

(TO GET WORD FILES INTO TEXT FILES)

Sub CompileFormData()
' Macro recorded 8/19/01 by Debra Dalgleish
Dim strDir As String
Dim i As Integer
strDir = "C:\Documents and Settings\Desktop\Experiment Folder"
Application.DisplayAlerts = wdAlertsNone
With Application.FileSearch
   .NewSearch
   .LookIn = strDir
   .SearchSubFolders = False
   If .Execute() > 0 Then
       For i = 1 To .FoundFiles.Count
         Documents.Open (.FoundFiles(i))
         ActiveDocument.SaveFormsData = True
         Application.DefaultSaveFormat = ""
         ChangeFileOpenDirectory "C:\Documents and
Settings\Desktop\Experiment Folder\text_files"
         ActiveDocument.SaveAs FileName:=ActiveDocument.Name, _
         FileFormat:=wdFormatText, SaveFormsData:=True
         ActiveWindow.Close
       Next i
   End If
End With

strDir = "C:\Documents and Settings\Desktop\Experiment
Folder\text_files"
With Application.FileSearch
   .NewSearch
   .LookIn = strDir
   .SearchSubFolders = False
   If .Execute() > 0 Then
       For i = 1 To .FoundFiles.Count
         Documents.Open (.FoundFiles(i))
         Selection.WholeStory
         Selection.Copy
         ActiveWindow.Close
         Selection.EndKey Unit:=wdStory
         Selection.Paste
       Next i
   End If
End With
Application.DisplayAlerts = wdAlertsAll

End Sub