Zunächst mal würde ich Dein "Reopen" rausnehmen aus der Maske, da ich vermute, dass es durch das Schliessen und "reopen" zum Verlust der Rahmeninformation kommt.
Dann ins QueryOpenDocument der Ansicht den Code packen, den Du jetzt im Dokument hast:
Continue = False '- Verhindert, dass das Dokument "tatsächlich" geöffnet wird
ws.OpenFrameset(Frameset)
ws.SetTargetFrame(TargetFrame)
ws.EditDocument(False, NotesDocument)
Vielleicht hilft das ja schon...