Querverweise automat mit Makro einfügen funktioniert nicht :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Word 2000] Querverweise automat mit Makro einfügen funktioniert nicht

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Word Hilfe

Autor

Nachricht

chakko
Newbie
Newbie

Anmeldedatum: 03.09.2007
Beiträge: 42

Verfasst am: 03.02.2008, 23:16

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 ?

_________________
Chakko

chakko
Newbie
Newbie

Anmeldedatum: 03.09.2007
Beiträge: 42

Verfasst am: 04.02.2008, 22:59

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,
Laughing

_________________
Chakko

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Word Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Excel rechnet nicht immer richtig	gausle	Microsoft Excel Hilfe	1	08.01.2009, 19:29
	Termine anlegen nicht mehr möglich !	s0ul	Microsoft Outlook Hilfe	1	08.01.2009, 09:13
	Kapitel wird nicht an Seitenbeginn ge...	benu	Microsoft Word Hilfe	0	03.01.2009, 13:54
	Excel Tabelle! Register nicht Sichtbar?	koni22	Microsoft Access Hilfe	0	03.01.2009, 11:12
	ich möchte in einem Arbeitsblatt Zell...	rolf3	Microsoft Excel Hilfe	1	02.01.2009, 21:54

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de