С помощью объекта Document мы можем добавить свой документ в Избранное. Но для начала необходимо этот документ открыть. Dim myWord As Word.Application, myDoc As Document 'объявление переменных Set myWord = New Word.Application 'инициализация Set myDoc = myWord.Documents.Open ("C:\test.doc) 'Открытие документа myDoc.AddToFavorites 'Добавление в Избранное myWord.Quit 'Завершение Word
