Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Word / Numbering / February 2004

Tip: Looking for answers? Try searching our database.

Custom number format for footnotes

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Masanao Baba - 05 Feb 2004 09:18 GMT
any way I can set custom number format for footnotes to
something like "[a], [b], [c] ..."?
any help would be appreciated.

-masanao
Suzanne S. Barnhill - 05 Feb 2004 14:07 GMT
You can't. You can modify the font of the Footnote Reference style, but
there is no way (through the UI) to format the numbering (that is, you can
select a, b, c, but you can't add the brackets). A macro can be used to do
this after the fact, or you can modify the numbers manually.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Signature

Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://www.word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.


> any way I can set custom number format for footnotes to
> something like "[a], [b], [c] ..."?
> any help would be appreciated.
>
> -masanao
Jean-Guy Marcil - 05 Feb 2004 16:21 GMT
Hi Masanao,

As Suzanne said, it is not normally possible, unless you manually tamper
with the result. But, with code you can intercept the "Insert footnote"
function.
This code does it all, the Footnote dialog will not show up but everything
will be there ([ (a) in the document and at the bottom ]. So be careful and
make sure that this is what you want to do.
If you want all documents based on a template to behave that way, put the
code in the template, if you want just a particular document to have this
behaviour, put the code only in that document.

See
http://word.mvps.org/faqs/macrosvba/CreateAMacro.htm
for help on installing macros.
Note that this macro MUST be called "InsertFootnote" or it will not work

Try this code:

'_______________________________________
Sub InsertFootnote()

Dim LocCursor As Range

Set LocCursor = Selection.Range

With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _
   ActiveDocument.Content.End)
   With .FootnoteOptions
       .Location = wdBottomOfPage
       .NumberingRule = wdRestartContinuous
       .StartingNumber = 1
       .NumberStyle = wdNoteNumberStyleLowercaseLetter
   End With
   .Footnotes.Add Range:=Selection.Range, Reference:=""
End With

'Dialogs(wdDialogInsertFootnote).Show

Selection.HomeKey wdLine
Selection.Font.Superscript = True
Selection.TypeText "("
Selection.MoveRight wdCharacter, 1
Selection.TypeText ")"
Selection.EndKey wdLine

LocCursor.InsertBefore "("
LocCursor.SetRange LocCursor.Start, LocCursor.End + 1
LocCursor.InsertAfter ")"
LocCursor.Font.Superscript = True
LocCursor.SetRange LocCursor.End, LocCursor.End
LocCursor.InsertAfter " "
LocCursor.Font.Superscript = False

End Sub
'_______________________________________

--
Cheers!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcil@sympatico.ca
Word MVP site: http://www.word.mvps.org

> any way I can set custom number format for footnotes to
> something like "[a], [b], [c] ..."?
> any help would be appreciated.
>
> -masanao
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.