Fußnoten in Kommentare umwandeln und alle extraanzeigen

Computer: Software & Programmierung Office Software
#1

Hallo,
ich habe Word 2010 (auf Windows 7) und möchte in einem langen Dokument alle bereits vorhandenen Fußnoten in Kommentare umwandeln und diese dann auch noch möglichst in einem Extrafenster alle zusammen so ansehen können, dass sie wie Links erscheinen, durch die ich dann an automatisch an die jeweilige Textstelle im Fließtext zurückgeführt werde. Wie geht das?
Gruß,
lynndinn

#2

Hi lynndinn,

probier’ 'mal folgendes:

Sub FootnotesToComments() 'MH 21.09.13
'wandelt alle Fußnoten in Kommentare um
Dim i As Long 'Zähler
 With ActiveDocument.Footnotes
 For i = .Count To 1 Step -1
 .Parent.Comments.Add \_
 Range:=.Parent.Range(.Item(i).Reference.Start, .Item(i).Reference.Start), \_
 Text:=.Item(i).Range.Text
 .Item(i).Delete
 Next i
 End With 'ActDoc.Footnotes
End Sub 'FootnotesToComments

Das macht, was Du willst. Allerdings erscheint am Anfang jedes Kommentartexts ein Feld {Page # „'Seite '#“}. Schaltet man die Anzeige der Feldfunktionen ab, verschwindet es aber und stört überhaupt nicht. Deshalb habe ich auch auf eine VBA-Behandlung des Fußnotentextes verzichtet.

HTH.

Markus
---------------------------------
der immer noch, auch wenn’s unmodern ist, Sterne sammelt, und sich über per PN zugeschickte vierstimmige Chorsätze von Oldies besonders freut.

#3

Hallo Markus,
tausend Dank für dein Makro. Hat super geklappt :smile:

Gruß,
lynndinn