Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.GoTo What:=wdGoToBookmark, Name:='temp' Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:='1'

Add Range:=Selection.Range, Name:='temp'Ī Range:=Selection.Range, Reference:='' Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.GoTo What:=wdGoToField, Which:=wdGoToNext, Count:=1, Name:= _ Set myRange = ActiveDocument.Sections(i).Range in cases of citations directly following quotations), but overall, it does SAVE A LOT OF TIME.įor i = 1 To It's not perfect, so do check the results and make the necessary touch-ups (i.e. Please note that this Macro was originally written by Shyam Ranganathan, though I've improved it a bit. Actually there is a way to convert In-Text citations to endnotes/footnotes, by employing the following Word Macro.