Método Hyperlink.AddToFavorites (Word)
Crea un acceso directo al documento o un hipervínculo y lo agrega a la carpeta Favoritos.
Sintaxis
expresión. AddToFavorites
expresión requerida. Variable que representa un objeto 'Hyperlink'.
Ejemplo:
En este ejemplo se crea un acceso directo para cada hipervínculo del documento activo y se agrega a la carpeta Favoritos.
For Each myHyperlink In ActiveDocument.Hyperlinks
myHyperlink.AddToFavorites
Next myHyperlink
En este ejemplo se crea un acceso directo a Sales.doc y se agrega a la carpeta Favoritos. Si Sales.doc no está abierto actualmente, se abre desde la carpeta C:\Documents.
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
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.