If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
|
Thread Tools | Display Modes |
#11
|
|||
|
|||
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 |
#12
|
|||
|
|||
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 |
#13
|
|||
|
|||
[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 |
#14
|
|||
|
|||
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 |
#15
|
|||
|
|||
Daiya Mitchell wrote:
Thanks Klaus. You're welcome... and I do like your new tail: sure looks sexy grin Klau |
|
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Interline BETWEEN footnotes different from interline within footnotes | T.S. | Formatting Long Documents | 5 | September 12th, 2004 08:51 PM |
how do i get Word footnotes to stay on the page they are cited... | jupiter3296 | General Discussion | 2 | August 11th, 2004 10:26 PM |
Footnotes and linespacing | Lukas Pietsch | Formatting Long Documents | 3 | August 11th, 2004 03:40 PM |
Word 2000 footnote problem: footnotes consistently too high (again) | Lori | Formatting Long Documents | 2 | May 1st, 2004 07:15 PM |