How to display the filename without extension by { filename }?
Say, given a document named ‘MyDoc.docx”, how to show it as “MyDoc”?
Armstrong
![]() |
Patch reliability is unclear. Unless you have an immediate, pressing need to install a specific patch, don't do it. |
SIGN IN | Not a member? | REGISTER | PLUS MEMBERSHIP |
-
How to display filename without extension
Home » Forums » AskWoody support » Productivity software by function » MS Word and word processing help » How to display filename without extension
- This topic has 6 replies, 3 voices, and was last updated 15 years, 10 months ago.
AuthorTopicViewing 0 reply threadsAuthorReplies-
WSjscher2000
AskWoody LoungerJuly 31, 2009 at 12:45 am #1171671How to display the filename without extension by { filename }?
Say, given a document named ‘MyDoc.docx”, how to show it as “MyDoc”?Same question as this topic from May: Filename Field Code options Word 2007 (Word). Unfortunately the answer was that you cannot display only a portion of the file name when using the FILENAME field.
-
WSarmsys
AskWoody LoungerJuly 31, 2009 at 1:45 am #1171672Same question as this topic from May: Filename Field Code options Word 2007 (Word). Unfortunately the answer was that you cannot display only a portion of the file name when using the FILENAME field.
Hi Jscher2000,
Thanks for your fast response. I thought it could be attained by { quote }.
Armstrong -
macropod
AskWoody_MVP -
WSarmsys
AskWoody Lounger -
macropod
AskWoody_MVPAugust 1, 2009 at 2:57 am #1171769Hi macropod,
You’re the authority in the Field. Perhaps I should learn how to do it in VBA.
Thanks.
ArmstrongHi Armstrong,
If you add the following code to the document’s ‘this Document’ module, and insert a bookmark named ‘FileName’ wherever you want the filename to appear, it will insert/update the file’s name (without the extension) at that location whenever the document is opened. If you want this to apply to all documents based on a given template, do the same to the template.
Code:Private Sub Document_Open() Dim BmkNm As String, BmkRng As Range, FileName As String BmkNm = "FileName" FileName = ActiveDocument.Name If InStrRev(FileName, ".") > 0 Then FileName = Left(FileName, InStrRev(FileName, ".") - 1) If ActiveDocument.Bookmarks.Exists(BmkNm) Then Set BmkRng = ActiveDocument.Bookmarks(BmkNm).Range If BmkRng.Text = FileName Then Exit Sub BmkRng.Text = FileName ActiveDocument.Bookmarks.Add BmkNm, BmkRng Else MsgBox "Bookmark: " & BmkNm & " not found." End If Set BmkRng = Nothing End Sub
Cheers,
Paul Edstein
[Fmr MS MVP - Word] -
WSarmsys
AskWoody Lounger
-
-
-
-
Viewing 0 reply threads -

Plus Membership
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
Get Plus!
Welcome to our unique respite from the madness.
It's easy to post questions about Windows 11, Windows 10, Win8.1, Win7, Surface, Office, or browse through our Forums. Post anonymously or register for greater privileges. Keep it civil, please: Decorous Lounge rules strictly enforced. Questions? Contact Customer Support.
Search Newsletters
Search Forums
View the Forum
Search for Topics
Recent Topics
-
Apple : Paragon’s iOS Mercenary Spyware Finds Journalists Target
by
Alex5723
33 minutes ago -
Music : The Rose Room – It’s Been A Long, Long Time album
by
Alex5723
1 hour, 39 minutes ago -
Disengage Bitlocker
by
CWBillow
3 hours, 3 minutes ago -
Mac Mini M2 Service Program for No Power Issue
by
Alex5723
3 hours, 38 minutes ago -
New Win 11 Pro Geekom Setup questions
by
Deo
5 hours, 23 minutes ago -
Windows 11 Insider Preview build 26200.5651 released to DEV
by
joep517
10 hours, 54 minutes ago -
Windows 11 Insider Preview build 26120.4441 (24H2) released to BETA
by
joep517
10 hours, 55 minutes ago -
iOS 26,, MacOS 26 : Create your own AI chatbot
by
Alex5723
14 hours, 50 minutes ago -
New PC transfer program recommendations?
by
DaveBoston
5 hours, 11 minutes ago -
Windows 11 Insider Preview Build 22631.5545 (23H2) released to Release Preview
by
joep517
18 hours, 55 minutes ago -
Windows 10 Build 19045.6029 (22H2) to Release Preview Channel
by
joep517
18 hours, 56 minutes ago -
Best tools for upgrading a Windows 10 to an 11
by
Susan Bradley
7 hours, 15 minutes ago -
The end of Windows 10 is approaching, consider Linux and LibreOffice
by
Alex5723
4 hours, 37 minutes ago -
Extended Windows Built-in Disk Cleanup Utility
by
bbearren
17 hours, 5 minutes ago -
Win 11 24H2 June 2025 Update breaks WIFI
by
dportenlanger
1 day, 13 hours ago -
Update from WinPro 10 v. 1511 on T460p?
by
CatoRenasci
11 hours, 49 minutes ago -
System Restore and Updates Paused
by
veteran
1 day, 16 hours ago -
Windows 10/11 clock app
by
Kathy Stevens
1 day, 3 hours ago -
Turn off right-click draw
by
Charles Billow
1 day, 19 hours ago -
Introducing ChromeOS M137 to The Stable Channel
by
Alex5723
1 day, 23 hours ago -
Brian Wilson (The Beach Boys) R.I.P
by
Alex5723
17 hours, 4 minutes ago -
Master patch listing for June 10, 2025
by
Susan Bradley
2 days ago -
Suggestions for New All in One Printer and a Photo Printer Windows 10
by
Win7and10
1 day, 3 hours ago -
Purchasing New Printer. Uninstall old Printer Software First?
by
Win7and10
2 days, 6 hours ago -
KB5060842 Issue (Minor)
by
AC641
18 hours, 54 minutes ago -
EchoLeak : Zero Click M365 Copilot leak sensitive information
by
Alex5723
2 days, 13 hours ago -
24H2 may not be offered June updates
by
Susan Bradley
1 day, 6 hours ago -
Acronis : Tracking Chaos RAT’s evolution (Windows, Linux)
by
Alex5723
3 days, 2 hours ago -
June 2025 updates are out
by
Susan Bradley
7 hours, 55 minutes ago -
Mozilla shutting Deep Fake Detector
by
Alex5723
3 days, 17 hours ago
Recent blog posts
Key Links
Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.
Mastodon profile for DefConPatch
Mastodon profile for AskWoody
Home • About • FAQ • Posts & Privacy • Forums • My Account
Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts
Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.