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!

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function varBuildBookmarkArray(strDoc As String) As Variant
' Procedure :   strBuildBookmarkArray
' Description:  Generate an array of bookmarks from the current document.
' Copyright: Chris Greaves Inc.
' Inputs:       Called by the user
' Returns:      A variant array of strings.
' Assumes:      Nothing
' Side Effects: None.
' Tested:       By the calls shown below.
    Dim strAr() As String
    If Documents(strDoc).Bookmarks.Count >= 1 Then
        ReDim strAr(Documents(strDoc).Bookmarks.Count - 1)
        Dim aBookmark As Bookmark
        Dim i As Integer
        i = 0
        For Each aBookmark In Documents(strDoc).Bookmarks
            strAr(i) = aBookmark.Name
            i = i + 1
        Next aBookmark
    End If
    varBuildBookmarkArray = strAr
'Sub TESTstrBuildBookmarkArray()
'    MsgBox UBound(varBuildBookmarkArray(ActiveDocument.Name))
'End Sub
End Function

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

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!

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function varBuildBookmarkArray(strDoc As String) As Variant
' Procedure :   strBuildBookmarkArray
' Description:  Generate an array of bookmarks from the current document.
' Copyright: Chris Greaves Inc.
' Inputs:       Called by the user
' Returns:      A variant array of strings.
' Assumes:      Nothing
' Side Effects: None.
' Tested:       By the calls shown below.
    Dim strAr() As String
    If Documents(strDoc).Bookmarks.Count >= 1 Then
        ReDim strAr(Documents(strDoc).Bookmarks.Count - 1)
        Dim aBookmark As Bookmark
        Dim i As Integer
        i = 0
        For Each aBookmark In Documents(strDoc).Bookmarks
            strAr(i) = aBookmark.Name
            i = i + 1
        Next aBookmark
    End If
    varBuildBookmarkArray = strAr
'Sub TESTstrBuildBookmarkArray()
'    MsgBox UBound(varBuildBookmarkArray(ActiveDocument.Name))
'End Sub
End Function

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