Visual Basic (VB and VBA)
Copyright 1999-2001 Christopher Greaves. All rights reserved.
Home Page and email to [email protected]
If in doubt, record a macro and inspect the entrails!

 

 

Please read the DISCLAIMER.

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.



Public Sub udfVisitBookmarks()
' Procedure :   VisitBookmarks
' Description:  Visit each bookmark in the active document until the user decides to stop.
' Copyright: Chris Greaves Inc.
' Inputs:       None
' Returns:      Nothing
' Assumes:      Nothing
' Side Effects: The selection may change.
' Tested:       By a call from the user
    Dim bkmk As Bookmark
    For Each bkmk In ActiveDocument.Bookmarks
        Dim intMsg  As Integer
        bkmk.Select
        intMsg = MsgBox(bkmk.Name, vbRetryCancel, str(Len(bkmk.Range.Text)) & " characters")
        If intMsg = vbAbort Then
            Exit For
        Else
        End If
    Next bkmk
End Sub

We all knew nothing when we started …
Home Page and Contact Information
Send email to [email protected].
This page was last updated Thursday, November 15, 2001

 

 

Hosted by www.Geocities.ws

1

Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved.
Home Page and email to [email protected]
If in doubt, record a macro and inspect the entrails!

 

 

Please read the DISCLAIMER.

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Sub udfVisitBookmarks()
' Procedure :   VisitBookmarks
' Description:  Visit each bookmark in the active document until the user decides to stop.
' Copyright: Chris Greaves Inc.
' Inputs:       None
' Returns:      Nothing
' Assumes:      Nothing
' Side Effects: The selection may change.
' Tested:       By a call from the user
    Dim bkmk As Bookmark
    For Each bkmk In ActiveDocument.Bookmarks
        Dim intMsg  As Integer
        bkmk.Select
        intMsg = MsgBox(bkmk.Name, vbRetryCancel, str(Len(bkmk.Range.Text)) & " characters")
        If intMsg = vbAbort Then
            Exit For
        Else
        End If
    Next bkmk
End Sub

We all knew nothing when we started …
Home Page and Contact Information
Send email to [email protected].
This page was last updated Thursday, November 15, 2001

 

 

Hosted by www.Geocities.ws

1