none
How to use asterisk indicator in footnote RRS feed

  • Question

  • Hello All,

    I want to use asterisk indicator instead of Arabic numbers in footnotes, so I changed the footnote number format to the symbol format indicator *,  but the asterisk does not increment so that the first footnote would be displayed as * blah blah, second footnote would be ** blah blah, and third footnote would be *** blah blah. How can I use only the asterisk symbol indicator and also let it increment for each footnote?  I am seeking your assistance with this.  Here is a sample of what I am trying to achieve. Thanks for your help.

    ________________________
        *   Term of office expires on 18 June 2007.
        **  Term of office expires on 18 June 2008.
        *** Term of office expires on 18 June 2009.

    Wednesday, November 26, 2014 6:47 AM

Answers

  • You could do the renumbering with a macro like:

    Sub ConvertFootnotes()
    Dim i As Long, StrTxt As String
    With ActiveDocument
      For i = 1 To .Footnotes.Count
        StrTxt = StrTxt & "*"
        .Footnotes.Add Range:=.Footnotes(i).Reference, Reference:=StrTxt
      Next
    End With
    End Sub


    Cheers
    Paul Edstein
    [MS MVP - Word]

    • Proposed as answer by macropodMVP Thursday, December 4, 2014 3:57 AM
    • Marked as answer by Fox245 Thursday, December 4, 2014 5:13 AM
    Wednesday, November 26, 2014 9:35 AM

All replies

  • That is not how the symbol system works. It starts with *, then progresses to †, and so on.

    Cross-posted at: https://social.technet.microsoft.com/Forums/office/en-US/c482746f-1e7d-4101-b6df-593e8d589437/how-to-use-asterisk-indicator-in-footnote?forum=word
    For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184


    Cheers
    Paul Edstein
    [MS MVP - Word]


    • Edited by macropodMVP Thursday, November 27, 2014 9:31 PM
    Wednesday, November 26, 2014 6:56 AM
  • Yes, that is the problem...the way it works is not flexible enough to do what we normally could do in WordPerfect.  In WordPerfect, the users were able to do these things with footnotes.  We see the way Word works, but that does not help us. We would like it to work for the users, so they don't feel like we moved from better to lesser.
    Wednesday, November 26, 2014 7:10 AM
  • If you really want multiple asterisks, you could tell Word to use a custom footnote mark, manually adding additional asterisks for each increment.

    Cheers
    Paul Edstein
    [MS MVP - Word]

    Wednesday, November 26, 2014 7:17 AM
  • Yes, I am afraid that's what we might have to tell the users do. Somebody mentioned that a VB expert could probable do a macro that the users run and convert the Arabic footnotes to asterisk, but I haven't find or determined that.
    Wednesday, November 26, 2014 7:29 AM
  • You could do the renumbering with a macro like:

    Sub ConvertFootnotes()
    Dim i As Long, StrTxt As String
    With ActiveDocument
      For i = 1 To .Footnotes.Count
        StrTxt = StrTxt & "*"
        .Footnotes.Add Range:=.Footnotes(i).Reference, Reference:=StrTxt
      Next
    End With
    End Sub


    Cheers
    Paul Edstein
    [MS MVP - Word]

    • Proposed as answer by macropodMVP Thursday, December 4, 2014 3:57 AM
    • Marked as answer by Fox245 Thursday, December 4, 2014 5:13 AM
    Wednesday, November 26, 2014 9:35 AM
  • Paul,

    Thank you very much for this vb code.  It works. Awesome!

    Thursday, December 4, 2014 5:13 AM
  • Hi Paul,

    How do I modify you script so that it only change the footnotes in first section of the document? In case, it helps the document also has the "Different first page" option on since we want no page number on the first page.

    Thanks

    Monday, March 30, 2015 4:08 AM
  • Hi Fox245,

    I've been away for 3 1/2 months, hence the delay in replying.

    You could change:
    With ActiveDocument

    to:
    With ActiveDocument.Sections(1).Range


    Cheers
    Paul Edstein
    [MS MVP - Word]

    Friday, June 5, 2015 11:41 AM
  • Thanks for responding. I hope you enjoyed your 3 1/2 months away. I did figure out my request using ActiveDocument.Sections(1).
    Monday, June 8, 2015 9:33 PM