Erro em tempo de execução 4248, 4605 ou 5941 ao tentar usar o VBA para alterar propriedades de um documento

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 290934
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Para uma versão deste artigo do Microsoft Word 2000, consulte 209160.
Para uma versão deste artigo do Microsoft Word 98, consulte 182179.
Para uma versão deste artigo do Microsoft Word 97, consulte 170892.
Sintomas
Se você tentar usar o Microsoft Visual Basic for Applications para alterar as propriedades de um documento no Microsoft Word, você pode receber uma das seguintes mensagens de erro:
Erro em tempo de execução '4248':

Este comando não está disponível porque nenhum documento está aberto.
Erro em tempo de execução '4605':

Este método ou propriedade não está disponível porque uma janela de documento não está ativa.
Erro em tempo de execução '5941':

O membro solicitado da coleção não existe.
Causa
Uma das seguintes mensagens de erro pode aparecer quando nenhum documento está aberto no momento ou o documento que você está fazendo referência não está aberto. O Word pode alterar somente as propriedades de um documento aberto (ou visível).

Observação Essas mensagens de erro também podem aparecer se você abriu o documento com a propriedade Visible definida como False .
Como Contornar
Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.
Para obter mais informações sobre como usar o código de exemplo incluído neste artigo, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
290140Como executar o código de exemplo para programas do Office XP a partir de artigos da Base de dados de Conhecimento
O seguinte exemplo do Visual Basic for Applications macros demonstram como alterar o valor do campo título na caixa de diálogo Propriedades . O exemplo a seguir também inclui código para interceptar o erro, caso não haja nenhum documento aberto e para exibir uma mensagem:
Sub ChangeDocProperties()   On Error GoTo ErrHandler      ActiveDocument.BuiltInDocumentProperties("Title") = "My Title"   Exit SubErrHandler:   If Err <> 0 Then      ' Display an error message.      MsgBox Err.Description      'Clear the error.      Err.Clear      Resume Next   End IfEnd Sub				
a seguinte macro de exemplo inclui código para fazer o seguinte:
  • Enganar o erro, no caso de houver documentos abertos.
  • Na interceptação de erro, crie um novo documento.
  • Continuar a execução na linha que causou o erro.
Sub ChangeDocProperties()   On Error GoTo ErrHandler      ActiveDocument.BuiltInDocumentProperties("Title") = "My Title"   Exit SubErrHandler:   If Err <> 0 Then      'Add a document.      Documents.Add      'Clear the error.      Err.Clear      'Execute the code that caused the error.      Resume   End IfEnd Sub				
Referências
Para obter mais informações sobre como obter ajuda com o Visual Basic for Applications, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
305326Lista de recursos de programação para o Visual Basic for Applications
VB vba vbe prb OfficeErrorMessages 10095 WD2002 WD2003

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 290934 - Última Revisão: 12/06/2015 00:59:05 - Revisão: 4.2

Microsoft Office Word 2003, Microsoft Word 2002 Standard Edition

  • kbnosurvey kbarchive kbmt kbcode kberrmsg kbmacroexample kbpending kbprb kbprogramming KB290934 KbMtpt
Comentários
ERROR: at System.Diagnostics.Process.Kill() at Microsoft.Support.SEOInfrastructureService.PhantomJS.PhantomJSRunner.WaitForExit(Process process, Int32 waitTime, StringBuilder dataBuilder, Boolean isTotalProcessTimeout)