Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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
Try this,
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
ActiveDocument.Variables("DateRange").SetContent "0", True
ELSE
ActiveDocument.Variables("DateRange").SetContent "1", True
END IF
END SUB