Autokorekta w środowisku MS word / Windows

2

MS Word dokonuje autokorekty w przypadku typowych błędów ortograficznych (np. „Withh”), ale po prostu robi czerwone podkreślenie w niektórych innych słowach (np. „Akwardd”). W tych ostatnich przypadkach należy kliknąć słowo prawym przyciskiem myszy i wybrać jedną z wyskakujących sugestii. Ponieważ prawie zawsze najlepsza sugestia jest właściwa, zastanawiałem się, czy można dostosować / skorygować autokorekty, aby w przypadku słów „podkreślonych na czerwono” MS Word / Outlook automatycznie wybierał górny wpis / zgadywał?

Wielkie dzięki z góry, W.

windows microsoft-word autocorrect Wouter
źródło
możliwy duplikat autouzupełniania programu Word z dokumentu wewnętrznego
ᴇcʜιᴇ007
Dotyczy to tylko sugestii autokorekty z wnętrza dokumentu - nie? Bardziej szukam czegoś, co automatycznie wybiera najbardziej prawdopodobną sugestię (zamiast klikania prawym przyciskiem myszy i wybierania ....). Dzięki
Wouter,
@ Wouter, Makro z autokorekty słowa ms dla grubych palców może być tym, czego szukasz.
Adam
To makro jest dokładnie tym, czego szukam. moje jedyne pozostałe pytanie: makro działa idealnie w programie Word, ale daje błąd w programie Outlook (prawdopodobnie dlatego, że istnieje inny sposób odwoływania się do zakresu tekstu / treści wiadomości e-mail) w języku VBA. Czy ktoś wie, jak dostosować makro? poniżej: Sub AutoSpellCheck () Dim oSE As Range Dim oSC Dla każdego oSE w ActiveDocument.Range.SpellingErrors Ustaw oSC = oSE.GetSpellingSuggestions Jeśli oSC.Count> 0 to oSE.Text = oSC (1) Koniec Jeśli następny oSE End Sub
Wouter

Odpowiedzi:

0

W -

  1. Musisz dodać bibliotekę Microsoft Word Reference Library. W edytorze VBA przejdź do Narzędzia -> Referencje i zaznacz pole obok Biblioteki obiektów Microsoft Word. Następnie użyj tego kodu.

  2. Oto dostosowany kod:

    Sub AutoSpellCheck () Dim oSE As Word.Range Dim oSC

    With ActiveInspector
    If .IsWordMail And .EditorType = olEditorWord Then
        For Each oSE In .WordEditor.Range.SpellingErrors
            Set oSC = oSE.GetSpellingSuggestions
            If oSC.Count > 0 Then
            oSE.Text = oSC(1)
            End If
        Next oSE
    End If
End With

    Napis końcowy

    • S.
użytkownik231229
źródło