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


Edit | Reply | Where? | | Original Message | Top | Current page |