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 Function strFindBoldUpward()
' Procedure :   strFindBoldUpward
' Description:  Return some bolded text.
' Copyright: Chris Greaves Inc.
' Inputs:       Called by the user
' Returns:      String; empty string if no text found.
' Assumes:      None.
' Side Effects: None.
' Tested:       By the calls shown below.
    Selection.Find.ClearFormatting
    Selection.Find.Font.Bold = True
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = False
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    If Selection.Find.Execute Then
        Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        strFindBoldUpward = strOnly(Selection.Text, strcAlphaDigits)
    Else
        strFindBoldUpward = ""
    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

 

 

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 Function strFindBoldUpward()
' Procedure :   strFindBoldUpward
' Description:  Return some bolded text.
' Copyright: Chris Greaves Inc.
' Inputs:       Called by the user
' Returns:      String; empty string if no text found.
' Assumes:      None.
' Side Effects: None.
' Tested:       By the calls shown below.
    Selection.Find.ClearFormatting
    Selection.Find.Font.Bold = True
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = False
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    If Selection.Find.Execute Then
        Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        strFindBoldUpward = strOnly(Selection.Text, strcAlphaDigits)
    Else
        strFindBoldUpward = ""
    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

 

 

Hosted by www.Geocities.ws

1