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 strBookMarkDocumentor() As String
' Procedure :   BookMarkDocumentor
' Description:  Generate a new document with a catalogue of bookmarks from the current document.
' Copyright: Chris Greaves Inc.
' Inputs:       Called by the user
' Returns:      A new document.
' Assumes:      Nothing
' Side Effects: None.
' Tested:       None.
' Tested:       By the calls shown below.
    Dim strCurrentDoc As String
    strCurrentDoc = ActiveDocument.Name
    Dim strCurrentFile As String
    strCurrentFile = ActiveDocument.FullName
    ' Build and sort an array of all bookmarks in the current document.
    Dim strArray As Variant
    strArray = varBuildBookmarkArray(strCurrentDoc)
    ' Dump each bookmark name and its text to the new document.
    strBookMarkDocumentor = strDumpBookmarkArray(strCurrentFile, strArray)
'Sub TESTstrBookMarkDocumentor()
'    MsgBox strBookMarkDocumentor
'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 strBookMarkDocumentor() As String
' Procedure :   BookMarkDocumentor
' Description:  Generate a new document with a catalogue of bookmarks from the current document.
' Copyright: Chris Greaves Inc.
' Inputs:       Called by the user
' Returns:      A new document.
' Assumes:      Nothing
' Side Effects: None.
' Tested:       None.
' Tested:       By the calls shown below.
    Dim strCurrentDoc As String
    strCurrentDoc = ActiveDocument.Name
    Dim strCurrentFile As String
    strCurrentFile = ActiveDocument.FullName
    ' Build and sort an array of all bookmarks in the current document.
    Dim strArray As Variant
    strArray = varBuildBookmarkArray(strCurrentDoc)
    ' Dump each bookmark name and its text to the new document.
    strBookMarkDocumentor = strDumpBookmarkArray(strCurrentFile, strArray)
'Sub TESTstrBookMarkDocumentor()
'    MsgBox strBookMarkDocumentor
'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