Forum

Code:

' get the active document
Dim document
dim SEvalPortfolio
dim EvalFolder

set document = application.ActiveDocument

set SEvalPortfolio = document.CreateFolder
   if (Not SEvalPortfolio Is Nothing) then
      SEvalPortfolio.Name = "Stock Evaluator"
      document.InsertPortfolio -1, SEvalPortfolio
      document.CurrentPortfolio = SEvalPortfolio
   end if

set EvalFolder = document.CreateFolder
   if (Not EvalFolder Is Nothing) then
      EvalFolder.Name = "Evaluations"
      SEvalPortfolio.Insert 1, EvalFolder '<== blows up here
      document.CurrentPortfolio = EvalFolder
   end if


The attempt here is to create a folder inside the portfolio folder. Then I plan to add a collection of tickers to this folder. Any ideas?

Larry E. Hayes
Investors Haven

In

> SEvalPortfolio.Insert 1, EvalFolder

You probably want

> SEvalPortfolio.Insert -1, EvalFolder

Let me know if that helps.

Also, you can't set the current portfolio to a child folder so the line after that will not work.
      
Anatoly Ivasyuk
DTLink Software

Nope, that is an index, I want it in the first location, which is currently empty. -1 indicates last location. Also, I tried it with -1 and it still blew up.
      
Larry E. Hayes
Investors Haven

The first location would be index 0.
      
Anatoly Ivasyuk
DTLink Software

Although -1 should have worked to add it at the end of the list of children. I will have to double-check that.
      
Anatoly Ivasyuk
DTLink Software

Yep, that was it, subscript out of range... uugggh
      
Larry E. Hayes
Investors Haven

FWIW, I checked and -1 does work to insert the folder into the portfolio, but it blows up on the next line when you try to set the folder as the current portfolio, which is not allowed. Removing that line fixes it.
      
Anatoly Ivasyuk
DTLink Software

Yep, ran into the same, removed the line and works fine. Then I got to thinking about your use of -1 logic, and realized that I can only get away with specifying the index for so long before user chooses to move things around on me. So I will be utilizing the -1 more frequently, for now, I just wanted to make sure it sent to the top. Hope I don't distract you too much, but I am going to be working on this for a little while.
      
Larry E. Hayes
Investors Haven