Footnotes

Until MS makes that numbering style an option, you could use the macro
below to toggle between regular footnotes and the asterisk footnote style.

If you use the macro, you can't have mixed footnote references (some
AutoNumbered, others custom numbered).
On the other hand, it will fix messed up footnotes if you don't *want*
mixed numbering styles.

Regards,
Klaus


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

Hey Klaus,

Does this need to be done at the end of writing? What happens if one runs
it, then later goes back and enters more notes?

Dayo

On 9/28/04 10:09 AM, "Klaus Linke" wrote:

Until MS makes that numbering style an option, you could use the macro
below to toggle between regular footnotes and the asterisk footnote style.

If you use the macro, you can't have mixed footnote references (some
AutoNumbered, others custom numbered).
On the other hand, it will fix messed up footnotes if you don't *want*
mixed numbering styles.

Regards,
Klaus


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

[re macro to toggle footnote style to multiple asterisks]

Hi Dayo,

Does this need to be done at the end of writing?

Yes, and the macro should change all footnotes to some style (auto-numbered
or multiple asterisks) depending on the first footnote in the text.

What happens if one runs it, then later goes back and
enters more notes?

If you have footnotes of both types (auto-numbered and custom asterisk),
you may have to run it twice to clean up and get the desired style.

Regards,
Klaus

Thanks Klaus.

On 10/4/04 10:44 PM, "Klaus Linke" wrote:

[re macro to toggle footnote style to multiple asterisks]

Hi Dayo,

Does this need to be done at the end of writing?

Yes, and the macro should change all footnotes to some style (auto-numbered
or multiple asterisks) depending on the first footnote in the text.

What happens if one runs it, then later goes back and
enters more notes?

If you have footnotes of both types (auto-numbered and custom asterisk),
you may have to run it twice to clean up and get the desired style.

Regards,
Klaus

Daiya Mitchell wrote:
Thanks Klaus.

You're welcome... and I do like your new tail: sure looks sexy grin

Klau