Applying master to a collection of pages

Question

Hello all,
Still in CS3, VB.
Back in 2008 I did a post on this same subject (http://forums.adobe.com/message/3312350#3312350) and Harbs was kind enough to show it to me in Java script.
Now that it's been a while I'm wondering if anyone has clue as to why this doesn't work in VB:
Set pgs = InD.ActiveDocument.Pages.ItemByRange(149, 152)
pgs.AppliedMaster = InD.ActiveDocument.MasterSpreads.Item("LNG-TXT")
But his DOES work in Javascript:
var thepgs = app.activeDocument.pages.itemByRange(148,151);
thepgs.appliedMaster = app.activeDocument.masterSpreads.item("LNG-TXT");
Many thanks,
Ken

Answer 1

Hey Harbs,
Thanks a gain for taking a crack at this. Unfortunately I've tried that. I'm beginning to think it just isn't in the VB model, or something.
VB has a TypeName() function that returns a string with the type of variable passed. So when a text frame is selected and I do this:
set MyTxtFrame = InD.Selection(1)
MsgBox TypeName(MyTxtFrame)
I get a message box that says "TextFrame."
When I pass pgs to TypeName I get "Objects" and when I pass pgs(1) I get "Page" so I'm nearly sure the collection is getting created OK. I can even set the AppliedMaster of one of the pages within the collection like this:
pgs(1).AppliedMaster = InD.ActiveDocument.MasterSpreads("LNG-TXT")
It's just the darn application of the master to the collection that simply doesn't work.
Currently I'm building a string that is the Java code and running the DoScript command, which works MUCH faster than itterating through all the pages.
Thanks again,
Ken