Hi,
The problem comes because I have a macro (below) that puts document
information called from an ini file on the users C drive which works
fine until the user saves the document then opens another document from
the same program when they reopen the first documnet it now has the
second documnets details in it which is what I want to stop!
I think what you've said will work but I'm not sure where to stick it
in the code (its an inherited macro) Can you help?

Sub nofooter()
'
   With WordBasic
    .NormalViewHeaderArea Type:=0
   End With
   '
   End
End Sub
'

Sub HeaderLine()
'
   Selection.HeaderFooter.Shapes.AddLine(93.6, 57.6, 504#,
57.6).Select
   Selection.ShapeRange.Line.Weight = 2.75
   Selection.ShapeRange.Line.DashStyle = msoLineSolid
   Selection.ShapeRange.Line.Style = msoLineSingle
   Selection.ShapeRange.Line.Transparency = 0#
   Selection.ShapeRange.Line.Visible = msoTrue
   Selection.ShapeRange.Line.ForeColor.RGB = RGB(128, 128, 128)
   Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)

End Sub
Sub footerlines()
'
   Selection.HeaderFooter.Shapes.AddLine(93.6, 760#, 504#, 760#). _
       Select
   Selection.ShapeRange.Line.Weight = 3#
   Selection.ShapeRange.Line.DashStyle = msoLineSolid
   Selection.ShapeRange.Line.Style = msoLineSingle
   Selection.ShapeRange.Line.Transparency = 0#
   Selection.ShapeRange.Line.Visible = msoTrue
   Selection.ShapeRange.Line.ForeColor.RGB = RGB(150, 150, 150)
   Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
   Selection.ShapeRange.RelativeVerticalPosition = _
       wdRelativeVerticalPositionParagraph
   'Second line !!
   Selection.HeaderFooter.Shapes.AddLine(93.6, 780#, 504#, 780#). _
       Select
   Selection.ShapeRange.Line.Weight = 3#
   Selection.ShapeRange.Line.DashStyle = msoLineSolid
   Selection.ShapeRange.Line.Style = msoLineSingle
   Selection.ShapeRange.Line.Transparency = 0#
   Selection.ShapeRange.Line.Visible = msoTrue
   Selection.ShapeRange.Line.ForeColor.RGB = RGB(150, 150, 150)
   Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
   Selection.ShapeRange.RelativeVerticalPosition = _
       wdRelativeVerticalPositionParagraph
End Sub

Sub AutoOpen()
'
Dim MyDate
MyDate = Date   ' MyDate contains the current system date.
With WordBasic
maxchar = 64

' modification D B 02/09/04 if document comes from IE then load
different INI file generated
If Left(Application.ActiveDocument.Name, 10) = "IEDownLoad" Then
   Dim strIniName As String
   strIniName = Left(Application.ActiveDocument.Name, 60) & ".ini"
   Title$ = .[getPrivateProfileString$]("Document", "QWTitle",
"\\Appsrv2\QWBINI_Files\" & strIniName)
   Ref$ = .[getPrivateProfileString$]("Document", "QWref",
"\\Appsrv2\QWBINI_Files\" & strIniName)
   Rev$ = .[getPrivateProfileString$]("Document", "QWRev",
"\\Appsrv2\QWBINI_Files\" & strIniName)
   Stat$ = .[getPrivateProfileString$]("Document", "QWStat",
"\\Appsrv2\QWBINI_Files\" & strIniName)
   IDate$ = .[getPrivateProfileString$]("Document", "QWIssue",
"\\Appsrv2\QWBINI_Files\" & strIniName)
   Typ$ = .[getPrivateProfileString$]("Document", "QWTYPE",
"\\Appsrv2\QWBINI_Files\" & strIniName)
Else
   Title$ = .[getPrivateProfileString$]("Document", "QWTitle",
"qwcs.ini")
   Ref$ = .[getPrivateProfileString$]("Document", "QWref", "qwcs.ini")
   Rev$ = .[getPrivateProfileString$]("Document", "QWRev", "qwcs.ini")
   Stat$ = .[getPrivateProfileString$]("Document", "QWStat",
"qwcs.ini")
   IDate$ = .[getPrivateProfileString$]("Document", "QWIssue",
"qwcs.ini")
   Typ$ = .[getPrivateProfileString$]("Document", "QWTYPE",
"qwcs.ini")
End If
   '
   ' Get next issue date from RC ini file
   NIDate$ = .[getPrivateProfileString$]("Document", "Nissue",
"\\appsrv1\qwb_pro\master\RC.ini")
   '
End With
   ' check for short or long date format
   Dim Findspace
   Findspace = Mid(IDate$, 9, 1)
   If Findspace = " " Then IDate$ = Left(IDate$, 8) Else IDate$ =
Left(IDate$, 10)
   '
   ' Check to see if document status is ISSUED
    Dim Issuestatus
    Issuestatus = Mid(Stat$, 1, 6)
   If Issuestatus <> "ISSUED" Then IDate$ = ""
   '
With WordBasic
With ActiveDocument.PageSetup
       '
       .FooterDistance = 35
End With
header:
.StartOfDocument
.NormalViewHeaderArea Type:=0
.EditSelectAll
.WW6_EditClear
.Font "Arial"
.FormatFont Points:=14, Bold:=1, Italic:=0, Color:=0
.Insert " " + Title$
Call HeaderLine
'.StartOfDocument
'
footer:
'.StartOfDocument
.NormalViewHeaderArea Type:=0
.Font "Arial"
.NormalViewHeaderArea Type:=1
.EditSelectAll
.WW6_EditClear
.Font "Arial"
.FormatFont Points:=8, Bold:=0, Italic:=1, Color:=0
.InsertPara
'
'Can't use word basic for this
End With
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
   '
   ' check to see if the document is a form, and if it is then exit !
   '
   'If Typ$ = "Form (F)" Then Call nofooter Else
   With WordBasic
   .Insert "Document administered by WPro. Uncontrolled copies valid
until the next document issue on " + NIDate$
   .InsertPara
   .InsertPara
   '.CharRight 100
   .Font "Arial"
   .FormatFont Points:=8, Bold:=1, Italic:=0, Color:=0
   .Insert "HFL " + Ref$
   .Insert Chr(9) + "Revision " + Rev$
   .Insert Chr(9) + "Page Number "
   .InsertField Field:="page \*arabic"
   .Insert " of "
   .InsertField Field:="numpages"
   .CharRight 10
   .InsertPara
   .Insert "Status: " + Stat$ + " (" + IDate$ + ")"
   .Insert Chr(9) + "Issuing Authority: System Administrator"
   .Insert Chr(9) + "Date Printed "
   Selection.InsertDateTime
   Call footerlines
   .NormalViewHeaderArea Type:=0
End With
End Sub