{"id":1532,"date":"2013-08-28T15:01:43","date_gmt":"2013-08-28T13:01:43","guid":{"rendered":"http:\/\/www.ramses.de\/?p=1532"},"modified":"2013-08-28T15:01:43","modified_gmt":"2013-08-28T13:01:43","slug":"faq-word-liste-aller-querverweise-drucken","status":"publish","type":"post","link":"https:\/\/www.ramses.de\/?p=1532","title":{"rendered":"FAQ Word – Liste aller Querverweise drucken"},"content":{"rendered":"

Problem <\/strong><\/h2>\n

In umfangreichen Dokumenten mit vielen Textmarken und Querverweisen verliert man mit der Zeit leicht die \u00dcbersicht, wie viele und welche Querverweise auf welche Textmarken verweisen.<\/p>\n

Gibt es eine M\u00f6glichkeit, alle Querverweise mit den dazugeh\u00f6rigen Zielen aufzulisten?<\/p>\n

L\u00f6sung <\/strong><\/h2>\n

Word selbst besitzt keinen eigenen Befehl f\u00fcr diesen Zweck. Mit einem VBA-Makro k\u00f6nnen Sie aber selbst die fehlende Funktionalit\u00e4t hinzuf\u00fcgen. Die im Anschluss vorgestellte L\u00f6sung durchsucht das aktive Dokument nach Querverweisen und erstellt dann in einem neuen Dokument eine \u00dcbersicht, in der die Position des Querverweises, das Ziel – also der Name der Textmarke – sowie die Position des Ziels genannt werden. Um das Makro in Word zu integrieren, gehen Sie wie folgt vor:<\/p>\n

1. Dr\u00fccken Sie in Word die Tastenkombination Alt+F11, um den Visual Basic-Editor zu \u00f6ffnen.<\/p>\n

2. Klicken Sie im Projekt-Explorer, der auf der linken Seite des Visual Basic-Editor-Fensters angezeigt wird, den Eintrag „Normal“ an. So markieren Sie das Projekt der Standardvorlage NORMAL.DOT.<\/p>\n

3. W\u00e4hlen Sie das Men\u00fc Einf\u00fcgen-Modul an.<\/p>\n

4. In das daraufhin angezeigte Codefenster geben Sie folgende Prozedur ein:<\/p>\n

Sub ListAllRefs()
\nDim objTestDoc As Document, objOutputDoc As Document
\nDim objField As Field
\nDim objRefRange As Range
\nDim strRef As String, strPRef As String
\nDim lngFldType As Long
\nDim strFldCode As String
\nDim intFldLen As Integer
\nDim strMessage As String
\nDim strBookmark As String
\nOn Error GoTo ListRef_Error
\nApplication.ScreenUpdating = False
\nstrRef = “ REF “
\nIf Val(Application.Version) < 9 Then
\nstrPRef = “ SEITENREF “ Else strPRef = “ PAGEREF “
\nEnd If
\nSet objTestDoc = ActiveDocument
\nSet objOutputDoc = Application.Documents.Add()
\nobjOutputDoc.Paragraphs.Last.Range.InsertAfter _
\n„Dokument “ & objTestDoc.Name & _
\n“ enth\u00e4lt folgende Querverweise:“ & vbCr objOutputDoc.Paragraphs.Last.Range _
\n.InsertParagraphAfter
\nFor Each objField In objTestDoc.Fields
\nlngFldType = objField.Type
\nstrFldCode = objField.Code
\nIf lngFldType = wdFieldRef _ Or lngFldType = wdFieldPageRef Then
\nobjField.Select
\nSelect Case lngFldType
\nCase wdFieldRef intFldLen = Len(strRef) + 1 strMessage = strRef & „-Feld “
\nCase wdFieldPageRef intFldLen = Len(strPRef) + 1 strMessage = strPRef & „-Feld “
\nEnd Select
\nstrBookmark = _
\nMid(strFldCode, intFldLen, _
\nInStr(intFldLen + 1, strFldCode, “ „) _
\n– intFldLen) With ActiveDocument.Bookmarks
\nIf .Exists(strBookmark) Then
\nSet objRefRange = .Item(strBookmark).Range strMessage = strMessage & „auf Seite “ & _
\nSelection.Information(wdActiveEndPageNumber) & _
\n“ in Zeile “ & _ Selection.Information( _
\nwdFirstCharacterLineNumber) & _
\nvbCr & „verweist auf die Textmarke “ & _
\nstrBookmark & vbCr & „auf Seite “ & _
\nobjRefRange.Information( _
\nwdActiveEndPageNumber) & _
\n“ in Zeile “ & _
\nobjRefRange.Information( _
\nwdFirstCharacterLineNumber) & _
\nvbCr objOutputDoc.Paragraphs.Last.Range.InsertAfter _
\nstrMessage objOutputDoc.Paragraphs.Last._
\nRange.InsertParagraphAfter
\nEnd If
\nEnd With
\nEnd If
\nNext objField
\nobjOutputDoc.Activate
\nListRef_End:
\nSet objRefRange = Nothing
\nSet objField = Nothing
\nSet objOutputDoc = Nothing
\nSet objTestDoc = Nothing
\nApplication.ScreenUpdating = True
\nExit Sub
\nListRef_Error:
\nMsgBox „Fehler bei der Ausgabe der Querverweise.“ & _ vbCr & „Fehler-Nr. “ & Err.Number & „:“ & vbCr & _ Err.Description
\nResume ListRef_End
\nEnd Sub<\/p>\n

Verlassen Sie den Visual Basic-Editor, indem Sie im Men\u00fc Datei den Befehl Schlie\u00dfen und zur\u00fcck zu Microsoft Word anw\u00e4hlen.<\/p>\n

Jetzt k\u00f6nnen Sie ein Dokument mit Querverweisen laden und die Funktionsweise des VBA-Makros ausprobieren. Zum Aufruf des Makros dr\u00fccken Sie Alt+F8, womit Sie ein Dialogfenster mit allen verf\u00fcgbaren Makros \u00f6ffnen. In der angezeigten Liste doppelklicken Sie auf den Makronamen „ListAllRefs“.<\/p>\n

Das Makro legt daraufhin ein neues Dokument an, in dem es die Details aller Querverweise ausgibt. Ein einzelner Eintrag k\u00f6nnte wie folgt aussehen:<\/p>\n

REF -Feld auf Seite 3 in Zeile 9verweist auf die Textmarke _Ref76099323auf Seite 5 in Zeile 22<\/p>\n

Falls Sie das Ausgabeformat \u00e4ndern wollen oder zus\u00e4tzliche Informationen ben\u00f6tigen, hier ein paar Details des Programmcodes:<\/p>\n

Am Anfang \u00fcbergibt die Prozedur die Feldnamen der Querverweise an die Variablen „strRef und „strPRef“. Verweise auf Inhalte werden als REF-Felder notiert, w\u00e4hrend Seitenverweise in ein PAGEREF- bzw. in Word 97 in ein SEITENREF-Feld integriert werden.<\/p>\n

Anschlie\u00dfend legt das Makro das Ausgabedokument an, in das es eine erl\u00e4uternde Textzeile mit dem Dateinamen schreibt. Danach werden alle Felder des Dokuments mit den Querverweisen in einer For Each-Next-Schleife durchlaufen, wobei weitere Aktionen nur durchgef\u00fchrt werden, wenn es sich um REF- oder PAGEREF-Felder handelt:
\nIf lngFldType = wdFieldRef _Or lngFldType = wdFieldPageRef Then
\nDen Namen der Textmarke, auf die sich der Querverweis bezieht, ermitteln Sie anschlie\u00dfend in folgender Codezeile:<\/p>\n

strBookmark = _Mid(strFldCode, intFldLen, _InStr(intFldLen + 1, strFldCode, “ „) _- intFldLen)<\/p>\n

So k\u00f6nnen Sie schlie\u00dflich die Informationen wie Seiten- und Zeilennummer mit Hilfe von Information-Eigenschaften auslesen – einmal f\u00fcr den Bereich der Ziel-Textmarke („objRefRange“) und einmal f\u00fcr das aktuelle REF\/PAGEREF-Feld, das Sie zuvor markiert hatten und auf das Sie sich somit mit dem „Selection“-Objekt beziehen k\u00f6nnen. Die Angaben werden in der Textvariablen „strMessage“ zusammengefasst, sodass sie sich per „InsertAfter“ in das Ausgabedokument schreiben lassen.<\/p>\n","protected":false},"excerpt":{"rendered":"

Problem In umfangreichen Dokumenten mit vielen Textmarken und Querverweisen verliert man mit der Zeit leicht die \u00dcbersicht, wie viele und welche Querverweise auf welche Textmarken … Weiterlesen …<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[43,44],"tags":[72,68],"class_list":["post-1532","post","type-post","status-publish","format-standard","hentry","category-faq","category-word","tag-verlinkung","tag-word-2003"],"_links":{"self":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/1532","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1532"}],"version-history":[{"count":1,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/1532\/revisions"}],"predecessor-version":[{"id":1533,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/1532\/revisions\/1533"}],"wp:attachment":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1532"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1532"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1532"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}