Document.AddToFavorites (Word)

Crea un acceso directo al documento o un hipervínculo y lo agrega a la carpeta Favoritos.

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