Where is my error into this macro?

[avkokin]

Hello.
There is the macro which creates new menu bar in Active menu bar and
full it of list of recent files. But I get error "Run time error
5152". What is my error? Why? And why my menu bar has only 7 item?
Help me, please.
Thank you very much.

 

[avkokin]

Sorry, that my macro:
Sub listMRUF()
Dim rf As Word.RecentFile
CustomizationContext = ActiveDocument
Set cb = CommandBars.ActiveMenuBar
Set oPopup = CommandBars.FindControl(Tag:="rf")
If Not oPopup Is Nothing Then
oPopup.Delete
End If
Set oPopup = cb.Controls.Add(msoControlPopup)
With oPopup
.Caption = "MRUF"
.Tag = "rf"
.BeginGroup = True
End With

For i = 1 To Application.RecentFiles.Count

Set oBtn = oPopup.Controls.Add(msoControlButton)
With oBtn
.Caption = Application.RecentFiles(i).Name
.Style = msoButtonCaption
End With
Next i
Set oPopup = Nothing
Set oBtn = Nothing
End Sub

 

[Cindy M.]

Hi Avkokin,

Sorry, that my macro:

Yes, but you don't tell us which line is causing the error,
nor the full TEXT of the error message. (The number really
isn't terribly meaningful...)

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update
Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any
follow question or reply in the newsgroup and not by e-mail