VBA – Word: Querverweis einfügen

Beschreibung

Wenn häufig Querverweise eingefügt werden müssen, hilft das folgende Makro den entsprechenden Dialog zu öffnen.

Sourcecode

Public Sub QuerverweisEinfügen()
    ' Bei Fehlern wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet.
    On Error GoTo NoDocumentOpen

    ' Falls keine Datei geöffnet ist, wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet. Die Prüfung, ob eine Datei geöffnet ist, wird über die Länge des Dateinamens des aktiven Dokuments durchgeführt.
    If Len(ActiveDocument.Name) = 0 Then GoTo NoDocumentOpen

    ' Word-Dialogfenster für Querverweise öffnen
    Dialogs(wdDialogInsertCrossReference).Show

NoDocumentOpen:
End Sub