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
