#1
|
|||
|
|||
vba error (object required) for highlight vowels
Sub findfunction()
If (findHL(activedocument.Range, "[56, 47, 44, aeiou]")) = True Then MsgBox "Highlight vowels Done", vbInformation + vbOKOnly, "Vowels Highlight Result" End Sub Function findHL(r As Range, s As String) As Boolean Dim rdup As Range Set rdup = r.Duplicate rdup.Find.Wrap = wdFindStop Do While rdup.Find.Execute(findtext:=s, MatchWildcards:=True) = True If (Not rdup.InRange(r)) Then Exit Do rdup.HighlightColorIndex = wdBlue rdup.Collapse wdCollapseEnd Loop findHL = True End Function |
#2
|
||||
|
||||
You've posted in an Excel forum, but the code looks like it is for MS Word, not Excel. Please clarify.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
XML parsing & Object variable not set (Error 91) | tinfanide | Excel Programming | 0 | 12-29-2011 08:43 AM |
Application-defined or Object-defined error | Manit | Excel Programming | 4 | 12-08-2011 07:35 PM |
Problem: object library invalid or contains references to object definitions | aligahk06 | Office | 0 | 08-19-2010 12:29 PM |
Could not load this object as this object is not present in your computer | k.gaurav | Office | 0 | 08-17-2009 09:57 PM |
find - reading highlight - highlight all / highlight doesn't stick when saved | bobk544 | Word | 3 | 04-15-2009 03:31 PM |