Microsoft KB Archive/924943

= A footnote may be preceded by the number 1 when you insert a new footnote between existing footnotes in Word 2003 and in Word 2002 =

Article ID: 924943

Article Last Modified on 9/13/2006

-

APPLIES TO


 * Microsoft Office Word 2003
 * Microsoft Word 2002 Standard Edition

-



SYMPTOMS
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.



CAUSE
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.



WORKAROUND
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:=&quot;&quot; .MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend .Delete .Footnotes.Add .Range, &quot;&quot;, st(y) End With Next y Application.ScreenUpdating = True End Sub

Keywords: kbtshoot kbexpertiseinter kbexpertisebeginner kbscript kbprb KB924943

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.