vba - Assign even odd page numbers in word -


i trying write vba macro word, document have page numbers, alignment of odd page number different page. code presently trying changing alignment of both odd , pages,which not desired

    activedocument.sections(i).pagesetup.oddandevenpagesheaderfooter = false     activewindow.activepane.view.seekview = wdseekcurrentpagefooter     selection.headerfooter.linktoprevious = not selection.headerfooter.linktoprevious     activedocument.sections(i).footers(wdheaderfooterprimary).linktoprevious = false     activedocument.sections(i).footers(1).pagenumbers         .numberstyle = wdpagenumberstylearabic         .headinglevelforchapter = 0         .includechapternumber = false         .chapterpageseparator = wdseparatorhyphen         .restartnumberingatsection = false         .startingnumber = starts         .add (0)     end end if activedocument.sections(i).pagesetup.oddandevenpagesheaderfooter = true activewindow.activepane.view.seekview = wdseekcurrentpagefooter activedocument.sections(i).footers(wdheaderfooterevenpages).linktoprevious = false wordbasic.insertalignmenttab alignment:=2, relative:=0, leader:=0 

it seems odd , pages don't set left , right positions of page numbers need set outside , inside positions of them.

so, try change tiny line:

.add (0) 

into 1 of possible 'odd-even' positions:

.add wdalignpagenumberoutside .add wdalignpagenumberinside 

moreover, last line trying insert 'tab' not necessary then.


Comments

Popular posts from this blog

Why does Ruby on Rails generate add a blank line to the end of a file? -

keyboard - Smiles and long press feature in Android -

node.js - Bad Request - node js ajax post -