Compartilhar via

Application.Open method (Publisher)

Retorna um objeto Document que representa a publicação recém-aberta.

Sintaxe

expressão. Abrir (FileName, ReadOnly, AddToRecentFiles, SaveChanges, OpenConflictDocument)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
FileName Obrigatório String O nome da publicação (os caminhos são aceitos).
ReadOnly Opcional Boolean True para abrir a publicação como somente leitura. O padrão é False.
AddToRecentFiles Opcional Boolean Verdadeiro (predefinição) para adicionar o nome de ficheiro à lista de ficheiros utilizados recentemente na parte inferior do menu Ficheiro .
SaveChanges Opcional PbSaveOptions Especifica o que o Microsoft Publisher deve fazer se já houver uma publicação aberta com alterações que não foram salvas. Pode ser uma das constantes PbSaveOptions declaradas na biblioteca de tipos do Publisher.
OpenConflictDocument Opcional Boolean True para abrir a publicação de conflito local se houver um conflito offline. Padrão é False.

Valor de retorno

Documento

Comentários

Como o Publisher tem uma única interface de documento, o método Open funciona apenas quando você abre uma nova instância do Publisher. O seguinte exemplo de código mostra como criar uma nova instância visível do Publisher.

Quando terminar a segunda instância, pode definir a propriedade Visível da janela da aplicação como Falso, mas o processo continua a ser executado em segundo plano, mesmo que não esteja visível. Para fechar a segunda instância, você deve definir o objeto igual a Nothing.

Exemplo

Este exemplo cria uma segunda instância do Publisher e abre a publicação especificada como somente leitura. Para que esse exemplo funcione, substitua PathToFile pelo caminho para uma publicação existente.

Sub OpenNewPub() 
 Dim appPub As New Publisher.Application 
 appPub.Open FileName:="PathToFile", _ 
 ReadOnly:=True, AddToRecentFiles:=False, _ 
 SaveChanges:=pbPromptToSaveChanges 
 appPub.ActiveWindow.Visible = True 
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.

  • Last updated on