Microsoft Office Forums - View Single Post - [Solved] Macro to convert text to endnote?

franklekens · 11-20-2012, 06:30 AM

Thanks a lot. That was very sloppy of me.

In the meantime, I *have* got the original macro working, even with my EINDNOOT text in between the brackets. As far as I'm aware it worked fine in this form:

Code:

Sub MakeEndNotes()
Dim RngSel As Range, RngFnd As Range, StrNote As String
Application.ScreenUpdating = False
With Selection
  Set RngSel = .Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .MatchWildcards = True
    .Wrap = wdFindContinue
    .Forward = True
    .Text = "\[EINDNOOT ([0-9]{1;3})\]"
    Do While .Execute = True
      Set RngFnd = ActiveDocument.Range(Start:=Selection.Start, End:=Selection.End)
      StrNote = Mid(RngFnd.Text, 2, Len(RngFnd.Text) - 2)
      ActiveDocument.Endnotes.Add RngFnd, , StrNote
      RngFnd.Text = vbNullString
    Loop
  End With
End With
RngSel.Select
Set RngFnd = Nothing: Set RngSel = Nothing
Application.ScreenUpdating = True
End Sub

I'm still not sure what all of the items refer to, my knowledge of the macro language doesn't go that far. Which makes the macro you refer to even more daunting for me. :-)

And since that also stalls on my Word, for the moment I'll stick to this one. (And try to be a little cleverer in how I add endnote indications in my text, so they're easier to search & replace or convert into real endnotes and back.)
Thanks anyway. Great that this thread is here for reference' sake.