Current Week OnOpen Macro

so I don't forget...


Sub OnOpen

InitialSelections

End Sub

Sub InitialSelections
ActiveDocument.Fields("Cal.RelativeWeek").select "0",True
ActiveDocument.Fields("Cal.WeekStartMon").selectpossible
ActiveDocument.Fields("Cal.RelativeWeek").clear
End Sub

Syntax for Alternate States:

ActiveDocument.GetField("CUSTOMERS", "State1")