Office: Querverweise automat mit Makro einfügen funktioniert nicht

Helfe beim Thema Querverweise automat mit Makro einfügen funktioniert nicht in Microsoft Word Hilfe um das Problem gemeinsam zu lösen; Hallo Forum ich habe ein sehr umfangreiches Dokument mit 216 Überschriften. Hierzu wollte ich Querverweise auf die Überschriften einfügen. Mit... Dieses Thema im Forum "Microsoft Word Hilfe" wurde erstellt von chakko, 3. Februar 2008.

  1. chakko Erfahrener User

    Querverweise automat mit Makro einfügen funktioniert nicht


    Hallo Forum

    ich habe ein sehr umfangreiches Dokument mit 216 Überschriften.
    Hierzu wollte ich Querverweise
    auf die Überschriften einfügen.
    Mit dem Makro-Rekorder habe ich folgendes Skript erstellt:

    Code:
    Sub Makro5()
        Selection.InsertCrossReference ReferenceType:="Überschrift", ReferenceKind _
            :=wdContentText, ReferenceItem:="1", InsertAsHyperlink:=True, _
            IncludePosition:=False
    End Sub
    Diese wollte ich so abändern:

    Code:
    
    for i =1 to 216
    Selection.InsertCrossReference ReferenceType:="Überschrift", ReferenceKind _
            :=wdContentText, ReferenceItem:=i , InsertAsHyperlink:=True, _
            IncludePosition:=False
    next
    
    Es kommt jedoch die Fehlermeldung: Laufzeitfehler 4198 Befehl misslungen.
    Dieser Fehler kommt nicht nur bei meiner Schreife, sondern bereits, wenn ich das Makro so wie ich es aufgezeichnet habe, wieder aufrufe.

    Kann mir jemand erklären, warum es nicht funzt ?
     
  2. chakko Erfahrener User
    :!: :!:
    heureka !

    Hab die Lösung selber gefunden:

    ReferenceItem ist keine Zahl , sondern ein String !
    In meiner Schleife muss i ein string sein, also str$(i)

    So funzt es :

    For i = 1 To 216
    Selection.InsertCrossReference ReferenceType:="Überschrift", ReferenceKind _
    :=wdContentText, ReferenceItem:=Str$(i), InsertAsHyperlink:=True, _
    IncludePosition:=False
    Selection.TypeParagraph
    Next
    End Sub

    Geil wie das geht,
    :lol: :lol:
     
Thema:

Querverweise automat mit Makro einfügen funktioniert nicht

Die Seite wird geladen...
  1. Querverweise automat mit Makro einfügen funktioniert nicht - Similar Threads - Querverweise automat Makro

  2. Textmarken und Querverweis in Dokument einfügen VBA

    in Microsoft Word Hilfe
    Textmarken und Querverweis in Dokument einfügen VBA: Hallo, ich habe per Seriendruck ein Word Dokument erstellt. Es ist kein Klassischer Serienbrief sondern eine Auswertung über mehreren Seiten, es können durchaus mehrere hundert Seiten werden. Ich...
  3. Querverweis automatische Formatvorlage

    in Microsoft Word Hilfe
    Querverweis automatische Formatvorlage: Guten Morgen allerseits, Ich möchte in meinen Word-Dokumenten die Querverweise automatisch mit einer eigenen Formatvorlage formatieren, beispielsweise Kursiv, fett und blau. Optimal wäre...
  4. Erstellen eines Querverweises

    in Microsoft Word Tutorials
    Erstellen eines Querverweises: Erstellen eines Querverweises Word für Microsoft 365 Word 2019 Word 2016 Word 2013 Word 2010 Word 2007 Mehr... Weniger...
  5. Fehlerhafte Formelnummereirung im Text mit Querverweis

    in Microsoft Word Hilfe
    Fehlerhafte Formelnummereirung im Text mit Querverweis: Hallo, ich nutze Word 2010. Ich habe ein Problem bei Querverweisen für Formeln im Text. Damit ich meine Formeln durchnummeriere, erstelle ich als erstes eine Tabelle mit drei Spalten. In die...
  6. Textmarken und Querverweise

    in Microsoft Word Hilfe
    Textmarken und Querverweise: Moin. Ein Problem, welches ich mir nicht erklären kann: Hab eine *.dotm einschl. Userform erstellt. Am Ende meines UF hab ich einen Button für die Druckvorschau. Die Daten werden auch alle...
  7. Querverweise automatisch Aktualisieren

    in Microsoft Word Hilfe
    Querverweise automatisch Aktualisieren: Hallo, bin gerade dabei meine Diplomarbeit zu schreiben und hab nun folgendes Problem. Ich schreibe jedes einzelne Kapitel in ein eigenes Dokument. Jetzt will ich mehrere Kapitel...
  8. Querverweise automatisch aktualisieren

    in Microsoft Word Hilfe
    Querverweise automatisch aktualisieren: Hallo! Ich hab ein Problem mit Querverweisen, die auf eine Abbildung verweisen. Die Abbildungen befinden sich im Anhang, wenn ich im Textfluss darauf verweisen will, dann geht das ganz gut...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden