create a macro to insert file name in word

Also this Macro would run once and you would need to run it again when the filename changes. '.doc' - if you safe a '.docx' the '.' would be preserved.

What it does is simply strip the last 4 characters of the 'Filename string' e.g. Selection.InsertBefore Text:=Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4) So, either you change that setting or you need some code.Ī very simple Macro would be the following: Sub InsertCurrentFileName() To show or not to show (Shakespearean style) the extension is purely up to the Windows Explorer setting to show or hide known file extensions. Please suggest (in word VBA).Insert > QuickParts > Field > FileName is the way to go, but as you see from the screenshot below, you do not have the option to turn the file extension on or off.

However, this only populates the complete filename at the top of the document. Range:=Selection.Range, Type:=wdFieldEmpty, _ I could come up with the following macro: Selection.HomeKey Unit:=wdStory And I want both places populated with the date in the expanded format, that is: (2), in the 2nd pg header of the document, in place of typed 'Month dd, yyyy'.Īgain, the 'Month dd, yyyy' is only typed twice in the document one in the body and one in the 2nd pg header. (1) in the body of the document, in place of typed 'Month dd, yyyy', I am only interested in the date '02-01-2017', which I want populated in the Word document at two places: (2) '02-01-2017' is the date, which keeps changing every day ( so next day it will be 02-02-2017, and so on (1) ' MDouglas-DouglasM- ' remains static in the beginning of the name

Create a macro to insert file name in word