Autokorekta w środowisku MS word / Windows

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

W -

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.

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

— użytkownik231229
źródło