[mso] Re: Word 2000 Footer ?

Yup...she'll wanna use the Insert/Field/FILENAME field code. Check it =
for
options.

Here's the VBA code I use to do this. I have this macro on my menu so a
quick click adds the info to the doc. Here's an article she can read for
details to use this code:

http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=3D166

Sub DocFile()
'by Dian, to add file info to doc footer

    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type =3D wdNormalView Or =
ActiveWindow. _
        ActivePane.View.Type =3D wdOutlineView Then
        ActiveWindow.ActivePane.View.Type =3D wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView =3D wdSeekCurrentPageHeader
    If Selection.HeaderFooter.IsHeader =3D True Then
        ActiveWindow.ActivePane.View.SeekView =3D =
wdSeekCurrentPageFooter
    Else
        ActiveWindow.ActivePane.View.SeekView =3D =
wdSeekCurrentPageHeader
    End If
    With Selection.Font
        .Name =3D "Arial"
        .Size =3D 8
        .Bold =3D False
        .Italic =3D False
    End With
    Selection.TypeText text:=3D"This document is:  "
    Selection.Fields.Add Range:=3DSelection.Range, Type:=3DwdFieldEmpty, =
text:=3D
_
        "FILENAME \p ", PreserveFormatting:=3DTrue
    Selection.HomeKey Unit:=3DwdLine, Extend:=3DwdExtend
    With Selection.ParagraphFormat
        .Borders(wdBorderLeft).LineStyle =3D wdLineStyleNone
        .Borders(wdBorderRight).LineStyle =3D wdLineStyleNone
        With .Borders(wdBorderTop)
            .LineStyle =3D wdLineStyleSingle
            .LineWidth =3D wdLineWidth050pt
            .Color =3D wdColorAutomatic
        End With
        .Borders(wdBorderBottom).LineStyle =3D wdLineStyleNone
        With .Borders
            .DistanceFromTop =3D 1
            .DistanceFromLeft =3D 4
            .DistanceFromBottom =3D 1
            .DistanceFromRight =3D 4
            .Shadow =3D False
        End With
    End With
    With Options
        .DefaultBorderLineStyle =3D wdLineStyleSingle
        .DefaultBorderLineWidth =3D wdLineWidth050pt
        .DefaultBorderColor =3D wdColorAutomatic
    End With
    ActiveWindow.ActivePane.View.SeekView =3D wdSeekMainDocument
End Sub=20


Dian Chapman
Technical Consultant
& Microsoft MVP

Free Word Tips & Tricks eBook: http://www.mousetrax.com/books.html
Free Tutorial site: http://www.mousetrax.com/techpage.html
Free Support Ezine: http://www.mousetrax.com/techtrax/
=20

-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On =
Behalf
Of Ivan Dix
Sent: Monday, March 31, 2003 12:15 PM
To: mso@xxxxxxxxxxxxx


Hello again!

I have someone here who wants to use a footer to tell anyone (who wants =
to
know) the location of a document. She says there is a way to put this in =
the
footer and then if the location changes, it will automatically update =
the
location.=20

Well, I haven't a clue. Is this possible? I'm not sure why she even =
wants
this...but if it's possible....let me know

Thanks!

Ivan

Boys & Girls Clubs of Greater San Diego

=20

=20



---------------------------------
Do you Yahoo!?
Yahoo! Platinum - Watch CBS' NCAA March Madness, live on your desktop!

*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx =
or
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to =
mso-request@xxxxxxxxxxxxx
with the word "unsubscribe" (without the quotes) in the subject line.

Or, visit the group's homepage and use the dropdown menu.  This will =
also
allow you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, =
send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an =
invitation
with instructions.  Once you are a member of the files group, you can go
here to upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to 
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in 
the subject line.

Or, visit the group's homepage and use the dropdown menu.  This will also allow 
you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a 
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with 
instructions.  Once you are a member of the files group, you can go here to 
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

Other related posts: