Footnotes

[Mary]

How can you make footnotes stay consistent say you use *
and you want to be ** for the second footnote. I tried it
and instead of giving me **, its gives me + sign and the
second footnote. Please help.

 

[Suzanne S. Barnhill]

That is the standard sequence: asterisk, dagger, double dagger, section
sign, paragraph sign. These are used primarily for small numbers of
footnotes (usually content rather than documentation) and often restarted on
each page. For more serious documentation, you should use numbered
footnotes. You can specify a custom mark but not a custom series, so you
would have to mark each footnote separately.

 

[Dayo Mitchell]

Letting Word put in asterisk, dagger, etc, and then running Find and Replace
after the fact *might* work, switching dagger for double asterisk, etc.

 

[Suzanne S. Barnhill]

I don't think so because these are fields.

 

[Dayo Mitchell]

Right, good point. (I couldn't test it b/c it was too much trouble to
figure out how to get a dagger into my Replace box, re our other
conversation on special characters.)

By the way, to the Original Poster--to request Word offer the asterisk
sequence, send an email to (e-mail address removed), OR post a Suggestion on the
newsgroups, but ONLY if you see the Suggestions option offered (not all web
portals have it).

Last time this question came up, someone informed me privately that the
asterisk sequence was a legal requirement.

Dayo

 

[Klaus Linke]

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).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

 

[Dayo Mitchell]

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

 

[Klaus Linke]

[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]

Thanks Klaus.

[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

 

[Klaus Linke]

Thanks Klaus.

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

Klau

 

[Gezgin]

That is a really nifty macro, Klaus. Thanks for posting it. It seems to
have one problem however: I want the asterisk-format footnotes to restart
on each page, otherwise one ends up with strings of asterisks that become
too long. This macro doesn't restart the numbering on a new page even
though that option is selected in the footnote menu.

Can this be fixed?

Thanks again for your help.

Bob

 

[Klaus Linke]

[ macro to change autonumbered footnotes to footnotes *, **, ***, ****, ... and
back]

That is a really nifty macro, Klaus. Thanks for posting it. It seems to
have one problem however: I want the asterisk-format footnotes to
restart on each page, otherwise one ends up with strings of asterisks
that become too long. This macro doesn't restart the numbering on a
new page even though that option is selected in the footnote menu.

Can this be fixed?

Hi Bob,

Sure, see macro below.

You may have to fix your asterisk footnotes a lot (= run macro twice to change
to autonumbered and back).

Since an asterisk footnote like ***** takes more space than a simple footnote,
the text might reflow and even force that footnote to the top of the next page,
so the macro isn't 100% reliable.

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).Font.Name
Next i
Else
For i = ActiveDocument.Footnotes.Count To 1 Step -1
ActiveDocument.Footnotes(i).Reference.Select
Selection.start = ActiveDocument.Bookmarks("\page").start
iOld = Selection.Footnotes.Count
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