AddToFavorites Method Example

This example creates a shortcut for each hyperlink in the active document and adds it to the Favorites folder.

For Each myHyperlink In ActiveDocument.Hyperlinks
    myHyperlink.AddToFavorites
Next myHyperlink

This example creates a shortcut to Sales.doc and adds it to the Favorites folder. If Sales.doc isn't currently open, this example opens it from the C:\Documents folder.

For Each doc in Documents
    If LCase(doc.Name) = "sales.doc" Then isOpen = True
Next doc
If isOpen <> True Then Documents.Open _
    FileName:="C:\Documents\Sales.doc"
Documents("Sales.doc").AddToFavorites