Hallo,
ich habe Dokumente in denen viele Fußnoten vergeben wurden. Nun möchte ich dieses Dokument in ein TXT umwandeln und dabei die Fußnoten nicht verlieren. Deshalb möchte ich anstelle der Fußnotenzahl dort in Klammern den Fußnotentext haben.
Hat irgendjemand eine Ahnung wie man das automatisieren kann?
Danke für die Hilfe
Michael
Sub FussnotenzuText()
Dim myFootnote As Footnote
Dim myRange As Range
For Each myFootnote In ActiveDocument _
.StoryRanges(wdFootnotesStory).Footnotes
’ Remove whitespace in front of endnote number
Set myRange = myFootnote.Range
myRange.Expand Unit:=wdParagraph
myRange.Collapse Direction:=wdCollapseStart
myRange.MoveEndWhile Cset:=ChrW(32) + ChrW(9), Count:=wdForward
myRange.Delete
myFootnote.Range.Cut
Set myRange = myFootnote.Reference
myRange.Paste
myRange.InsertBefore „(“
myRange.InsertAfter „)“
Next myFootnote
End Sub
Gruß Lisa