Ladila Creative Commons License 2015.08.27 0 0 26230

Van egy munka, amit úgy adott le a fordító, hogy a jegyzetszámokat végjegyzetszámként tette be, s mivel a jegyzetek a könyv végén vannak, így ezek a végjegyzetek az egyes fájlokban csak a számokat jelentik. Mivel meglehetősen sok a fájl, a folyamatos számozást dokumentumonként kézzel állította be, hogy honnan kezdődjön.

A gondom az, hogy az Indesign minden egyes fájl végjegyzetszámát 1-től indítja, tehát nincs meg a folyamatosság.

Összefűzni nem tudom a doksikat, mert azt meg nem tudja a mérete miatt kezelni.

A megoldás lenne egy makró, de nem találtam olyat, ami működne, illetve egy van, ami megcsinálja, de a számokat elé és után tesz egy a betűt és nem teszi őket kitevőbe.

Nagy segítség lenne egy normálisan működő makró! Tehát a cél, hogy az endnote textté konvertálódjon.

 

Sub convertendnote()
Dim aendnote As endnote
For Each aendnote In ActiveDocument.Endnotes
ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
& vbTab & aendnote.Range
aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
Next aendnote
For Each aendnote In ActiveDocument.Endnotes
aendnote.Reference.Delete
Next aendnote
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = True
End With
With Selection.Find
.Text = "(a)([0-9]{1,})(a)"
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub