{"id":145,"date":"2009-01-16T13:54:38","date_gmt":"2009-01-16T13:54:38","guid":{"rendered":""},"modified":"2018-05-02T07:54:56","modified_gmt":"2018-05-02T06:54:56","slug":"querverweis-einfuegen","status":"publish","type":"post","link":"https:\/\/www.kastenmaier.de\/?p=145","title":{"rendered":"VBA &#8211; Word: Querverweis einf\u00fcgen"},"content":{"rendered":"<h1><span style=\"font-size: large;\">Beschreibung<\/span><\/h1>\n<p style=\"text-align: justify;\">Wenn h\u00e4ufig Querverweise eingef\u00fcgt werden m\u00fcssen, hilft das folgende Makro den entsprechenden Dialog zu \u00f6ffnen.<br \/>\n<!--more--><\/p>\n<h1><span style=\"font-size: large;\">Sourcecode<\/span><\/h1>\n<pre class=\"brush: vb; gutter: true\">Public Sub QuerverweisEinf\u00fcgen()\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; Word-Dialogfenster f\u00fcr Querverweise \u00f6ffnen\r\n    Dialogs(wdDialogInsertCrossReference).Show\r\n\r\nNoDocumentOpen:\r\nEnd Sub<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Beschreibung Wenn h\u00e4ufig Querverweise eingef\u00fcgt werden m\u00fcssen, hilft das folgende Makro den entsprechenden Dialog zu \u00f6ffnen.<\/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-145","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-2l","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/145","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=145"}],"version-history":[{"count":7,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/145\/revisions"}],"predecessor-version":[{"id":1418,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/145\/revisions\/1418"}],"wp:attachment":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=145"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=145"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=145"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}