create footnotes from custom text

macropod · #1 06-14-2012, 06:42 AM

Hi Eric,

You could use a macro like:

Code:

Sub Demo()
Dim StrTxt As String
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "\(*\)"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = True
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute
  End With
  Do While .Find.Found
    StrTxt = Mid(.Duplicate.Text, 2, Len(.Duplicate.Text) - 2)
    .Text = vbNullString
    .Footnotes.Add Range:=.Duplicate, Text:=StrTxt
    .Find.Execute
  Loop
End With
End Sub

As for vba coding resources, there are many web sites with tutorials, and you might one or two of them worth doing. Most are probably for Excel, though.

For a book, you might try something like 'The Secret Life of Word: A Professional Writer's Guide to Microsoft Word Automation' by R Delwood. This isn't a programming book, per se, and doesn't profess to teach you how to program. Rather, it shows how to combine Word's various tools (including vba) to achieve whatever the desried result might be. The only reason I can suggest this book is that I did much of the technical review; I'm sure there are plenty of others out there. Another that I contributed to is 'Word Hacks', by A Savikas, but that one pre-dates Office 2007.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Convert custom mark footnotes	peter961	Word VBA	9	09-04-2017 02:49 PM
need to create a custom field on each page	Gurujot	Word	13	09-20-2012 05:20 PM
Convert custom mark footnotes	peter961	Word	0	01-30-2012 06:40 AM
Create Custom menu using a macro	twnty2	PowerPoint	0	06-29-2011 04:26 PM
Create Custom Word Template	emilyrogers	Word	0	02-16-2011 05:46 AM