Find End Of Document using Word VBA
Most often when we loop through the document, we need to know the End of Word Document. We can achieve that by using Bookmarks
Sub Drive_IS_EOD()
If IS_EOD(Selection.Range) = True Then
MsgBox "End of Document"
Else
MsgBox "Miles to Go:)"
End If
End Sub
The function below uses the Exists method to check if the bookmark exist in the specified range
Function IS_EOD(ByRef MRange As Range) As Boolean
If MRange.Bookmarks.Exists("\EndOfDoc") = True Then
IS_EOD = True
End If
End Function
\EndOfDoc is a predefined bookmark, which is used here
Monday, March 31, 2008
Download Windows Live Toolbar and personalize your Web experience! Add custom buttons to get the information you care about most.
No comments:
Post a Comment