Repeat find in word

How can I make a macro start at the beginning of a doc and repeat it until the end of the word doc and not have to manually repeat the macro all the time?

I read that I should use DO UNTIL/WHILE LOOP but I have no idea how to do it, since I created the macro with the «RECORD MACRO» function of Word.

I managed to repeat a couple of times, copying and pasting the relevant parts of the code. Of course, it only repeats for as many times I pasted it.

This is what Word recorded (it works fine for 1 line, finds a tab character and moves the line 5.5 cm left).

Sub aaTabs()
'
' aaTabs Macro
'
'
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^t"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    With Selection.ParagraphFormat
        .SpaceBeforeAuto = False
        .SpaceAfterAuto = False
        .FirstLineIndent = CentimetersToPoints(-5.5)
    End With
End Sub

Answers

• Hi Brooke,

  Please follow these steps to reassign:

  1. File -> Options -> Customize Ribbon -> Customize…;

  2. At Customize Keyboard list box, under Categories, choose Commands Not in the Ribbon;

  3. Under Commands list box, select RepeatFind;

  4. In the «Press new shortcut key» inputbox, pressed F3;

  5. It’s very important to remember to verify that «Save changes in» was set to «Normal.dotm» before clicking the Assign button.

  To see what command is assigned to a particular keyboard shortcut, place the insertion point in the «Press new shortcut key» box, press the key or key combinations that you want to test, and see what is listed after «Currently assigned to.»

  ---

  Karen Hu
  TechNet Community Support

  

  • Marked as answer by

    Friday, October 4, 2013 1:38 AM

• Hi,

  check the instruction manual for your computer. I’m guessing you have a laptop or tablet/hybrid, some of these devices require you to press the «Fn» key at the same time as F1-F12, to get the alternate F1-F12 function/purpose.

  ---

  Don
  (Please take a moment to «Vote as Helpful» and/or «Mark as Answer», where applicable.
  
  This helps the community, keeps the forums tidy, and recognises useful contributions. Thanks!)

  • Marked as answer by
    Tony Chen CHN
    Monday, October 7, 2013 2:45 PM

• Did you make sure to look in the Customize Keyboard dialog box, in the «All Commands» category? At File tab | Options | Customize Ribbon, click the Customize button to open the dialog box.

  However, note that there is a built-in shortcut for the RepeatFind command: Shift+F4. You should be able to use it directly.

  ---

  Stefan Blom, Microsoft Word MVP

  • Marked as answer by
    Tony Chen CHN
    Monday, October 7, 2013 2:45 PM

Answers

• I stepped through the above loop and it did delete the text in the Documents(pp_log) document.  Where it hung up was at the line

                       Selection.MoveDown Unit:=wdLine, Count:=4, Extend:=wdExtend

  This is extending the selection down 4 lines and was the only way I knew of doing this.  The text in oWD is just lines of text with no formating so moving the cursor by characters, words or lines was the only way I knew of moving and getting the information
  I wanted.

  In the call procedure I’m using the selection to extract the information I’m looking for after a successful find.execute.  The text used for the find is common and the information I’m extracting is unique, so I’m moving the cursor a specific number
  of characters/words after the find.execute.

  Does that make any sense?

  Edit:

  The above doesn’t seem to be accurate.  I was stepping through the code again and was getting some statistics for the two documents and it seems the oWD document is causing the problem since it keeps giving me «Word is finishing analyzing your
  document» and this doesn’t stop.  I’m not sure what to do when opening the file to prevent this from happening.  I was opening it at a word document and changed it to Format:=wdOpenFormatText but that didn’t help.  I  have the following
  to «help» speed up opening the document (even though I had visible:=false when the code did run in word 2003):

              Application.Options.CheckSpellingAsYouType = False
              Application.Options.CheckGrammarAsYouType = False
              Application.ScreenUpdating = False

  Some statistics of one oWD document shows >360K words.  Opening it outside the macro isn’t a problem.

  Edit #2:

  I unchecked «Keep track of formatting» and it seems to be running!

  • Edited by

    Thursday, January 13, 2011 8:50 PM
    Solution found?

  • Marked as answer by
    Cindy Meister MVP
    Sunday, January 16, 2011 8:36 AM