MS-Wort: Ein Makro zum Ein- und Ausschalten einiger Proof-Einstellungen

Welches Makro kann einige Proof-Einstellungen ein- und ausschalten? (Leider zeichnet die Makroaufnahme die Einstellungsänderung nicht auf.)

Ich suche nach einer Möglichkeit, 2 Proofing-Einstellungen (gleichzeitig) ein- und auszuschalten:

Überprüfen Sie die Rechtschreibung während der Eingabe
Markieren Sie Grammatikfehler während der Eingabe

microsoft-word macros microsoft-word-2013

— Lisa
quelle

Antworten:

Application.Options.CheckGrammarAsYouType & .CheckSpellingAsYouType ist das, wonach Sie suchen.

Beispiel:

Sub GrammarSpellingOn()
    Application.Options.CheckGrammarAsYouType = True
    Application.Options.CheckSpellingAsYouType = True
End Sub

Sub GrammarSpellingOff()
    Application.Options.CheckGrammarAsYouType = False
    Application.Options.CheckSpellingAsYouType = False
End Sub

Ein- und Ausschalten mit demselben Makro mit einem Popup, in dem die vorgenommene Änderung angegeben wird:

Sub GrammarSpellingOnOff()
    If Application.Options.CheckGrammarAsYouType = True Or Application.Options.CheckSpellingAsYouType = True Then
        Application.Options.CheckGrammarAsYouType = False
        Application.Options.CheckSpellingAsYouType = False
        Call MsgBox("Grammar & Spell Checking turned OFF")
    Else
        Application.Options.CheckGrammarAsYouType = True
        Application.Options.CheckSpellingAsYouType = True
        Call MsgBox("Grammar & Spell Checking turned ON")
    End If
    Application.ScreenRefresh 'refresh to add/remove spellchecker underlines
End Sub

— JollyMort
quelle

Danke vielmals! Ich habe Ihre Antwort bearbeitet, um den Rest des Codes hinzuzufügen und ihn mit demselben Makro

— Lisa,

Bitte! Dachte ich daran, es wie "Umschalten" zu schreiben: "Application.Options.CheckGrammarAsYouType = nicht Application.Options.CheckGrammarAsYouType", aber wer sagt, dass Sie mit beiden Optionen beginnen? :)

— JollyMort

Das einzige, was verbessert werden könnte, ist, dass wir nicht wissen, wann es ein- oder ausgeschaltet ist (eine Warnung wäre praktisch!), da es einige Zeit dauert, bis es aktualisiert wird, oder der Text muss bearbeitet werden, um die unterstrichenen Teile zu entfernen.

— Lisa

In Ordnung, ich habe Ihre Bearbeitung vorher nicht gesehen. Sie möchten, dass sie deaktiviert wird, wenn eine davon aktiviert ist. Es wurde eine msgbox hinzugefügt, um Ihnen mitzuteilen, was passiert ist;)

— JollyMort

Nochmals vielen Dank! Nur eine letzte: eine Idee, wie Sie alle Unterstreichungen auf einmal entfernen können? (Der Text muss bearbeitet oder erneut geöffnet werden, um ihn zu entfernen)

— Lisa

Also habe ich es etwas anders eingerichtet. Ich benutze es hauptsächlich, wenn ich Präsentationen schreibe, die Code enthalten. Ich habe die Makros den Tasten zugewiesen und hier sind beide Makros:

Dadurch werden alle Korrekturhilfen ignoriert und die nervigen Markierungen aus Word entfernt

    Sub CodeFont()
'
' CodeFont Macro
' Change font to differentiate code
'
    Selection.Font.Name = "Consolas"
    Selection.Font.Size = 11
    Selection.Font.ColorIndex = wdBlue
    Selection.NoProofing = True
End Sub

Und wenn ich wieder zum "normalen" Tippen zurückkehren möchte

Sub Normal()
'
' Normal Macro
'
'
    Selection.Font.Name = "Times New Roman"
    Selection.Font.Size = 12
    Selection.Font.ColorIndex = wdBlack
    Selection.NoProofing = False
End Sub

— chris m
quelle