As I mentioned in the previous article, to make vba code work with endnote or footnote we need to switch the view to endnote or footnote view. In this article I show the code for switching view of word document.
How to switch the view to endnote view
First I use the function EndnotesExist to check whether there is endnote exists in the word document and then use ActiveWindow.ActivePane.View.Type to switch the view
≫ Detect Endnote
FunctionEndnotesExist() As Boolean
DimStoryRange As Range
ForEach StoryRange In ActiveDocument.StoryRanges
IfStoryRange.StoryType = wdEndnotesStory Then
EndnotesExist = True
ExitFor
End If
Next StoryRange
EndFunction
≫ Full code
PublicSub ChangeFormatInEndnote()
IfEndnotesExist = TrueThen
' switch body to endnotes
IfActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
wdPrintPreview Then
ActiveWindow.View.SeekView = wdSeekEndnotes
Else
ActiveWindow.View.SplitSpecial = wdPaneEndnotes
End If
' Macro in endnote
Selection.WholeStory
'Put your Change Function Here
IfActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
wdPrintPreview Then
ActiveWindow.View.SeekView = wdSeekMainDocument
Else
ActiveWindow.Panes(2).Close
End If
End If
Selection.WholeStory
'Put your Function Here
EndSub
0 comments :
Post a Comment