Замена отступа в таблице на знак пробела.

Да я знаю что выравнивание пробелами признак ..... .
Но заказчик сказал что его система не воспринимает отступы, поэтому нужно ставить пробелы соответственно отступам, тогда получится похоже на оригинал. Вот так. Теперь сижу ломаю голову как заманить отступы соответственным количеством пробелов. Ну а в ручную менять это просто повесится проще.

Убрать отступы одним разом оно конечно можно но проблема в том что в каждой ячейке отступ свой, и нужно менять соответствующий отступ на соответствующее количество пробелов.   Так вот не могу сообразить как указать макросу что отступ 1,35 меняется предположим на 8 пробелов, а в следующей ячейке отступ 0,76 меняется предположим на 3 пробела. И делается это в каждой таблице.

To: viter.alex

Так как кегль 9 то ширина пробела соответственно 3,38. (если я правильно понял первоисточники) другой кегль в таблице не используется.
Ваш код работает но не совсем так как нужно . Меняет отступ на пробелы только в первой ячейке (вроде не совсем правильно вычисляя их количество), а дальше перебора всех ячеек столбца не происходит.
Как думаете а если пойти по такой схеме: 1. Выделение первой ячейки первого столбца (обработать нужно только первый столбец) 2. Разделить величину отступа на ширину пробела (3,38 или 3,14 это не принципиально). 3. Убрать отступ. 4. Перед текстом вставить полученное при делении число пробелов. 5. Цикл повторить до окончания таблицы.
Я только пытаюсь постичь написание макросов поэтому возможно что то говорю не то .
И еще вопрос макрос для Word 2007 будет работать в Word 97 или нет? А то может Ваш код работает отлично, это просто у меня Word  старый .
Вечером попробую разобраться в Вашем коде, если получится

На чём основано это заключение? Точно заменить не получится, т.к. количество пробелов это целое число.

Конечно, не происходит, ведь я привёл только пример. Но эту процедуру можно переделать так, чтобы в неё передавать ячейку, отступы в которой нужно менять. Как-то так (код с коленки)

Dim oCell As Cell
For Each oCell In ActiveDocument.Tables(1).Range.Cells
  If oCell.ColumnIndex = 1 Then
    Call ReplaceIndentToSpace(oCell)
  End If
Next

А саму процедуру записать так:

Sub ReplaceIndentToSpace(ByRef oCell As Cell)
  Dim oRng As Range 'Диапазон ячейки
  Dim n As Long 'Положение пробела в ячейке
  Dim SpaceWidth As Single 'Ширина пробела
  Dim SpaceCount As Integer 'необходимое количество пробелов
  
  Set oRng = oCell.Range
  n = oRng.MoveStartUntil(" ", wdForward)
  If n <> 0 Then 'Если пробел в строке есть
    With oRng.Characters.First
      SpaceWidth = .Next.Information(wdHorizontalPositionRelativeToTextBoundary) - _
                  .Information(wdHorizontalPositionRelativeToTextBoundary)
    End With
    With oCell.Range
      'Вычисляем необходимое количество пробелов
      SpaceCount = CLng(.ParagraphFormat.FirstLineIndent / SpaceWidth)
      'Убираем отступ
      .ParagraphFormat.FirstLineIndent = 0
      'Вставляем пробелы вместо отступа
      .InsertBefore Space(SpaceCount)
    End With
  End If
End Sub