Thema Datum  Von Nutzer Rating
Antwort
04.08.2023 14:04:45 Hanna Findeisen
NotSolved
Blau automatische Fussnoten
04.08.2023 18:32:04 xlKing
NotSolved
04.08.2023 18:47:28 xlKing
*****
Solved
04.08.2023 21:58:37 Gast17026
*****
Solved
04.08.2023 23:25:46 xlKing
NotSolved
05.08.2023 11:20:49 Gast23571
NotSolved

Ansicht des Beitrags:
Von:
xlKing
Datum:
04.08.2023 18:32:04
Views:
183
Rating: Antwort:
  Ja
Thema:
automatische Fussnoten

Hi Hanna,

das ist natürlich mit einem Makro schnell gemacht. Allerdings muss man sich da ein bisschen rantasten, bis das wie gewüscht funktioniert. Für den Anfang werden mit folgendem Code all in Klammern stehende Texte als Fußnote am Ende des Dokuments erstellt. Probier mal aus und berichte ob das schon so reicht. Wie man die Fußnote noch auf der gleichen Seite erstellt, weiß ich grad nicht.

Sub Test()

  Dim Erste As Long, Letzte As Long, Start As Long, Ende As Long, Text As String
  
  With ActiveDocument.Range.Find
    .Text = "("
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    Do
    .Execute
    Start = .Parent.Start
    If Start = Erste Or Start = Letzte Then Exit Do
    If Erste = 0 Then Erste = Start
    Letzte = Start
    Ende = InStr(Start, ActiveDocument.Range.Text, ")")
    Text = ActiveDocument.Range(Start + 1, Ende - 1)
    ActiveDocument.Range(Start, Ende).Delete
    ActiveDocument.Footnotes.Add ActiveDocument.Range(Start, Start), Text:=Text
    Loop
  End With
  
End Sub

Gruß Mr. K.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
04.08.2023 14:04:45 Hanna Findeisen
NotSolved
Blau automatische Fussnoten
04.08.2023 18:32:04 xlKing
NotSolved
04.08.2023 18:47:28 xlKing
*****
Solved
04.08.2023 21:58:37 Gast17026
*****
Solved
04.08.2023 23:25:46 xlKing
NotSolved
05.08.2023 11:20:49 Gast23571
NotSolved