Hi,

I'm using Word97 and have approx 100 unformatted text files in the following
directory

\\FINPC13\SHARE FIN01\NR6 Draft .rpt\

I want to open each in turn, perform identical formatting on each file and
then save the file as a word document within the same directory.
The following programming performs the first part of this routine (I think!)

Sub RunNR6()

Dim myFile As String
Dim PathToUse As String
Dim myDoc As Document

PathToUse = "\\FINPC13\SHARE FIN01\NR6 Draft .rpt\"

myFile = Dir$(PathToUse & "*.rpt")

While myFile <> ""

Set myDoc = Documents.Open(PathToUse & myFile)

   Selection.WholeStory
   Selection.Font.Size = 8
   With ActiveDocument.PageSetup
       .LineNumbering.Active = False
       .Orientation = wdOrientLandscape
       .TopMargin = InchesToPoints(0.5)
       .BottomMargin = InchesToPoints(0.5)
       .LeftMargin = InchesToPoints(1)
       .RightMargin = InchesToPoints(0.5)
       .Gutter = InchesToPoints(0)
       .HeaderDistance = InchesToPoints(0.5)
       .FooterDistance = InchesToPoints(0.5)
       .PageWidth = InchesToPoints(11.69)
       .PageHeight = InchesToPoints(8.27)
       .FirstPageTray = wdPrinterDefaultBin
       .OtherPagesTray = wdPrinterDefaultBin
       .SectionStart = wdSectionNewPage
       .OddAndEvenPagesHeaderFooter = False
       .DifferentFirstPageHeaderFooter = False
       .VerticalAlignment = wdAlignVerticalTop
       .SuppressEndnotes = False
       .MirrorMargins = False
   End With
               

I am struggling with the code which will then save each file (the active
document at the time) as a fully formatted word document within the following
directory:-

\\FINPC13\SHARE FIN01\NR6 Draft .rpt\

Help gratefully appreciated.

Graham