Hi Nancy,

You can replace any amount of white space in one replacement:
Find what: ^w
Replace with: ^t
(you can find both white space and the tab under "Special" in the dialog, so
you don't have to remember)

But maybe it would be simpler to use the "table drawing" tool (the first
button on the "Tables and Borders" toolbar).
I've described how you can use it here:
http://www.wopr.com/cgi-bin/w3t/showthreaded.pl?Board=wrd&Number=176778
It'll remove the spaces for you, and could keep everything properly aligned.
A table is better than using tabs in the long run anyway...

Regards,
Klaus

Hi Nancy,

you could replace two or more spaces with tabs, like this:

Sub Test4001()
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
With rDcm.Find
  .Text = "[ ]{2,}"  ' English and some other languages
' .Text = "[ ]{2;}"  ' German and some other languages
  .Replacement.Text = "^9"
  .MatchWildcards = True
  .Execute Replace:=wdReplaceAll
End With
End Sub

However, ask again, if you need to exclude two spaces
after a period ".  " or after other punctuation marks
as this is common in US-English at least, afaik.

You may use selection instead of the document's range,
if you want to restrict the action to a part of the doc.

Here is the macro I finally came up with:

Sub SpacesToTabs()
    Dim strText(40) As String, intCount As Integer
    Dim intMaxSpaces As Integer, intLowSpaces As Integer

    intMaxSpaces = InputBox("How many spaces do you want to start with?")
    intLowSpaces = InputBox("What is the low number of spaces to go down
to?")

    For intCount = 1 To intMaxSpaces
        strText(intCount) = strText(intCount - 1) & Chr(32)
    Next intCount

    For intCount = intMaxSpaces To intLowSpaces Step -1
         Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
             .Text = strText(intCount)
             .Replacement.Text = "^t"
             .Forward = True
             .Wrap = wdFindStop
         End With
         Selection.Find.Execute Replace:=wdReplaceAll
    Next intCount
End Sub

Thanks for everyone's suggestions. I guess I just had to walk away from the
problem for a while. This works perfectly.

Nancy