Handle Error When No Footnote

[seamoon]

I have a script that do various fixes including converting footnotes to endnotes, the script works fine when document has a footnote but if document has no footnote then I get script error it highlights the string "ActiveWindow.View.SeekView = wdSeekFootnotes"
I guess the script needs additional If section when there's no footnotes Then skip and continue to rest of the script. How can I do this?






...
ActiveWindow.ActivePane.DisplayRulers = Not ActiveWindow.ActivePane. _
DisplayRulers
Selection.WholeStory
Selection.Font.Bold = wdToggle
Selection.Font.Bold = wdToggle
Options.DefaultHighlightColorIndex = wdNoHighlight
Selection.Range.HighlightColorIndex = wdNoHighlight
Selection.Font.Color = wdColorAutomatic
Selection.ClearFormatting
Selection.ClearFormatting
Selection.Font.Size = 12
Selection.Font.Name = "Tahoma"
ActiveWindow.View.Type = wdWebView


End With


If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
wdPrintPreview Then
ActiveWindow.View.SeekView = wdSeekFootnotes
Else
ActiveWindow.View.SplitSpecial = wdPaneFootnotes
End If
Selection.WholeStory
If Selection.StoryType = wdFootnotesStory Then
Selection.Footnotes.Convert
Else
Selection.Endnotes.Convert
End If
Selection.WholeStory
Selection.Font.Name = "Tahoma"
Selection.Font.Size = 12
Selection.Font.Bold = wdToggle
Selection.Font.Bold = wdToggle
Selection.Font.Italic = wdToggle
Selection.Font.Italic = wdToggle
With Selection.ParagraphFormat
.RightIndent = InchesToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceAtLeast
.LineSpacing = 2
.Alignment = wdAlignParagraphLeft
.WidowControl = False
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitRightIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0

End With

[SamT]

SeaMoon,

Welcome to VBA Express. I changed your thread title to, IMO, a better description of the issue to possibly attract more help.

[fumei]

1. You do NOT need to be in the View of footnotes (ActiveWindow.View.SeekView = wdSeekFootnotes) to action footnotes.

2. You can test if there are any footnotes by testing the Count of them


If ActiveDocument.Footnotes.Count > 0 Then

If there are any footnotes this returns a True, if there are none it returns a False.

[seamoon]

It worked fine. Thank you very much for your help.