{"id":138,"date":"2009-01-16T13:41:20","date_gmt":"2009-01-16T13:41:20","guid":{"rendered":""},"modified":"2018-05-02T07:55:25","modified_gmt":"2018-05-02T06:55:25","slug":"vba-word-textsprache-um-abschalten","status":"publish","type":"post","link":"https:\/\/www.kastenmaier.de\/?p=138","title":{"rendered":"VBA &#8211; Word: Textsprache um-\/abschalten"},"content":{"rendered":"<h1><span style=\"font-size: large;\">Beschreibung<\/span><\/h1>\n<p style=\"text-align: justify;\">Um die Textsprache in Word um- bzw. abzuschalten, was z.B. f\u00fcr die automatische Rechtschreib- und Grammatikpr\u00fcfung sinnvoll ist, kann man die folgenden simplen Word-Makros verwenden.<br \/>\n<!--more-->\u00a0Die Funktion entspricht der gleichen Funktion, die \u00fcber das Wordmen\u00fc (bis Word 2003) folgenderma\u00dfen zu erreichen ist: &#8222;Extras&#8220; =&gt; &#8222;Sprache&#8220; =&gt; &#8222;Sprache festlegen&#8220;.<\/p>\n<hr \/>\n<h1><span style=\"font-size: large;\">Sourcecode<\/span><\/h1>\n<h2><span style=\"font-size: medium;\">Funktions\u00fcbersicht<\/span><\/h2>\n<ul>\n<li><a href=\"#Textsprache_auf__Deutsch__umschalten\">Textsprache auf &#8222;Deutsch&#8220; umschalten<\/a><\/li>\n<li><a href=\"#Textsprache_auf__Englisch__UK___umschalten\">Textsprache auf &#8222;Englisch (UK)&#8220; umschalten<\/a><\/li>\n<li><a href=\"#Textsprache_auf__Englisch__US___umschalten\">Textsprache auf &#8222;Englisch (US)&#8220; umschalten<\/a><\/li>\n<li><a href=\"#Rechtschreib-_und_Grammatikpr_fung_abschalten\">Rechtschreib- und Grammatikpr\u00fcfung abschalten<\/a><\/li>\n<\/ul>\n<h2><span style=\"font-size: medium;\">Funktionen<\/span><\/h2>\n<h3><a name=\"Textsprache_auf__Deutsch__umschalten\"><\/a><span style=\"font-size: small;\">Textsprache auf &#8222;Deutsch&#8220; umschalten<\/span><\/h3>\n<pre class=\"brush: vb; gutter: true\">Public Sub SpracheDeutsch()\r\n    &#039; Bei Fehlern wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet.\r\n    On Error GoTo NoDocumentOpen\r\n\r\n    &#039; Falls keine Datei ge\u00f6ffnet ist, wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet. Die Pr\u00fcfung, ob eine Datei ge\u00f6ffnet ist, wird \u00fcber die L\u00e4nge des Dateinamens des aktiven Dokuments durchgef\u00fchrt.\r\n    If Len(ActiveDocument.Name) = 0 Then GoTo NoDocumentOpen\r\n\r\n    &#039; Auswahl der Sprache &quot;Deutsch&quot; = deutsch.\r\n    &#039; M\u00f6gliche Werte findet man in der VBA-Hilfe, wenn man den Suchbegriff &quot;LanguageID&quot; eingibt und dort auf &quot;WdLanguageID-Wert mit Lese-\/Schreibzugriff.&quot; klickt.\r\n    Selection.LanguageID = wdGerman\r\n    &#039;Hiermit wird die automatische Spracherkennung abgeschaltet. Word \u00e4ndert die Sprache also nicht selbst\u00e4ndig in eine andere.\r\n    Application.CheckLanguage = False\r\n\r\nNoDocumentOpen:\r\nEnd Sub<\/pre>\n<h3><a name=\"Textsprache_auf__Englisch__UK___umschalten\"><\/a><span style=\"font-size: small;\"><span style=\"font-family: Arial;\">Textsprache auf &#8222;Englisch (UK)&#8220; umschalten<\/span><\/span><\/h3>\n<pre class=\"brush: vb; gutter: true\">Public Sub SpracheEnglischUK()\r\n    &#039; Bei Fehlern wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet.\r\n    On Error GoTo NoDocumentOpen\r\n\r\n    &#039; Falls keine Datei ge\u00f6ffnet ist, wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet. Die Pr\u00fcfung, ob eine Datei ge\u00f6ffnet ist, wird \u00fcber die L\u00e4nge des Dateinamens des aktiven Dokuments durchgef\u00fchrt.\r\n    If Len(ActiveDocument.Name) = 0 Then GoTo NoDocumentOpen\r\n\r\n    &#039; Auswahl der Sprache &quot;Englisch (UK)&quot; = englisch (britisch).\r\n    &#039; M\u00f6gliche Werte findet man in der VBA-Hilfe, wenn man den Suchbegriff &quot;LanguageID&quot; eingibt und dort auf &quot;WdLanguageID-Wert mit Lese-\/Schreibzugriff.&quot; klickt.\r\n    Selection.LanguageID = wdEnglishUK\r\n    &#039;Hiermit wird die automatische Spracherkennung abgeschaltet. Word \u00e4ndert die Sprache also nicht selbst\u00e4ndig in eine andere.\r\n    Application.CheckLanguage = False\r\n\r\nNoDocumentOpen:\r\nEnd Sub<\/pre>\n<h3><a name=\"Textsprache_auf__Englisch__US___umschalten\"><\/a><span style=\"font-size: small;\"><span style=\"font-family: Arial;\">Textsprache auf &#8222;Englisch (US)&#8220; umschalten<\/span><\/span><\/h3>\n<pre class=\"brush: vb; gutter: true\">Public Sub SpracheEnglischUK()\r\n    &#039; Bei Fehlern wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet.\r\n    On Error GoTo NoDocumentOpen\r\n\r\n    &#039; Falls keine Datei ge\u00f6ffnet ist, wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet. Die Pr\u00fcfung, ob eine Datei ge\u00f6ffnet ist, wird \u00fcber die L\u00e4nge des Dateinamens des aktiven Dokuments durchgef\u00fchrt.\r\n    If Len(ActiveDocument.Name) = 0 Then GoTo NoDocumentOpen\r\n\r\n    &#039; Auswahl der Sprache \u201cEnglisch (US)\u201d = englisch (amerikanisch).\r\n    &#039; M\u00f6gliche Werte findet man in der VBA-Hilfe, wenn man den Suchbegriff &quot;LanguageID&quot; eingibt und dort auf &quot;WdLanguageID-Wert mit Lese-\/Schreibzugriff.&quot; klickt.\r\n    Selection.LanguageID = wdEnglishUS\r\n    &#039;Hiermit wird die automatische Spracherkennung abgeschaltet. Word \u00e4ndert die Sprache also nicht selbst\u00e4ndig in eine andere.\r\n    Application.CheckLanguage = False\r\n\r\nNoDocumentOpen:\r\nEnd Sub<\/pre>\n<h3><a name=\"Rechtschreib-_und_Grammatikpr_fung_abschalten\"><\/a><span style=\"font-size: small;\"><span style=\"font-family: Arial;\">Rechtschreib- und Grammatikpr\u00fcfung abschalten<\/span><\/span><\/h3>\n<pre class=\"brush: vb; gutter: true\">Public Sub RechtschreibUndGrammatikpr\u00fcfungAbschalten()\r\n    &#039; Bei Fehlern wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet.\r\n    On Error GoTo NoDocumentOpen\r\n\r\n    &#039; Falls keine Datei ge\u00f6ffnet ist, wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet. Die Pr\u00fcfung, ob eine Datei ge\u00f6ffnet ist, wird \u00fcber die L\u00e4nge des Dateinamens des aktiven Dokuments durchgef\u00fchrt.\r\n    If Len(ActiveDocument.Name) = 0 Then GoTo NoDocumentOpen\r\n\r\n    &#039; Die Rechtschreib- und Grammatikpr\u00fcfung wird f\u00fcr den markierten Text deaktiviert.\r\n    Selection.NoProofing = True\r\n\r\nNoDocumentOpen:\r\nEnd Sub<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Beschreibung Um die Textsprache in Word um- bzw. abzuschalten, was z.B. f\u00fcr die automatische Rechtschreib- und Grammatikpr\u00fcfung sinnvoll ist, kann man die folgenden simplen Word-Makros verwenden.<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[29,19],"tags":[49,37,38],"class_list":["post-138","post","type-post","status-publish","format-standard","hentry","category-startseite","category-vba-word","tag-programmieren","tag-vba","tag-word"],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p5LyzC-2e","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/138","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=138"}],"version-history":[{"count":7,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/138\/revisions"}],"predecessor-version":[{"id":2191,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/138\/revisions\/2191"}],"wp:attachment":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=138"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=138"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=138"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}