»

[majce]

Hallo Zusammen, könnte mir jemand sagen, wie ich diesen Fehler beheben kann?

Laufzeitfehler 5102

Sie haben für eine Seite, Zeile, Fussnote oder Anmerkung mehrere Bestimmungsorte angeben.


Code:
Private Sub btnOK_Click()

Call ShowAllFieldCodes

Call MergeData

Call UpdateHidden

Call UpdateDocumentFields

Call HideAllFieldCodes

Selection.GoTo What:=wdGoToBookmark, Name:="TopOfPage"
Selection.Find.ClearFormatting

With ActiveDocument
.PrintPreview
.ClosePrintPreview
End With


Exit_btnOK_Click:
Unload Me
Exit Sub

End Sub


Danke im Voraus

[sCHween]

ich entnehme der Fehlermeldung dass TopOfPage mehrfach definiert wurde!

[majce]

Zitat von sCHween

ich entnehme der Fehlermeldung dass TopOfPage mehrfach definiert wurde!

Dieses Textfeld existiert garnicht im Dokument, ich habe es rauskommentiert, doch die selber Fehlermeldung kommt immer noch!

Call HideAllFieldCodes

Selection.GoTo What:=wdGoToBookmark, Name:="TopOfPage"
Selection.Find.ClearFormatting

kann es wegen dem Call sein, welches die anderen Textfelder aufruft?