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 lngSelectNextWord() As Long
' Procedure :   lngSelectNextWord
' Description:  Select the word to the right of the current insertion point or selection.
' Copyright: Chris Greaves Inc.
' Inputs:       None
' Returns:      LONG length of string found, including delimiter (probably space)
' Assumes:      Nothing
' Side Effects: Will move the insertion point
' Tested:       By the calls shown below.
   Selection.MoveRight Unit:=wdCharacter, Count:=1
   Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
   lngSelectNextWord = Len(Selection.Text)
'Sub TESTlngSelectNextWord()
'    MsgBox lngSelectNextWord()
'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 lngSelectNextWord() As Long
' Procedure :   lngSelectNextWord
' Description:  Select the word to the right of the current insertion point or selection.
' Copyright: Chris Greaves Inc.
' Inputs:       None
' Returns:      LONG length of string found, including delimiter (probably space)
' Assumes:      Nothing
' Side Effects: Will move the insertion point
' Tested:       By the calls shown below.
   Selection.MoveRight Unit:=wdCharacter, Count:=1
   Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
   lngSelectNextWord = Len(Selection.Text)
'Sub TESTlngSelectNextWord()
'    MsgBox lngSelectNextWord()
'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