title image


Smiley Re: fussnoten automatisch ins literaturverzeichnis übernehmen?
Hallo!



mein Programm ist aber nicht dynamisch, d.h. bei einer Änderung:

alte Liste löschen und neue erstellen.



Formatierungen (fett etc.) aus den Fußnoten gehen verloren.



http://mypage.bluewin.ch/reprobst/WordFAQ/Button.htm



Gruß, Chrisir









Option Explicit





Sub Fussnotenliste()



    Const strTitel = _

             "Fußnotenliste einfügen"

    Const strFrage = _

             "Befindet sich der Cursor an der Stelle, " & _

             "an der die Liste eingefügt werden soll?"



    Dim footnoteF1 As Footnote

    

    

    ' Ggf. Abbruch I.

    If Documents.Count = 0 Then

        End

    End If

    

    ' Ggf. Abbruch II.

    If ActiveDocument.Footnotes.Count <= 0 Then

        MsgBox "Leider keine Fußnoten gefunden.", _

               vbExclamation, _

               strTitel

        End

    End If

    

    ' Ggf. Abbruch III.

    If MsgBox(strFrage, _

              vbYesNoCancel + vbQuestion, _

              strTitel) <> vbYes Then

        End

    End If

    

    Selection.TypeText "Liste der Fußnoten"

    Selection.TypeText vbNewLine

    Selection.TypeText vbNewLine

    Selection.TypeText vbNewLine

    

    Selection.MoveUp

    

    For Each footnoteF1 In ActiveDocument.Footnotes

        Selection.TypeText footnoteF1.Index

        Selection.TypeText " "

        Selection.TypeText footnoteF1.Range.FormattedText

        Selection.Collapse wdCollapseEnd

        Selection.TypeText vbNewLine

    Next footnoteF1



End Sub







Code eingefügt mit Syntaxhighlighter 2.4





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: