Sub FussnotenInHtml Rem (c) by Thomas Ebinger (email: thomas.ebinger@gmx.de) Rem Nach Ablauf dieses Makros kann der Text in HTML umgewandelt werden. Rem Leider werden die Referenzen im Text dabei immer an den Rem Absatzanfang verschoben. Dim aVar as Integer aVar = 0 Do Selection.GoToStartOfDoc() vX1 = Selection.CursorXPos vY1 = Selection.CursorYPos Selection.JumpToNextFootnote() aVar = aVar + 1 vX2 = Selection.CursorXPos vY2 = Selection.CursorYPos If vX1 = vX2 AND vY1 = vY2 Then End Selection.JumpToFootnoteOrAnchor() Selection.SelectAll () Selection.Copy() Selection.JumpToFootnoteOrAnchor() Selection.Delete Selection.Insert " [" & aVar & "] " Selection.GoLeft (1) If aVar < 10 then Selection.GoLeft (3, True) If aVar > 9 AND aVar < 100 then Selection.GoLeft (4, True) If aVar > 99 then Selection.GoLeft (5, True) Selection.Font.URL = "#" & aVar Selection.Escape() Selection.InsertBookmark ("f" & aVar) Selection.GoToEndOfDoc() If aVar = 1 then Selection.InsertPara () : Selection.InsertPara () : Selection.InsertPara () If aVar = 1 then Selection.Insert "FUSSNOTEN" If aVar = 1 then Selection.InsertPara () If aVar = 1 then Selection.Insert "________________________" Selection.InsertPara () Selection.Insert "[" & aVar & "] " Selection.GoLeft (1) If aVar < 10 then Selection.GoLeft (3, True) If aVar > 9 AND aVar < 100 then Selection.GoLeft (4, True) If aVar > 99 then Selection.GoLeft (5, True) Selection.Font.URL = "#f" & aVar Selection.GotoStartOfLine (False) Selection.InsertBookmark (aVar) Selection.GotoEndOfDoc () Selection.Paste() Loop End Sub