header filename w/o extension

[Laura G]

how do you insert the filename without the extension into the header.

 

[Karl E. Peterson]

how do you insert the filename without the extension into the header.

What are you having trouble with -- stripping the extension off the
filename, or adding text to the header?

 

[Jonathan West]

Hi Laura,

If you are wanting to use the FILENAME field to do this, then no, you can't
omit the filename extension.

if you want to use VBA to insert the text of the filename as text, then
ActiveDocument.Name returns the filename, and you can use the instrRev
function to find the position of the last period in the name, and then use
the Left$ function to trim the string to the appropriate length before
inserting it.

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

 

[Laura G]

stripping the extension

What are you having trouble with -- stripping the extension off the
filename, or adding text to the header?

 

[Laura G]

that's exactly what i need...but i'm not familar with that function. point
me in the right direction?

 

[Laura G]

Actually, I would like to use everything to the LEFT of a specific word.
Will not always be in same location though...

 

[Jonathan West]

Try this

strName = ActiveDocument.Name
strName = Left$(strName, InstrRev(strName, ".") - 1)

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

 

[Karl E. Peterson]

Actually, I would like to use everything to the LEFT of a specific
word. Will not always be in same location though...

In that case, assuming SomeText is the variable that holds the original
string...

nPos = Instr(SomeText, SpecificWord)
If nPos Then
WhatYouWant = Left$(SomeText, nPos - 1)
End If

 

[Karl E. Peterson]

stripping the extension

BaseFileName = Left$(FileName, InStrRev(FileName, ".") - 1)

 

[Jonathan West]

Hi Karl,

To get the last occurrence (instead of the first) of SpecificWord, you need
to use InstrRev, not Instr...

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

 

[Karl E. Peterson]

Hi Karl,

To get the last occurrence (instead of the first) of SpecificWord,
you need to use InstrRev, not Instr...

Whoops, of course. Typed too fast. (At least I got it right in one post.)

Thanks... Karl