Find and Execute

cksm4 · #1 10-14-2011, 11:14 AM

Hello,

I am trying to find text in a table and then execute a command which involves focusing on a new selection/range. I know the change is my issue but I do not know how to overcome it. Any ideas??

Code:

 
With ActiveDocument
Selection.Find.ClearFormatting
With Selection.Find
   .Text = "TOC"
   .Replacement.Text = ""
   .Forward = True
   .Wrap = wdFindContinue
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
End With
While .Execute
    .MoveDown Unit:=wdLine, Count:=1
    .SelectCell
    ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, _
        EntryAutoText:=SelectedText, CrossReference:="", CrossReferenceAutoText:="", _
        BookmarkName:="", Bold:=False, Italic:=False
Wend
End With

Thanks!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Is there a way to use "find/replace" to find italics words?	slayda	Word	3	09-14-2011 02:16 PM
VBA find or name a Table	smed	Word VBA	1	01-17-2011 02:18 PM
can Find/Replace NOT find something?	Bobosmite	Word	6	05-27-2010 08:09 PM
Find /Replace Help	ilcaa	Word	2	11-02-2009 08:41 AM
How do I call/execute an Excel macro from Access 2003	KramerJ	Excel	2	05-11-2009 11:33 AM