#How to add page x of y in word 2010 how to#
Learn how to easily format your page of pages (X page of Y pages) on MS Word 2011 Mac. Set wordObj = CreateObject("Word.Application") Set docObj = (path) Set header = docObj.Sections(1).Headers(wdHeaderFooterPrimary) Learn how to easily format your page of pages (X page of Y pages) on MS Word 2011 Mac.
#How to add page x of y in word 2010 code#
I modified your code to look like more the initial: So far I managed to do the following with the header but not the core of what I wanted to: Set wordObj CreateObject('Word. Fields.Add Range:=.Characters(6), Type:=wdFieldEmpty, Text:="PAGE", PreserveFormatting:=False I did a very expensive research in this forum and online but I cannot find a way to insert page X of Y in the header of a document inbetween text. Fields.Add Range:=.Characters(8), Type:=wdFieldEmpty, Text:="NUMPAGES", PreserveFormatting:=False Fields.Add Range:=.Characters(11), Type:=wdFieldEmpty, Text:="DATE", PreserveFormatting:=False Set header = docObj.Sections(1).Headers(wdHeaderFooterPrimary)
But, as with so many people, it is so exasperating to no longer being able to do really simple stuff as inserting a 'Page x of y' or other 'Auto Content.' I finally did find it under 'Quick Parts' but the amount of wasting space in graphics was exceeded by my frustration is. Set wordObj = CreateObject("Word.Application") Well, there are plenty of new, great, terrific enhancements in 2010. If you're wedded to defining a header object, though, you could use: The code I posted is more efficient than either of your approaches. Range:=(11), Type:=wdFieldEmpty, Text:="DATE", PreserveFormatting:=False If you're going to take that approach, you'd need to use: Watch the video explanation about Microsoft Office Word 2010 Insert Blank Page Online, article, story, explanation, suggestion, youtube. Range:=.Characters(11), Type:=wdFieldEmpty, Text:="DATE", PreserveFormatting:=False Here you may to know how to add another page on word. Code like ' InsertAfter wdFieldNumPages' would insert as text only the numeric constant that wdFieldNumPages represents - in this case, 26.Īs for your follow-up, presumably your code is failing at: No, your code wasn't actually adding any fields. Characters(11)" field where I was using "Fields.Add header.Range" and probably I was adding a new whole range from the beggining, right? Actually, I was stuck to the ".Fields.Add Range:=.
0 kommentar(er)
