Multiple asterisk footnotes

[Opinicus]

{Using Word 2002 (XP) with SP3.}

How do you get Word to use multiple asterisks in footnotes
rather than numbers or the asterisk-dagger sequence? I found
this macro on a Word forum
(http://www.talkaboutsoftware.com/group/microsoft.public.word.formatting.longdocs)
and it's pretty good at toggling between the multiple
asterisk format and other formats but it has a problem in
that I doesn't restart the sequence on a new page even if I
select that option in the footnote menu.

Is there another or better way to get multiple-asterix
footnotes that restart on each page/section?

<quote>
Sub ToggleAsteriskFootnotes()
Dim myFootnote As Footnote
Dim boolCustom As Boolean
Dim i As Long, iOld As Long
' first footnote reference = "*" ?
boolCustom = _
(AscW(ActiveDocument.Footnotes(1).Reference.Text) = 42)
If boolCustom = True Then
For i = ActiveDocument.Footnotes.Count To 1 Step -1
Set myFootnote = ActiveDocument.Footnotes(i)
myFootnote.Range.Copy
myFootnote.Reference.Select
myFootnote.Delete
ActiveDocument.Footnotes.Add Selection.Range
Selection.Footnotes(1).Range.Paste
ActiveDocument.Footnotes(i).Reference.Font.Name = _
ActiveDocument.Styles(wdStyleFootnoteReference).Font.Name
Next i
Else
For i = ActiveDocument.Footnotes.Count To 1 Step -1
iOld = ActiveDocument.Footnotes(i).Index
Set myFootnote = ActiveDocument.Footnotes(i)
myFootnote.Range.Copy
myFootnote.Reference.Select
myFootnote.Delete
ActiveDocument.Footnotes.Add _
Range:=Selection.Range, _
Reference:=String(iOld, "*")
Selection.Footnotes(1).Range.Paste
ActiveDocument.Footnotes(i).Reference.Font.Name = _
ActiveDocument.Styles(wdStyleFootnoteReference).Font.Name
Next i
End If
End Sub
</quote>

 

[Suzanne S. Barnhill]

You would be better advised to continue in the original thread in
formatting.longdocs. You are unlikely to get the answer you want here, as
this newsgroup is now primarily populated by users with the most basic Word
questions, and many of the more knowledgeable users don't even read it
because of the high traffic.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Klaus Linke]

Right... I probably wouldn't have looked at this thread if I hadn't seen the
post in .formatting.longdocs first.

This group is really getting too much ;-)

Klaus