Sub test()
Application.ScreenUpdating = False
With ActiveDocument.Sections(1)
.PageSetup.OddAndEvenPagesHeaderFooter = True
With .Footers(wdHeaderFooterPrimary)
With .PageNumbers
.Add PageNumberAlignment:=wdAlignPageNumberRight
.NumberStyle = wdPageNumberStyleNumberInDash
End With
With .Range.Frames(1)
.HorizontalPosition = wdFrameRight
With .Range.ParagraphFormat
.Alignment = wdAlignParagraphRight
.CharacterUnitRightIndent = 1
End With
End With
End With
With .Footers(wdHeaderFooterEvenPages).Range.Frames(1)
.HorizontalPosition = wdFrameLeft
With .Range.ParagraphFormat
.Alignment = wdAlignParagraphLeft
.CharacterUnitLeftIndent = 1
End With
End With
End With
Application.ScreenUpdating = True
End Sub