{"id":141,"date":"2009-01-16T13:47:52","date_gmt":"2009-01-16T13:47:52","guid":{"rendered":""},"modified":"2018-05-02T07:54:56","modified_gmt":"2018-05-02T06:54:56","slug":"vba-word-markiertem-text-eine-formatvorlage-zuweisen","status":"publish","type":"post","link":"https:\/\/www.kastenmaier.de\/?p=141","title":{"rendered":"VBA &#8211; Word: Markiertem Text eine Formatvorlage zuweisen"},"content":{"rendered":"<h1><span style=\"font-size: large;\">Beschreibung<\/span><\/h1>\n<p style=\"text-align: justify;\">Eine h\u00e4ufig verwendete Formatvorlage kann mit Hilfe dieses Makros einem markierten Text zugewiesen werden.<br \/>\n<!--more-->In dem unten gezeigten Beispiel wird dem markierten Text das Format der Formatvorlage &#8222;Fazit (englisch)&#8220; zugewiesen. Au\u00dferdem wird die Textsprache auf englisch (britisch) umgestellt und die automatische Spracherkennung abgeschaltet. F\u00fcr das Umschalten der Sprache auf englisch (britisch) und das Abschalten der automatische Spracherkennung h\u00e4tte man an dieser Stelle auch die entsprechende Funktion aus dem Beitrag &#8222;<a href=\"http:\/\/www.kastenmaier.de\/2009\/01\/16\/vba-word-textsprache-um-abschalten\/\" target=\"_blank\">VBA &#8211; Word: Textsprache um-\/abschalten<\/a>&#8220; (siehe <a href=\"http:\/\/www.kastenmaier.de\/2009\/01\/16\/vba-word-textsprache-um-abschalten\/#Textsprache_auf__Englisch__UK___umschalten\" target=\"_blank\">Textsprache auf &#8222;Englisch (UK)&#8220; umschalten<\/a>) verwenden k\u00f6nnen.<\/p>\n<h1><span style=\"font-size: large;\">Sourcecode<\/span><\/h1>\n<pre class=\"brush: vb; gutter: true\">Public Sub FormatFazit_englisch()\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    With Selection\r\n\r\n        &#039; markiertem Text das Format der Formatvorlage &quot;Fazit (englisch)&quot;\r\n        .Style = ActiveDocument.Styles(&quot;Fazit (englisch)&quot;)\r\n\r\n        &#039; Auswahl der Sprache. In diesem Fall wurde der Wert f\u00fcr &quot;Englisch (UK)&quot; = englisch (britisch) verwendet.\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        .LanguageID = wdEnglishUK\r\n    End With\r\n\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","protected":false},"excerpt":{"rendered":"<p>Beschreibung Eine h\u00e4ufig verwendete Formatvorlage kann mit Hilfe dieses Makros einem markierten Text zugewiesen werden.<\/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_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_post_was_ever_published":false},"categories":[29,19],"tags":[49,37,38],"class_list":["post-141","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-2h","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/141","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=141"}],"version-history":[{"count":8,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/141\/revisions"}],"predecessor-version":[{"id":1426,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/141\/revisions\/1426"}],"wp:attachment":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=141"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=141"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=141"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}