Propriedade Application.ActiveDocument (Publisher)

Retorna um objeto Document que representa a publicação ativa. Se não houver nenhuma documentos abertos, ocorrerá um erro.

Sintaxe

expressão. Activedocument

expressão Uma variável que representa um Aplicativo objeto.

Valor de retorno

Documento

Exemplo

Este exemplo permite que o usuário atribua um nome de arquivo à publicação ativa e a salve com o novo nome de arquivo. O nome de arquivo, juntamente com outro texto, é inserido após o texto selecionado. Observe que deve ser substituído por um nome de publicação válido para que FileName este exemplo funcione.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.