Hallo Erich,

ich würde da anders rangehen. Word bietet die sowohl eine Auflistung aller Absätze, als auch aller Wörter. Wenn ich dich richtig verstehe willst, du nur das Leerzeichen nach dem ersten Wort eines jeden Absatzes durch ein Tabulator-Zeichen ersetzen. Versuchs mal damit:

  Dim p As Paragraph
  
  For Each p In ActiveDocument.Paragraphs
    p.Range.Words(1).Text = Trim(p.Range.Words(1).Text) & vbTab
  Next p

Gruß Mr. K.