Registrations are now open. Join us today!
There is still a lot of work to do on the wiki yet! More information about editing can be found here.
Already have an account?

Microsoft KB Archive/924943

From BetaArchive Wiki
Knowledge Base


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:=""
        .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