Hi Guys,
I got the eroor like Macros Unparised load faild, Can any one help me on that..
My Vbscript as below:
SUB DateRange
IF ActiveDocument.Variables("DateRange").GetContent.String = "1" THEN
ActiveDocument.Fields("DateRange").Select "<=" & ActiveDocument.Variables("vDefaultDateRange").GetContent.String
IF vDefaultDateRange=1 THEN
ActiveDocument.Fields("DateRange").Select "YTD"
ELSE IF vDefaultDateRange=2 THEN
ActiveDocument.Fields("DateRange").Select "MTD"
ELSE IF vDefaultDateRange=3 THEN
ActiveDocument.Fields("DateRange").Select "WTD"
Else
ActiveDocument.Fields("DateRange").Select "PTD"
END IF
END IF
END IF
END IF
ActiveDocument.Variables("DateRange").SetContent "0", True
ELSE
ActiveDocument.Variables("DateRange").SetContent "1", True
END IF
END SUB
Thanks
Siva
