{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/gro...tting.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).Fo nt.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).Fo nt.Name
Next i
End If
End Sub
/quote
--
Bob
Kanyak's Doghouse
http://www.kanyak.com

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
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"Opinicus" wrote in message
...
{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/gro...formatting.lon
gdocs)
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).Fo nt.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).Fo nt.Name
Next i
End If
End Sub
/quote
--
Bob
Kanyak's Doghouse
http://www.kanyak.com

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


"Suzanne S. Barnhill" wrote:
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
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"Opinicus" wrote in message
...
{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/gro...formatting.lon
gdocs)
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).Fo nt.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).Fo nt.Name
Next i
End If
End Sub
/quote
--
Bob
Kanyak's Doghouse
http://www.kanyak.com