Sub EditHyperwave
   'Werner Roth <tiberius@uni-paderborn.de>
   'Lädt ein Hyperwave Dokument ohne Kopf- und Fußzeilen ein.
   'Dieses Makro ist sinnvoller als über den Edit-Modus zu gehen, 
   'da im Edit-Modus Hintergrundfarbe oder -bilder weggelassen werden.
   'Achtung nur ab StarOffice 4.0 Service Pack 2 oder höher
   'Hyperwave erst ab Gateway 2.6a oder höher
   IF ActiveDocument.Modified THEN
      MsgBox("Das aktuelle Dokument wurde editiert."+chr(13)+"Bitte erst speichern!", 0+32, "EditHyperwave")
      exit sub
   EndIf
   FullName$ = ActiveDocument.FullName
   IF Lcase(Left$(FullName$,4)) = "http" THEN
      'ggf. ?hastenichgesehen Parameter rausnehmen
      If InStr(FullName$, "?")<>0 then
         FullName$ = Left$(FullName$, InStr(FullName$, "?") - 1)
      EndIf
      FullName$ = FullName$ + "?hyperwave=action%3dplain.action"
      ActiveDocument.Close( False, "" )
      Documents.Open( FullName$, "swriter4/web: HTML", "", "" )
      ActiveWindow.ReloadForEdit
   ELSE
      IF ActiveDocument.Path = "" then
         MsgBox("Das Dokument muß noch gespeichert werden!", 0+64, "EditHyperwave Achtung!")
      ELSE
         MsgBox("Das Dokument liegt nicht auf einem WWW-Server"+chr(13)+FullName$, 0+64, "EditHyperwave Achtung!")
      endif   
   ENDIF
End Sub