VBA for Word - inserting images on the first page of a section -
i trying set script set business headers , footers on word documents. header omitted on first page, set sections accordingly different.
since footer same on every page, wrote script go through section , add business name , page numbers. not add image (logo) first page, following
'set headers , footers different each page activedocument.pagesetup.differentfirstpageheaderfooter = true 'set footer activedocument.sections(1) .footers(wdheaderfooterfirstpage).range.insertafter text:="first page text" .footers(wdheaderfooterfirstpage).shapes.addpicture filename:="c:\logo.png", linktofile:=false, savewithdocument:=true .footers(wdheaderfooterprimary).range.insertafter text:="later pages text" .footers(wdheaderfooterprimary).shapes.addpicture filename:="c:\logo.png", linktofile:=false, savewithdocument:=true end
any appreciated!
edit: think bug, based on reading article: http://scottonoffice.wordpress.com/2009/10/16/office-2007-bug-using-shapes-in-section-headers/
-doug
Comments
Post a Comment