Usando scripts para gerenciar as opções da Correção Automática do Word

  • Artigo

Scripts VBScript de exemplo que demonstram como você pode recuperar e configurar as opções da Correção Automática 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 Correção Automática da caixa de diálogo Correção Automática. Para acessar as opções no Microsoft Word 2003, clique em Ferramentas, clique em Opções de Correção Automática e clique na guia Correção Automática. 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), clique aqui para ver a imagem no tamanho normal.

Correção Automática

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 Correção Automática da caixa de diálogo Correção Automática no Microsoft Word 2003.

On Error Resume Next

Set objWord = CreateObject("Word.Application")
Set objOptions = objWord.AutoCorrect

Wscript.Echo "Display AutoCorrect Options buttons: " & _
    objOptions.DisplayAutoCorrectOptions
Wscript.Echo "Correct Two Initial Capitals: " & _
    objOptions.CorrectInitialCaps
Wscript.Echo "Capitalize first letter of sentences: " & _
    objOptions.CorrectSentenceCaps
Wscript.Echo "Correct accidental usage of the CAPS Lock key: " & _
    objOptions.CorrectCAPSLock
Wscript.Echo "Replace text as you type: " & _
    objOptions.ReplaceText
Wscript.Echo "Automatically use suggestions from the spelling checker: " & _
    objOptions.ReplaceTextFromSpellingChecker
Wscript.Echo "Capitalize first letter of table cells: " & _
    objOptions.CorrectTableCells
Wscript.Echo "Capitalize names of days: " & _
    objOptions.CorrectDays
For Each strEntry in objOptions.Entries
    Wscript.Echo "AutoCorrect entry: " & strEntry.Name
Next
For Each strEntry in objOptions.FirstLetterExceptions
    Wscript.Echo "First letter exception: " & strEntry.Name
Next
For Each strEntry in objOptions.TwoInitialCapsExceptions
    Wscript.Echo "Two initial caps exception: " & strEntry.Name
Next
For Each strEntry in objOptions.OtherCorrectionsExceptions
    Wscript.Echo "Other correction exception: " & strEntry.Name
Next

objWord.Quit

Código de exemplo para modificar valores

Script de exemplo que define a opção Corrigir Iniciais Maiúsculas no Microsoft Word como FALSE.

On Error Resume Next

Set objWord = CreateObject("Word.Application")
Set objOptions = objWord.AutoCorrect
objOptions.CorrectInitialCaps = FALSE

objWord.Quit

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.