The following macro will both save the document and insert the filename and
path at the end. If you want just the name change the instances of .Fullname
to .Name. If you change the name of the document or the file location,
re-run the macro.
Sub InsertFileNameAtEnd()
With ActiveDocument
If Len(.Path) = 0 Then .Save
If InStr(1, .Range.Paragraphs.Last.Range.Text, _
".doc") = False Then
.Range.InsertAfter vbCr & .FullName
With .Range.Paragraphs.Last.Range
.Paragraphs.Alignment = _
wdAlignParagraphRight
.Font.name = "Arial"
.Font.Size = 8
End With
Else
.Range.Paragraphs.Last.Range.Text = _
.FullName
End If
End With
End Sub
http://www.gmayor.com/installing_macro.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
Word MVP web site
http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
teknon wrote:
> I use to use Corel. After naming a document, I could automatically
> add the document name at the end of a document. I remember that it
> was different than an endnote.