Como posso adicionar uma lista de regras de verificação ortográfica ao Microsoft Word?

Question

Eu quero usar o Microsoft Word para corrigir algum texto simples. Mas eu preciso que o Word use uma lista de regras de verificação ortográfica novas / personalizadas: por exemplo, substitua 'fcarce' por 'escasso'. Eu poderia adicionar cada regra manualmente, mas isso levaria horas, se não dias. Existe uma maneira de adicionar a lista inteira ao Word?

P.S. Eu sei como adicionar um dicionário personalizado. Mas parece que um dicionário personalizado é meramente uma lista de palavras escritas corretamente, quando o que eu preciso é uma lista de palavras escritas incorretamente e a ortografia correta para substituí-las.

    

Answer 1

Eu tentei o gravador de macro, e adicionando às entradas de correção automática pode ser gravado. Como exemplo, adicionei uma correção de abc a ABC :

Sub Macro1()
AutoCorrect.Entries.Add Name:="abc", Value:="ABC"
With Options
    .AutoFormatAsYouTypeApplyHeadings = False
    .AutoFormatAsYouTypeApplyBorders = True
    .AutoFormatAsYouTypeApplyBulletedLists = True
    .AutoFormatAsYouTypeApplyNumberedLists = True
    .AutoFormatAsYouTypeApplyTables = True
    .AutoFormatAsYouTypeReplaceQuotes = True
    .AutoFormatAsYouTypeReplaceSymbols = True
    .AutoFormatAsYouTypeReplaceOrdinals = True
    .AutoFormatAsYouTypeReplaceFractions = True
    .AutoFormatAsYouTypeReplacePlainTextEmphasis = False
    .AutoFormatAsYouTypeReplaceHyperlinks = True
    .AutoFormatAsYouTypeFormatListItemBeginning = True
    .AutoFormatAsYouTypeDefineStyles = False
    .TabIndentKey = True
End With
With AutoCorrect
    .CorrectInitialCaps = True
    .CorrectSentenceCaps = True
    .CorrectDays = True
    .CorrectCapsLock = True
    .ReplaceText = True
    .ReplaceTextFromSpellingChecker = True
    .CorrectKeyboardSetting = False
    .DisplayAutoCorrectOptions = True
    .CorrectTableCells = True
End With
With OMathAutoCorrect
    .UseOutsideOMath = False
    .ReplaceText = True
End With
With Options
    .AutoFormatApplyHeadings = True
    .AutoFormatApplyLists = True
    .AutoFormatApplyBulletedLists = True
    .AutoFormatApplyOtherParas = True
    .AutoFormatReplaceQuotes = True
    .AutoFormatReplaceSymbols = True
    .AutoFormatReplaceOrdinals = True
    .AutoFormatReplaceFractions = True
    .AutoFormatReplacePlainTextEmphasis = True
    .AutoFormatReplaceHyperlinks = True
    .AutoFormatPreserveStyles = True
    .AutoFormatPlainTextWordMail = True
End With
Options.LabelSmartTags = False
End Sub

É evidente que acabei de descobrir gravando, por isso não sei quais dessas opções são necessárias, mas esses são os padrões. Mas o código VBA que você está procurando é AutoCorrect.Entries.Add .

    

Answer 2

Para correções automáticas, você pode fazer isso. Requer o VBA. Esta versão substitui somente texto simples, não rich text. AFAIK funciona no Win Word 2010 (e provavelmente no 2007/2013) e no Mac Word 2011.

(Autocorrigações basicamente permitem somente "regras" onde uma palavra específica é substituída por outro texto - até onde eu sei não há facilidades para checar coisas gramaticais como versões no plural de palavras, ou fazer qualquer tipo de curingas)

Crie um documento do Word contendo uma tabela com duas colunas. Salve seu documento.

Coloque "De" na célula superior da primeira coluna. Coloque "To" na célula superior da segunda coluna.

Suponhamos que você tenha 100 regras.

Para cada regra, você precisa de uma linha na tabela. Coloque o texto que você deseja detectar na primeira célula da linha e o texto que deseja substituí-lo na segunda célula da linha.

Uma correção automática nesta tabela substituirá qualquer correção automática existente pela mesma "de", portanto, tenha cuidado com o que você colocou nesta tabela.

Quando terminar, salve seu trabalho.

Em seguida, você precisa inserir o seguinte VBA e executá-lo. Para obter assistência bastante desatualizada, consulte este link

Sub importautocorrects()
Dim objACE As Word.AutoCorrectEntry
Dim objDocument As Word.Document
Dim r As Word.Range
Dim objTable As Word.Table
Dim i As Integer
Set objDocument = ActiveDocument
Set objTable = objDocument.Tables(1)
For i = 2 To objTable.Rows.Count
  With objTable.Rows(i)
      Word.AutoCorrect.Entries.Add _
        Left(.Cells(1).Range.Text, _
        Len(.Cells(1).Range.Text) - 2), _
        Left(.Cells(2).Range.Text, _
        Len(.Cells(2).Range.Text) - 2)
  End With
Next
Set objTable = Nothing
Set objDocument = Nothing
End Sub

    

Answer 3

Para adicionar correções, abra o Word e clique em Arquivo > Opções

Na janela de opções, clique em Proofing. Aqui você encontrará tudo o que precisa sobre as configurações de revisão. Se clicar em "opções de correcção automática", também pode adicionar "à medida que escreve correcções"; Eu acho que é isso que você está procurando!

Aqui está a captura de tela: