|
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 boolFindNextOccurrence(strFind As String) As Boolean
' Procedure : boolFindNextOccurrence
' Description: Find the next Occurrence of the string from the current insertion point.
' Copyright: Chris Greaves Inc.
' Inputs: Search string
' Returns: TRUE if found
' Assumes: Nothing
' Side Effects: May move the insertion point
' Tested: By the calls shown below.
Selection.Find.ClearFormatting
With Selection.Find
.Text = strFind
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
boolFindNextOccurrence = Selection.Find.Execute
'Sub TESTboolFindNextOccurrence()
' MsgBox boolFindNextOccurrence("hh")
' Selection.MoveRight Unit:=wdCharacter, Count:=1
' MsgBox boolFindNextOccurrence("hh")
'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 |