Microsoft KB Archive/924943
Article ID: 924943
Article Last Modified on 9/13/2006
- Microsoft Office Word 2003
- Microsoft Word 2002 Standard Edition
When you insert a new footnote between existing footnotes, the footnote may be preceded by the number 1. And, this footnote may not use the same format as the existing footnotes.
This issue may occur if the following conditions are true:
- You used a custom mark when you inserted the existing footnotes.
- You use the number format when you insert the new footnote.
To work around this issue, modify the existing footnotes so that they use the number format. To do this, you can use the following macro code.
Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.
Sub convertFootnotes() Dim x As Integer Dim st() As String Dim y As Integer ReDim st(ActiveDocument.Footnotes.Count) For x = 1 To ActiveDocument.Footnotes.Count st(x) = ActiveDocument.Footnotes(x).Range.Text Next x Selection.HomeKey wdStory Application.ScreenUpdating = False For y = 1 To UBound(st) With Selection .GoTo what:=wdGoToFootnote, which:=wdGoToNext, Count:=1, Name:="" .MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend .Delete .Footnotes.Add .Range, "", st(y) End With Next y Application.ScreenUpdating = True End Sub
Keywords: kbtshoot kbexpertiseinter kbexpertisebeginner kbscript kbprb KB924943