{"id":1494,"date":"2012-01-30T19:35:51","date_gmt":"2012-01-30T17:35:51","guid":{"rendered":"http:\/\/www.kastenmaier.de\/?p=1494"},"modified":"2019-09-20T16:47:34","modified_gmt":"2019-09-20T15:47:34","slug":"vsto-word-fehlerhafte-verweisquellen-suchen","status":"publish","type":"post","link":"https:\/\/www.kastenmaier.de\/?p=1494","title":{"rendered":"VSTO &#8211; Word: Fehlerhafte Verweisquellen suchen"},"content":{"rendered":"<h1><span style=\"font-size: large;\">Beschreibung<\/span><\/h1>\n<p>Beim Aktualisieren von Dokumenten werden h\u00e4ufig fehlerhafte Verweisquellen \u00fcbersehen. Um dies zu verhindern, habe ich die folgende Funktion geschrieben.&nbsp;<!--more-->Die Funktion dient als Input f\u00fcr die Funktion <a href=\"https:\/\/www.kastenmaier.de\/?p=1491\" target=\"_blank\" rel=\"noopener noreferrer\">Dokument aktualisieren<\/a>. Vorher definierte Fehlertexte werden gesucht und bei auffinden eines dieser Texte wird True zur\u00fcckgegeben, andernfalls False.<\/p>\n<p>Das Makro ist in&nbsp;VB.NET&nbsp;geschrieben, kann aber leicht in&nbsp;VBA&nbsp;portiert werden. Bei Fragen einfach die Kommentarfunktion benutzen.<img decoding=\"async\" title=\"Weiterlesen \u2026\" src=\"http:\/\/www.kastenmaier.de\/wp-includes\/js\/tinymce\/plugins\/wordpress\/img\/trans.gif\" alt=\"\"\/><\/p>\n<h1><span style=\"font-size: large;\">Sourcecode<\/span><\/h1>\n<pre class=\"brush: vbnet; gutter: true\">&#039; Verweisquellen-Fehlermeldungen\nPublic Const REF_ERROR1 As String = &quot;Fehler! Verweisquelle konnte nicht gefunden werden.&quot;\nPublic Const REF_ERROR2 As String = &quot;Fehler! Textmarke nicht definiert.&quot;\nPublic Const REF_ERROR3 As String = &quot;Fehler! Kein g\u00fcltiger Dateiname.&quot;\nPublic Const REF_ERROR4 As String = &quot;Fehler! Unbekannter Name f\u00fcr Dokument-Eigenschaft.&quot;\n\n&#039; Kapitel 0-Verweisquellen\nPublic Const CHAPTER0_1 As String = &quot;section 0&quot;\nPublic Const CHAPTER0_2 As String = &quot;chapter 0&quot;\nPublic Const CHAPTER0_3 As String = &quot;abschnitt 0&quot;\nPublic Const CHAPTER0_4 As String = &quot;kapitel 0&quot;\n\n&#039; Word-Objekt\nPublic objWord As Microsoft.Office.Interop.Word.Application = Globals.Ribbon_Class.Application\n\n&#039; Nach fehlerhaften Verweisquellen im Text suchen\nPublic Function findFehlerhafteVerweisquellen()\n    Dim sSearchString As String\n    Dim ireftype As Integer\n\n    findFehlerhafteVerweisquellen = False\n\n    With objWord.Selection\n        For ireftype = 1 To 8\n            Select Case ireftype\n                Case 1: sSearchString = REF_ERROR1\n                Case 2: sSearchString = REF_ERROR2\n                Case 3: sSearchString = REF_ERROR3\n                Case 4: sSearchString = REF_ERROR4\n                Case 5: sSearchString = CHAPTER0_1\n                Case 6: sSearchString = CHAPTER0_2\n                Case 7: sSearchString = CHAPTER0_3\n                Case 8: sSearchString = CHAPTER0_4\n                Case Else: sSearchString = &quot;&quot;\n            End Select\n            With .Find\n                .Text = sSearchString\n                .Execute()\n                If .Found Then\n                    findFehlerhafteVerweisquellen = True\n                    Exit For\n                Else\n                    findFehlerhafteVerweisquellen = False\n                End If\n            End With\n        Next ireftype\n    End With\nEnd Function<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Beschreibung Beim Aktualisieren von Dokumenten werden h\u00e4ufig fehlerhafte Verweisquellen \u00fcbersehen. Um dies zu verhindern, habe ich die folgende Funktion geschrieben.&nbsp;<\/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,45],"tags":[49,37,46,38],"class_list":["post-1494","post","type-post","status-publish","format-standard","hentry","category-startseite","category-vsto-word","tag-programmieren","tag-vba","tag-vsto","tag-word"],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p5LyzC-o6","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/1494","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=1494"}],"version-history":[{"count":13,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/1494\/revisions"}],"predecessor-version":[{"id":2292,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/1494\/revisions\/2292"}],"wp:attachment":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1494"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1494"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1494"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}