[mso] Re: Word 2000 Footer ?
- From: "Dian Chapman" <dian@xxxxxxxxxxxxx>
- To: <mso@xxxxxxxxxxxxx>
- Date: Mon, 31 Mar 2003 12:32:23 -0600
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).
//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).
//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:
