autotext problem

  • Thread starter Thread starter calista lim
  • Start date Start date
C

calista lim

i read a few of the comments state that the autotext (to insert autotext such
pathname/location of file/folder name into the footer) which i used to do
using MS Office 2003 is not available or not functioning properly in MS
2007??? so how's the status now as i need to use it? seek for advise
....thanks.
 
Create your own autotext entry to insert a filename field with a \p switch
or
simply insert the filename field in the footer.
or
use a macro to insert the filename

Sub InsertFilenameInFooter()
Dim iSec As Integer
Dim rFooter As Range
With ActiveDocument
If Len(.Path) = 0 Then .Save
iSec = .Sections.Count
Set rFooter = .Sections(iSec).Footers(wdHeaderFooterPrimary).Range
rFooter.InsertAfter vbCr & .FullName
With rFooter.Paragraphs(rFooter.Paragraphs.Count)
.Alignment = wdAlignParagraphRight
With .Range
.Font.name = "Arial"
.Font.Size = 8
End With
End With
End With
End Sub

http://www.gmayor.com/installing_macro.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
Back
Top