Thema Datum  Von Nutzer Rating
Antwort
04.08.2023 14:04:45 Hanna Findeisen
NotSolved
04.08.2023 18:32:04 xlKing
NotSolved
Rot automatische Fussnoten
 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:47:28		 Views:
212		 Rating:
     
Antwort:
 Nein
Thema:
automatische Fussnoten

Kleine Verbesserung des Codes:

Sub Test()

  Dim Start As Long, Ende As Long, Text As String
  
  With ActiveDocument.Range.Find
    .Text = "("
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    Do
    .Execute
    If .Found Then
      Start = .Parent.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
    End If
    Loop Until .Found = False
  End With
  
End Sub

 

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
Rot automatische Fussnoten
 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