Word 2007 > Insert Footnote > Number Format - to add new auto numb

[JD]

Hello,

Is there any way (by VSTO or otherwise) to program the template to add new
footnote auto number?

currently, Word does support the blow auto number formats.

1,2,3,...
a,b,c...
A,B,C..
i,ii,iii..
I,II,III..
*,+,...

but i need to add new auto number format
e.g. *, **, ***,...

Note: there is "Custom Marks" option, but is not auto number... and it will
not change the sequence automatically if we add/delete the footnotes...

i try to add new auto number format *, **, ***,...

Help is much appreciated. Thank you very much in advance.

Regards
Din

 

[Doug Robbins - Word MVP]

I think that is going to be very difficult (if not impossible) to do with
footnotes. It could however be done with Endnotes (though they would no
longer be "dynamic" as they would be converted to ordinary text in the
process.

Running a macro containing the following code will "move" the footnotes to
the end of the document and number them and their references in the text
with "numbers" of the format *,**,***, etc.

Dim fn As Footnote
Dim flag As Boolean
Dim i As Double, j As Double
Dim fnref As Range
flag = False
j = 1
For Each fn In ActiveDocument.Footnotes
If flag = False Then
flag = True
ActiveDocument.Range.InsertAfter "*" & vbTab & fn.Range.Text
fn.Reference.Text = "*"
Else
ActiveDocument.Range.InsertAfter vbCr & "*"
For i = 2 To j
ActiveDocument.Range.InsertAfter "*"
Next i
ActiveDocument.Range.InsertAfter vbTab & fn.Range.Text
Set fnref = fn.Reference
fnref.Text = "*"
For i = 2 To j
fnref.Text = fnref.Text & "*"
Next i
End If
j = j + 1
Next fn

Best to run it on a copy of your document in case you need to make changes
to the footnotes, which you could do in the original and then make another
copy and run it again.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com