#1
|
|||
|
|||
Convert custom mark footnotes
I am editing a document in MS Word 2010 that contains over 1000 "custom mark" footnotes. I want to convert those footnotes to Word's auto footnoting. I have recorded the following macro that allows me to make the desired conversion one note at a time. I need to know how to convert the macro to run for the entire document. Any help greatly appreciated. Here is the macro I have recorded:
Sub CnvrtCstmFNs() ' ' CnvrtCstmFNs Macro ' ' Selection.Find.ClearFormatting With Selection.Find.Font .Superscript = True .Subscript = False End With With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute With Selection With .FootnoteOptions .Location = wdBottomOfPage .NumberingRule = wdRestartContinuous .StartingNumber = 1 .NumberStyle = wdNoteNumberStyleArabic End With .Footnotes.Add Range:=Selection.Range, Reference:="" End With End Sub Peter961 |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Footnotes | Apperley | Word | 2 | 08-10-2011 03:25 PM |
Keep with next and footnotes | nfactor13 | Word | 1 | 05-15-2011 02:39 PM |
Footnotes and Columns | toll_booth | Word | 0 | 06-02-2010 01:35 PM |
Problem with Footnotes | charlotte | Word | 1 | 04-07-2010 04:35 PM |
Mark citation | mavera2 | Word | 0 | 03-19-2010 05:19 AM |