Word 2000 Macro for Pause

Re: Insertion of pause for entries in Microsoft Word -- jennyjac
Posted by Donald , Sat, Jun 29, 2002, 10:05:21	Reply	Top	Forum

Marianne wrote an article on pause. See link at the bottom of this page.

See also a thread on this subject thread on this subject on the IT board of MT Daily. For those who do not have access, it is reproduced below.

Copy of the article:

Michele asked how to do an entry with fill-ins (pauses) that looks as follows:

lfov Left ovary [] cm x [] cm x [] cm. With commands, we can even add the first search and position it to type the first number. Here is a one-entry glossary that shows the technique. It uses [] for the number to replace and the macro to find the first one is assigned to the key Ctrl+;

[Glossary Fill in][Phrases]
lfov {command}Left ovary [] cm x [] cm x [] cm.{Ctrl ;}
[end]

The Word macro itself in Word 2000 is as follows:

Sub FindNextPause()

   Selection.HomeKey Unit:=wdStory

   Selection.Find.ClearFormatting

   With Selection.Find

      .Text = "[]"

      .Replacement.Text = ""

      .Forward = True

      .Wrap = wdFindStop

      .Format = False

      .MatchCase = False

      .MatchWholeWord = False

      .MatchWildcards = False

      .MatchSoundsLike = False

      .MatchAllWordForms = False

   End With   Selection.Find.Execute

   If Selection.Text = "[]" Then

      Selection.MoveRight Unit:=wdCharacter, Count:=1

      Selection.TypeBackspace

      Selection.TypeBackspace

   Else

      Selection.EndKey Unit:=wdStory

   End If

End Sub

You may copy it or rerecord it. It starts with a Ctrl+Home and then searches for []. When one is found, it uses the right arrow and then backspaces twice.

Related link: Creating an entry with pauses