{"id":64673,"date":"2007-06-12T23:44:00","date_gmt":"2007-06-12T23:44:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2007\/06\/12\/how-can-i-put-the-file-name-in-the-footer-of-a-microsoft-word-document\/"},"modified":"2007-06-12T23:44:00","modified_gmt":"2007-06-12T23:44:00","slug":"how-can-i-put-the-file-name-in-the-footer-of-a-microsoft-word-document","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/how-can-i-put-the-file-name-in-the-footer-of-a-microsoft-word-document\/","title":{"rendered":"How Can I Put the File Name in the Footer of a Microsoft Word Document?"},"content":{"rendered":"

\"Hey, \n

Hey, Scripting Guy! I\u2019ve seen Word documents where the file name appears in the footer. Except that this file name is dynamic: if the name of the document changes then the footer changes, too. How can I add that kind of a footer using a script?

— ZK <\/P>\"Spacer\"\"Hey,\"Script<\/A> \n

Hey, ZK. You know, it\u2019s always tough to come back to work after being gone for a week; there\u2019s just so many things to catch up on. For example, we haven\u2019t had the chance yet to mention the fact that, in a study of the 25 largest metropolitan areas in the U.S., Seattle drivers ranked 23rd<\/SUP> out of 25 when it came to the rudest drivers. (In other words, we have very polite<\/I> drivers here. The rudest drivers of all? Those from Miami.) <\/P>\n

The Scripting Guy who writes this column finds this interesting, in part because none of his Scripting Siblings ever come over to the Seattle area to visit him. Why not? \u201cNo way am I driving with all those crazy Seattle drivers!\u201d Except, as it turns out, Seattle drivers aren\u2019t<\/I> crazy drivers after all.<\/P>\n

Hmmm; wonder why they really<\/I> don\u2019t ever come over to visit him?<\/P>\n\n<\/THEAD>\n\n\n
\n

Note<\/B>. Actually there\u2019s a simple, logical explanation why they don\u2019t come over: driving from the Tri-Cities to Seattle is a long<\/I> drive, too long to make for a weekend visit. Apparently, though, it\u2019s way shorter and way easier for the Scripting Guy who writes this column to drive from Seattle to the Tri-Cities. And he\u2019s expected to do so, even if that means driving over, attending some sort of family function, and then turning around and driving back.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n

<\/DIV>\n

So if Seattle-area drivers are nice does that mean that Seattle-area Scripting Guys are nice, too? And does that also mean that they\u2019d be happy to answer a question about adding a dynamic file name to the footer of a Word document? Heck no. But they\u2019ll answer the question anyway:<\/P>

Const wdFieldFileName = 29<\/p>\n
Set objWord = CreateObject(“Word.Application”)\nobjWord.Visible = True<\/p>\n
Set objDoc = objWord.Documents.Add()<\/p>\n
Set objRange = objDoc.Sections(1).Footers(1).Range\nSet objField = objDoc.Fields.Add(objRange, wdFieldFileName)<\/p>\n
objDoc.SaveAs “C:\\Scripts\\Test.doc”\n<\/PRE>\n
OK. This script starts out by defining a constant named wdFieldFileName and setting the value to 29. As it turns out, Word includes a number of built-in \u201cfields\u201d that can display information such as file name, user name, author name, last-saved date, last-printed date, etc. The field that displays the file name has a value of 29; hence we assign our constant the value 29.<\/P>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. Gosh, have the Scripting Guys memorized all these Word fields and<\/I> their corresponding values? No, of course not, we \u2013 uh, yes, yes we have; that\u2019s what makes us the Scripting Guys. For the rest of you, though, those constants \u2013 and their values \u2013 can be found by looking in the Microsoft Word SDK and, in particular, by looking at the wdFieldType enumeration<\/B><\/A>.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
After defining the constant we next create an instance of the Word.Application<\/B> object and set the Visible<\/B> property to True; that gives us a running instance of Word that we can see onscreen. We then use this line of code to add a new, blank document to our instance of Word:<\/P>
Set objDoc = objWord.Documents.Add()\n<\/PRE>\n
Now that we have a document we need to insert the field for the file name in the footer. To do that, we first create a Range object that encompasses the first footer in the first section of the document (which, for a brand-new document, will also be the only<\/I> footer in the document):<\/P>
Set objRange = objDoc.Sections(1).Footers(1).Range\n<\/PRE>\n
And then we\u2019re ready to insert the field:<\/P>
Set objField = objDoc.Fields.Add(objRange, wdFieldFileName)\n<\/PRE>\n
That\u2019s right: just one line of code. We reference the Fields<\/B> collection and then call the Add<\/B> method. This method requires two parameters: the spot in the document where we want to insert the field (objRange, the object reference to the footer) and the value of the field to be inserted. This, of course, is where we use our constant wdFieldFileName.<\/P>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. By default, this script left-aligns the footer. If you\u2019d prefer the footer to be center-aligned then just add this bit of code after inserting the field: objRange.ParagraphFormat.Alignment = 1.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
Of course, having a footer that displays the file name is somewhat meaningless if you don\u2019t actually have<\/I> a file name. Therefore, we added this line of code to save the file as C:\\Scripts\\Test.doc:<\/P>
objDoc.SaveAs “C:\\Scripts\\Test.doc”\n<\/PRE>\n
And that, as they say, is all, folks.<\/P>\n
You know, it\u2019s funny: usually when we mention a news item in this column we do so only so we can poke fun at that item. In this case, though, we happen to agree with the news: Seattle drivers are<\/I> pretty polite. But, then again, it\u2019s hard to be a rude and aggressive driver when you\u2019re gridlocked over 8 lanes of traffic, none of which ever seem to move. You can still be rude and aggressive, mind you, but it\u2019s awfully hard to call you a driver<\/I> when you aren\u2019t actually going anywhere.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! I\u2019ve seen Word documents where the file name appears in the footer. Except that this file name is dynamic: if the name of the document changes then the footer changes, too. How can I add that kind of a footer using a script?— ZK Hey, ZK. You know, it\u2019s always tough to […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[84,49,3,5],"class_list":["post-64673","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-microsoft-word","tag-office","tag-scripting-guy","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! I\u2019ve seen Word documents where the file name appears in the footer. Except that this file name is dynamic: if the name of the document changes then the footer changes, too. How can I add that kind of a footer using a script?— ZK Hey, ZK. You know, it\u2019s always tough to […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/64673","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=64673"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/64673\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=64673"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=64673"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=64673"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}