Prev: What is this 'g¬e' (the rogue 2nd character)?
Next: error in word document
From: RPM7 on 29 Apr 2010 04:43

I have a document that I would like to embed the filename into the
header.
The first page of the document has a blank header & the second page has
the same header as the remainder of the document.
I initially inserted the field [file name] with Uppercase but it
included the ".doc" at the end which I would like to remove. I looked
online and most sites say this can't be done. (Plus the field must be
updated to take effect)
Instead is it possible to insert a macro that upon saving the file
would create a text box in both headers with the filename and the last
4 letters omitted to remove the ".doc".

Does anyone know anything about this?
I'd appreciate any help at all. Thanks.




--
RPM7
From: Steve Yandl on 29 Apr 2010 20:05
The subroutine below assumes a document with only one section and will
insert the file name in upper case without the file extension as the left
header on pages 2 and beyond. I didn't take the time to see if this could
be integrated with a sub that intercepts the fileSaveAs normal save and
follows the save with a header update and new save but that might be your
next step.

Steve Yandl

' ----------------------------------------------------------

Sub BaseFileNameHeader()

Dim fso
Dim strFileBaseName As String

Set fso = CreateObject("Scripting.FileSystemObject")
strFileBaseName = fso.GetBaseName(ActiveDocument.Name)
strFileBaseName = UCase(strFileBaseName)

With ActiveDocument.Sections(1)
.PageSetup.DifferentFirstPageHeaderFooter = True
.Headers(1).Range.Text = strFileBaseName
.Headers(wdHeaderFooterFirstPage).Range.Text = ""
End With

Set fso = Nothing

End Sub

' -------------------------------------------------------------

"RPM7" <RPM7.61f3f2a(a)wordbanter.com> wrote in message
news:RPM7.61f3f2a(a)wordbanter.com...
>
> I have a document that I would like to embed the filename into the
> header.
> The first page of the document has a blank header & the second page has
> the same header as the remainder of the document.
> I initially inserted the field [file name] with Uppercase but it
> included the ".doc" at the end which I would like to remove. I looked
> online and most sites say this can't be done. (Plus the field must be
> updated to take effect)
> Instead is it possible to insert a macro that upon saving the file
> would create a text box in both headers with the filename and the last
> 4 letters omitted to remove the ".doc".
>
> Does anyone know anything about this?
> I'd appreciate any help at all. Thanks.
>
>
>
>
> --
> RPM7

 | 
Pages: 1
Prev: What is this 'g¬e' (the rogue 2nd character)?
Next: error in word document