If > 1 ThenĪctiveDocument.Styles(wdStyleEndnoteReference).Font.Hidden = TrueĪctiveDocument.Styles(wdStyleEndnoteReference).Font.Hidden = False Rng.Collapse WdCollapseDirection.wdCollapseEnd StrSavedPage = CStr(en.Reference.Information(wdActiveEndPageNumber)) If CStr(en.Reference.Information(wdActiveEndPageNumber)) strSavedPage Then ' this version also formats the endnotes under page headings
I can't re-research it right away but some possibilities might be to replace every endnote mark by a bullet (as suggested by the OP) or perhaps even something as simple as a space or a "-".įor example, something like this (which also hides the references using a different technique). However, the OP thought the approach could be modified in a useful way so I have undeleted. Unfortunately, a further look suggests that it would be difficult, if not impossible, to hide the endnote references (in the endnotes themselves) without hiding the paragraph marker at the end of the first endnote para, which means that all the endnotes will end up looking like a single messy note. rng, WdFieldType.wdFieldEmpty, "PAGEREF " & bookmarkText & en.Index & " \h", Falseįor a second run, you'd need to remove and re-insert the text and fields you had added. Rng.Collapse WdCollapseDirection.wdCollapseStart Sub modifyEndNotes()Įn. bookmarkText & en.Index An alternative might be to use PAGEREF fields and hide the endnote references, e.g.
0 kommentar(er)
