Usando scripts para gerenciar as opções de segurança do Word

  • Artigo

Scripts VBScript de exemplo que demonstram como você pode recuperar e configurar as opções de Segurança do Microsoft Word 2003.

Mapeando a caixa de diálogo para o modelo de objeto do Word

As opções mencionadas nos seguintes scripts correspondem às opções localizadas na guia Segurança da caixa de diálogo Opções. Para acessar essas opções no Microsoft Word 2003, clique em Ferramentas, clique em Opções e clique na guia Segurança. Um mapeamento entre as opções disponíveis nesta caixa de diálogo e o modelo de objeto do Microsoft Word é mostrado abaixo. Se você não conseguir ler o gráfico (provavelmente será o caso),

imageFile

Os scripts mostrados nesta página foram testados com o Microsoft Word 2003. Pelo menos algumas das funcionalidades poderão funcionar em qualquer versão do Microsoft Word que ofereça suporte ao Visual Basic for Applications (VBA); no entanto, os scripts não foram testados com nenhuma outra versão.

Código de exemplo para recuperar valores

Script de exemplo que recupera as informações de configuração encontradas na guia Segurança da caixa de diálogo Opções no Microsoft Word 2003.

On Error Resume Next

Set objWord = CreateObject("Word.Application")
Set objOptions = objWord.Options
Set objDoc = objWord.Documents.Add()

Wscript.Echo "Document has password: " & objDoc.HasPassword
Wscript.Echo "Read-only recommended: " & _
    objDoc.ReadOnlyRecommended
Wscript.Echo "Remove personal information from file properties on save: " & _
    objDoc.RemovePersonalInformation
Wscript.Echo "Store random numbers to improve merge accuracy: " & _
    objOptions.StoreRSIDOnSave
Wscript.Echo "Warn before printing, saving or sending a file that " & _
    " contains tracked changes or comments: " & _
        objOptions.WarnBeforeSavingPrintingSendingMarkup

objWord.Quit

Código de exemplo para modificar valores

Script de exemplo que define a opção Remover informações pessoais das propriedades do arquivo ao salvar no Microsoft Word como FALSE. Observe que esta opção deve ser configurada por documento. Este script de exemplo define a opção, mas não salva o documento nem encerra o Word.

On Error Resume Next

Set objWord = CreateObject("Word.Application")
objWord.Visible = TRUE
Set objOptions = objWord.Options
Set objDoc = objWord.Documents.Add()
objDoc.RemovePersonalInformation = TRUE

Não há suporte para scripts de exemplo em qualquer serviço ou programa de suporte padrão da Microsoft. Os scripts de exemplo são fornecidos NO ESTADO EM QUE SE ENCONTRAM sem garantia de qualquer tipo. A Microsoft isenta-se também de todas as garantias implícitas, sem limitação, de comercialização ou adequação a uma finalidade específica. É todo seu o risco decorrente do uso ou do desempenho dos scripts de exemplo e da documentação. Em hipótese alguma a Microsoft, os autores ou qualquer pessoa envolvida na criação, produção ou entrega dos scripts serão responsáveis por qualquer dano (incluindo, sem limitação, danos por perda de lucros do negócio, interrupção dos negócios, perda de informações comerciais ou outras perdas financeiras) decorrentes do uso ou da inabilidade de usar os scripts de exemplo ou a documentação, mesmo que a Microsoft tenha sido avisada da possibilidade desses danos.