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 BookMarkSnagger(tbl As Table)
' Procedure :   BookMarkSnagger
' Description:  Generate a bookmark (from BOLDed text) for the current table.
' Copyright: Chris Greaves Inc.
' Inputs:       Called by the user
' Returns:      None.
' Assumes:      The table is preceded by a short item in BOLDed text.
' Side Effects: None.
' Tested:       By the calls shown below.
    Dim strMyName As String
    tbl.Select
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    strMyName = strFindBoldUpward
    If strMyName <> "" Then
        Selection.GoTo what:=wdGoToTable, Which:=wdGoToNext, Count:=1, Name:=""
        Selection.SelectRow
        With ActiveDocument.Bookmarks
            .Add Range:=Selection.Range, Name:=strMyName
            .DefaultSorting = wdSortByName
            .ShowHidden = False
        End With
    Else
    End If
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 BookMarkSnagger(tbl As Table)
' Procedure :   BookMarkSnagger
' Description:  Generate a bookmark (from BOLDed text) for the current table.
' Copyright: Chris Greaves Inc.
' Inputs:       Called by the user
' Returns:      None.
' Assumes:      The table is preceded by a short item in BOLDed text.
' Side Effects: None.
' Tested:       By the calls shown below.
    Dim strMyName As String
    tbl.Select
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    strMyName = strFindBoldUpward
    If strMyName <> "" Then
        Selection.GoTo what:=wdGoToTable, Which:=wdGoToNext, Count:=1, Name:=""
        Selection.SelectRow
        With ActiveDocument.Bookmarks
            .Add Range:=Selection.Range, Name:=strMyName
            .DefaultSorting = wdSortByName
            .ShowHidden = False
        End With
    Else
    End If
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