Hello this code works fine except that on the next page the first value is adjusted to the format of the previous page:
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount > 1 Then Exit Sub
If Me.Page Mod 2 = 1 Then
Me.Controls.Item("Word").Left = 1650
Else
Me.Controls.Item("Word").Left = 550
End If
End Sub
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount > 1 Then Exit Sub
If Me.Page Mod 2 = 1 Then
Me.Controls.Item("Word").Left = 1650
Else
Me.Controls.Item("Word").Left = 550
End If
End Sub