Thema Datum  Von Nutzer Rating
Antwort
04.08.2023 14:04:45 Hanna Findeisen
NotSolved
04.08.2023 18:32:04 xlKing
NotSolved
04.08.2023 18:47:28 xlKing
*****
Solved
Blau automatische Fussnoten
 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:
Gast17026		 Datum:
04.08.2023 21:58:37		 Views:
210		 Rating:
     
Antwort:
 Nein
Thema:
automatische Fussnoten

Hi Mr. K. Leider hat der Code bei mir nicht funktioniert und es kamen immer Fehler oder passierte einfach nichts. Ich habe es dann einfach mal mit chatpgd probiert und nach mehreren versuchen sind wir bei folgenden Code gelandet, der gut funktioniert:

Sub ConvertToFootnotes()
    ' Find all instances of bracketed text and convert to footnotes
    Call ConvertBracketsToFootnotes
End Sub

Sub ConvertBracketsToFootnotes()
    Dim rng As Range
    Dim citation As String

    Set rng = ActiveDocument.Range
    With rng.Find
        .Text = "\(*\)"
        .MatchWildcards = True
        .Forward = True
        While .Execute
            citation = Trim(Mid(rng.Text, 2, Len(rng.Text) - 2)) ' Remove the brackets from the citation and trim the spaces
            If citation Like "*[0-9]*" Then  ' If the citation contains at least one number
                rng.Footnotes.Add rng, Text:=citation
                rng.Text = "" ' Only delete the text when it has been transferred to footnotes
            End If
            rng.Collapse wdCollapseEnd
        Wend
    End With
End Sub

 

Aber auf jeden Fall tausend Dank für deine Mühe. 

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
04.08.2023 18:32:04 xlKing
NotSolved
04.08.2023 18:47:28 xlKing
*****
Solved
Blau automatische Fussnoten
 04.08.2023 21:58:37 Gast17026
*****
Solved
04.08.2023 23:25:46 xlKing
NotSolved
05.08.2023 11:20:49 Gast23571
NotSolved