Kildehenvisning ved hjælp af fodnoter

Her er "noget macro" :-) som måske kan inspirere dig:

Sub MakeListOfFootNotesAtTheEndOfADocument()
  Dim FodNote As Footnote
  Dim TabelNr As Integer
  Selection.EndKey Unit:=wdStory
  Selection.InsertBreak Type:=wdPageBreak
  Selection.TypeText "Fodnoter:" & vbNewLine & vbNewLine
 
  ActiveDocument.Tables.Add Selection.Range, ActiveDocument.Footnotes.Count + 1, 2
  TabelNr = ActiveDocument.Tables.Count
 
  With ActiveDocument
      .Tables(TabelNr).Cell(1, 1).Select
      Selection.TypeText "Fodnotenr."
      .Tables(TabelNr).Cell(1, 2).Select
      Selection.TypeText "Tekst."
     
      For Each FodNote In ActiveDocument.Footnotes
        .Tables(TabelNr).Cell(FodNote.Index + 1, 1).Select
        Selection.TypeText FodNote.Index
        .Tables(TabelNr).Cell(FodNote.Index + 1, 2).Select
        Selection.TypeText FodNote.Range.Text
      Next FodNote
  End With
End Sub

Om man kan lave det samme uden VBA, ved jeg ikke, men ovenstående var hurtigere at skrive end en søgning via Google ;-)
Håber det kan hjælpe dig.

Kunne det bruges?

Ja det kunne den da, smider du så ikke lige et svar til mig.

Gerne :-)

Hejsa Learningvba

Du har blot smidt en kommentar - den kan jeg ikke give point

Det har jeg for at skrive inden at morgenkaffen er nået igennem systemet :-)