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!

macropod · #2 10-22-2011, 11:36 PM

Hi cksm4,

Try something along the lines of:

Code:

Sub Demo()
Dim tRng As Range
With Selection
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "TOC"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  While .Find.Execute
    With .Range
      If .Information(wdWithInTable) = True Then
        Set tRng = .Tables(1).Cell(.Cells(1).RowIndex + 1, .Cells(1).ColumnIndex).Range
        tRng.End = tRng.End - 1
        ActiveDocument.Indexes.MarkEntry Range:=tRng, EntryAutoText:=.Text, _
          CrossReference:="", CrossReferenceAutoText:="", BookmarkName:="", Bold:=False, Italic:=False
      End If
    End With
  Wend
End With
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

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