{"id":144,"date":"2009-01-16T13:53:50","date_gmt":"2009-01-16T13:53:50","guid":{"rendered":""},"modified":"2018-05-02T07:54:56","modified_gmt":"2018-05-02T06:54:56","slug":"absaetze-nicht-trennentrennen","status":"publish","type":"post","link":"https:\/\/www.kastenmaier.de\/?p=144","title":{"rendered":"VBA &#8211; Word: Abs\u00e4tze nicht trennen\/trennen"},"content":{"rendered":"<h1><span style=\"font-size: large;\">Beschreibung<\/span><\/h1>\n<p style=\"text-align: justify;\">Recht simpel, aber dennoch hilfreich ist die Word-Option &#8222;Abs\u00e4tze nicht trennen&#8220;. Mit dieser Option l\u00e4sst sich festlegen, dass Abs\u00e4tze bei einem Seitenumbruch nicht auseinandergerissen werden.<br \/>\n<!--more-->Bei gr\u00f6\u00dferen Dokumenten tritt dieser Fall h\u00e4ufiger auf. Daher habe ich zum Aktivieren\/Deaktivieren der Option &#8222;Abs\u00e4tze nicht trennen&#8220; ein kurzes Makro geschrieben. Legt man dieses nun auf eine Tastenkombination l\u00e4sst sich das Umschalten dieser Option schnell und einfach durchf\u00fchren.<\/p>\n<h1><span style=\"font-size: large;\">Sourcecode<\/span><\/h1>\n<pre class=\"brush: vb; gutter: true\">Public Sub Abs\u00e4tzeNichtTrennen()\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; Abs\u00e4tze trennen-Flag invertieren\r\n    With Selection.ParagraphFormat\r\n        .KeepWithNext = Not .KeepWithNext\r\n    End With\r\n\r\nNoDocumentOpen:\r\nEnd Sub<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Beschreibung Recht simpel, aber dennoch hilfreich ist die Word-Option &#8222;Abs\u00e4tze nicht trennen&#8220;. Mit dieser Option l\u00e4sst sich festlegen, dass Abs\u00e4tze bei einem Seitenumbruch nicht auseinandergerissen 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_memberships_contains_paid_content":false,"footnotes":""},"categories":[29,19],"tags":[49,37,38],"class_list":["post-144","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-2k","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/144","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=144"}],"version-history":[{"count":7,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/144\/revisions"}],"predecessor-version":[{"id":1469,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/144\/revisions\/1469"}],"wp:attachment":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=144"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=144"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=144"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}