Propiedad Application.ActiveDocument (Publisher)

Devuelve un objeto Document que representa la publicación activa. Si no hay ningún documento abierto, se produce un error.

Sintaxis

expresión. ActiveDocument

expresión Variable que representa un objeto Application.

Valor devuelto

Documento

Ejemplo

En este ejemplo se permite al usuario que asigne un nombre de archivo a la publicación activa y la guarde con el nombre de archivo nuevo. El nombre de archivo, junto con otro texto, se insertará detrás del texto seleccionado. Tenga en cuenta que debe reemplazarse por un nombre de publicación válido para que FileName funcione este ejemplo.

Sub NewsLetterSave() 
 
 Dim strFileName As String 
 
 ' Assign the explicit file name to a variable. 
 strFileName = "FileName" 
 Publisher.ActiveDocument.SaveAs strFileName 
 
 ' Insert the file name and supporting text after selected text. 
 Selection.TextRange.Collapse pbCollapseEnd 
 Selection.TextRange = _ 
 " This publication has been saved as " & strFileName 
 
End Sub

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.