I have a list of a few thousand vocabulary words in a Word Document
that I would like to import into a flash card program.  I have to set
certain parameters to insert the list of words and translations easily
into the two column (two-side) form.  I have a list of words and their
translations, side-by-side, with the only difference being that one
lanuage is underlined.  I want to write a Word Macro that will allow
me to add a TAB SPACE before (or after) each Underlined word, thereby
delineating the difference between each (underlined)English word and
the other word(s) (not underlined), allowing me to properly import the
file according to the parse form.  Since I don't have the time nor the
inclination to learn Visual Basic, could someone help me out with
this?  I use OS X.

This version adds a tab before each underlined word or phrase. I've
assumed you're using single underlining; if you use a different
underlining style, change the line that reads ".Font.Underline =
wdUnderlineSingle". (Possibilities are: wdUnderlineDashHeavy,
wdUnderlineDashLongHeavy, wdUnderlineDotDashHeavy,
wdUnderlineDotDotDashHeavy, wdUnderlineDottedHeavy, wdUnderlineThick,
wdUnderlineWavyDouble, wdUnderlineWords, wdUnderlineDash,
wdUnderlineDashLong, wdUnderlineDotDash, wdUnderlineDotDotDash,
wdUnderlineDotted, wdUnderlineDouble, wdUnderlineSingle,
wdUnderlineWavy, wdUnderlineWavyHeavy. I trust you can identify which
one is yours!)

Sub TabBeforeUnderlines()
Dim Doc As Document, CurRange As Range, CurFind As Find

Set Doc = ActiveDocument
Set CurRange = Doc.Range

With CurRange.Find
    .ClearFormatting
    .Text = ""
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .Font.Underline = wdUnderlineSingle
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute
End With

Do While CurRange.Find.Found = True
    CurRange.InsertBefore vbTab
    CurRange.Collapse wdCollapseEnd
    CurRange.End = Doc.Range.End
    CurRange.Find.Execute
Loop

End Sub

Thanks a lot for the help.  What you wrote is very close, but not
quite functioning properly.  The macro keeps cycling on the same line,
putting an infinite number of tab spaces before the first underlined
phrase without moving on to the next line.

If I can't import the text file using the tab format, another way to
import the text file would be in the form of:

Front side of card 1.
Back side of card 1.

Front side of card 2.
Back side of card 2.

Front side of card 3.
Back side of card 3.

with line breaks meaning other card side and blank line breaks
signifying new card.  I am not sure if that would be any easier or
not. (probably not)