{"id":139,"date":"2009-01-16T13:45:54","date_gmt":"2009-01-16T13:45:54","guid":{"rendered":""},"modified":"2018-05-02T07:55:25","modified_gmt":"2018-05-02T06:55:25","slug":"zoom-aendern","status":"publish","type":"post","link":"https:\/\/www.kastenmaier.de\/?p=139","title":{"rendered":"VBA &#8211; Word: Zoom \u00e4ndern"},"content":{"rendered":"<h1><span style=\"font-size: large;\">Beschreibung<\/span><\/h1>\n<p style=\"text-align: justify;\">Mit Hilfe dieser Makros kann man die Zoomeinstellung in MS Word \u00e4ndern. Der Vorteil ist, dass g\u00e4ngige Zoomeinstellungen direkt in einer Symbolleiste verf\u00fcgbar gemacht werden k\u00f6nnen. Weiterhin l\u00e4sst sich den Makros auch ganz problemlos eine Tastenkobination zuordnen.<br \/>\n<!--more--><br \/>\nUm den einzelnen Makros bei MS Word 2003 Tastenkombinationen zuzuordnen, muss folgenderma\u00dfen vorgegangen werden:<\/p>\n<ol>\n<li style=\"text-align: justify;\">Mit der rechten Maustaste auf den Symbolleistenbereich klicken<\/li>\n<li style=\"text-align: justify;\">Anpassen<\/li>\n<li style=\"text-align: justify;\">Tastatur<\/li>\n<li style=\"text-align: justify;\">neue Tastenkombination f\u00fcr Makros \u2013 \u2026 (z.B. ZoomTextbreite) erstellen<\/li>\n<li style=\"text-align: justify;\">Zuordnen anklicken<\/li>\n<li style=\"text-align: justify;\">Schlie\u00dfen anklicken (erst nachdem Zuordnen angeklickt wurde, da sonst die Zuordnung nicht erfolgt)<\/li>\n<\/ol>\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=\"#Zoom_auf_100_\">Zoom auf 100%<\/a><\/li>\n<li><a href=\"#Zoom_auf_90_\">Zoom auf 90%<\/a><\/li>\n<li><a href=\"#Zoom_auf_Textbreite\">Zoom auf Textbreite<\/a><\/li>\n<\/ul>\n<h2><span style=\"font-size: medium;\">Funktionen<\/span><\/h2>\n<h3><a name=\"Zoom_auf_100_\"><\/a><span style=\"font-size: small;\">Zoom auf 100%<\/span><\/h3>\n<pre class=\"brush: vb; gutter: true\">Public Sub Zoom100Prozent()\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; Ansicht auf 100% zoomen\r\n    ActiveWindow.ActivePane.View.Zoom.Percentage = 100\r\n\r\nNoDocumentOpen:\r\nEnd Sub<\/pre>\n<h3><a name=\"Zoom_auf_90_\"><\/a><span style=\"font-size: small;\">Zoom auf 90%<\/span><\/h3>\n<pre class=\"brush: vb; gutter: true\">Public Sub Zoom90Prozent()\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; Ansicht auf 100% zoomen\r\n    ActiveWindow.ActivePane.View.Zoom.Percentage = 90\r\n\r\nNoDocumentOpen:\r\nEnd Sub<\/pre>\n<h3><a name=\"Zoom_auf_Textbreite\"><\/a><span style=\"font-size: small;\">Zoom auf Textbreite<\/span><\/h3>\n<pre class=\"brush: vb; gutter: true\">Public Sub ZoomTextbreite()\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 ActiveWindow.ActivePane.View.Zoom\r\n        &#039; Da der Zoom auf Textbreite die Zoomeinstellung nur erh\u00f6ht, wird die Zoomeinstellung erst auf 75% und anschlie\u00dfend auf Textbreite gesetzt.\r\n        &#039; Falls das nicht ausreicht, kann nat\u00fcrlich auch ein kleinerer Wert als 75% gew\u00e4hlt werden.\r\n        .Percentage = 75\r\n        .PageFit = wdPageFitTextFit\r\n    End With\r\n\r\nNoDocumentOpen:\r\nEnd Sub<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Beschreibung Mit Hilfe dieser Makros kann man die Zoomeinstellung in MS Word \u00e4ndern. Der Vorteil ist, dass g\u00e4ngige Zoomeinstellungen direkt in einer Symbolleiste verf\u00fcgbar gemacht werden k\u00f6nnen. Weiterhin l\u00e4sst sich den Makros auch ganz problemlos eine Tastenkobination zuordnen.<\/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-139","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-2f","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/139","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=139"}],"version-history":[{"count":9,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/139\/revisions"}],"predecessor-version":[{"id":1430,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/139\/revisions\/1430"}],"wp:attachment":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=139"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=139"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=139"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}