Список - в таблицу

Sub ConvToTable()
  Dim oRng As Range
  Const B As String = "@#$%"
  
  Set oRng = Selection.Range
  
  'Пробел после цифры заменяется на кодовую последовательность и точку
  With Selection.Find
    .Text = "([0-9]) "
    .MatchWildcards = True
    .Replacement.Text = "\1" & B & "."
    .Execute Replace:=wdReplaceAll
  End With
  
  'Точка с пробелом заменяется на точку
  With oRng.Find
    .Text = ".^w"
    .Replacement.Text = "."
    .Execute Replace:=wdReplaceAll
  End With
  
  'Кодовая последовательность заменяется на абзац
  With oRng.Find
    .Text = B
    .Replacement.Text = "^p"
    .MatchWildcards = False
    .Execute Replace:=wdReplaceAll
  End With
  'Преобразование в таблицу
  
  oRng.ConvertToTable ".", NumColumns:=2, InitialColumnWidth:="30"
End Sub