Word - Как вывести закладки (Bookmarks) в ComboBox - VBA

Формулировка задачи:

Подскажите как сделать возможным вывод всех Закладок (Bookmarks) в ComboBox.

Решение задачи: «Word - Как вывести закладки (Bookmarks) в ComboBox»

textual
                            Листинг программы 
                        

                            Private Sub UserForm_Initialize()
    With ComboBox1
         .ColumnCount = 2
         Dim objBM As Word.Bookmark
         For Each objBM In ThisDocument.Bookmarks
             .AddItem objBM.Name
             .List(.ListCount - 1, 1) = objBM.Range '.Text
         Next
    End With
End Sub
                        