Jak przenieść przypisy MS Word do tekstu podstawowego
1
Mam dokument MS Word z ponad 100 przypisami. Chcę umieścić je w tekście (gdzie obecnie znajduje się numer indeksu górnego) za pomocą <ref></ref>znacznika, dzięki czemu mogę umieścić dokument na wiki. Jak mam to zrobic?
Sub AddFnTextInBodyOfDoc()
Dim f As Footnote
Dim r As Range
For Each f In ActiveDocument.Footnotes
Set r = f.Reference
r.Collapse wdCollapseEnd
r.InsertAfter "<ref>" & f.Range.Text & "</ref>"
Next f
End Sub
Używamy plików cookie i innych technologii śledzenia w celu poprawy komfortu przeglądania naszej witryny, aby wyświetlać spersonalizowane treści i ukierunkowane reklamy, analizować ruch w naszej witrynie, i zrozumieć, skąd pochodzą nasi goście.
Kontynuując, wyrażasz zgodę na korzystanie z plików cookie i innych technologii śledzenia oraz potwierdzasz, że masz co najmniej 16 lat lub zgodę rodzica lub opiekuna.