{"id":143,"date":"2009-01-16T13:53:03","date_gmt":"2009-01-16T13:53:03","guid":{"rendered":""},"modified":"2018-05-02T07:54:56","modified_gmt":"2018-05-02T06:54:56","slug":"aenderungsmarkierungen-annehmen-ablehnen-anzeigenausblenden","status":"publish","type":"post","link":"https:\/\/www.kastenmaier.de\/?p=143","title":{"rendered":"VBA &#8211; Word: \u00c4nderungsmarkierungen annehmen, ablehnen, anzeigen\/ausblenden"},"content":{"rendered":"<h1><span style=\"font-size: large;\">Beschreibung<\/span><\/h1>\n<p style=\"text-align: justify;\">Wenn viel mit unterschiedlichen Dokumentenversionen in Word gearbeitet wird, kommt es h\u00e4ufig vor, dass nur die \u00c4nderungen angezeigt werden sollen, die seit der letzten Version hinzugekommen sind. Die folgenden Makros sind in diesem Fall recht hilfreich.<\/p>\n<p style=\"text-align: justify;\"><!--more-->Sollen alle \u00c4nderungen angenommen werden, damit nur noch die \u00c4nderungen seit der letzten Version in der neuen Version auftauchen, bietet sich das Makro &#8218;Alle \u00c4nderungen annehmen&#8216; an.<br \/>\nWurden versehentlich \u00c4nderungen an einem Dokument durchgef\u00fchrt und alle \u00c4nderungen in diesem Dokument sollen entfernt werden, kann das Makro &#8218; Alle \u00c4nderungen ablehnen&#8216; verwendet werden.<br \/>\nHin und wieder kann es vorkommen, dass die Bearbeitung eines Dokuments mit angezeigten \u00c4nderungsmarkierungen un\u00fcbersichtlich wird. Um zwischen angezeigten und ausgeblendeten \u00c4nderungsmarkierungen umzuschalten, kann das Makro &#8218;\u00c4nderungsmarkierungen anzeigen\/ausblenden&#8216; verwendet werden.<\/p>\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=\"#Alle__nderungen_annehmen\">Alle \u00c4nderungen annehmen<\/a><\/li>\n<li><a href=\"#Alle__nderungen_ablehnen\">Alle \u00c4nderungen ablehnen<\/a><\/li>\n<li><a href=\"#_nderungsmarkierungen_anzeigen_ausblenden\">\u00c4nderungsmarkierungen anzeigen\/ausblenden<\/a><\/li>\n<\/ul>\n<h2><span style=\"font-size: medium;\">Funktionen<\/span><\/h2>\n<h3><a name=\"Alle__nderungen_annehmen\"><\/a><span style=\"font-size: small;\">Alle \u00c4nderungen annehmen<\/span><\/h3>\n<pre class=\"brush: vb; gutter: true\">Public Sub Alle\u00c4nderungenAnnehmen()\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; Alle \u00c4nderungen annehmen\r\n    WordBasic.AcceptAllChangesInDoc\r\n\r\nNoDocumentOpen:\r\nEnd Sub<\/pre>\n<h3><a name=\"Alle__nderungen_ablehnen\"><\/a><span style=\"font-size: small;\">Alle \u00c4nderungen ablehnen<\/span><\/h3>\n<pre class=\"brush: vb; gutter: true\">Public Sub Alle\u00c4nderungenAblehnen()\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; Alle \u00c4nderungen ablehnen\r\n    WordBasic.RejectAllChangesInDoc\r\n\r\nNoDocumentOpen:\r\nEnd Sub<\/pre>\n<h3><a name=\"_nderungsmarkierungen_anzeigen_ausblenden\"><\/a><span style=\"font-size: small;\">\u00c4nderungsmarkierungen anzeigen\/ausblenden<\/span><\/h3>\n<pre class=\"brush: vb; gutter: true\">Public Sub \u00c4nderungsmarkierungenAnzeigen()\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; Anzeigen der \u00c4nderungsmarkierungen invertieren\r\n    WordBasic.ViewChanges\r\n\r\nNoDocumentOpen:\r\nEnd Sub<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Beschreibung Wenn viel mit unterschiedlichen Dokumentenversionen in Word gearbeitet wird, kommt es h\u00e4ufig vor, dass nur die \u00c4nderungen angezeigt werden sollen, die seit der letzten Version hinzugekommen sind. Die folgenden Makros sind in diesem Fall recht hilfreich.<\/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-143","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-2j","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/143","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=143"}],"version-history":[{"count":16,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/143\/revisions"}],"predecessor-version":[{"id":1022,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/143\/revisions\/1022"}],"wp:attachment":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=143"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=143"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=143"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}