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