Количество пробелов до конца строки

[Qv_1]

Есть строка произвольной длины. Как узнать количество пробелов до конца этой строки (нужно для подчеркивания всей строки до конца)?

[viter.alex]

Никогда, слышите, никогда не используйте пробелы в количестве более 1 шт подряд.
Это преступление. Пробел нужен только для отделения одного слова от другого.
Если вам нужно сделать подчеркивание до конца строки, то воспользуйтесь табуляцией с заполнителем.
Как это делается.

1. Печатаете ваш текст.
2. Затем левой кнопкой мышки щелкаете по горизонтальной линейке недалеко от правого края страницы. У вас на линейке появится один из таких значков:
   которые обозначают табуляцию с выравниванием по левому краю, по центру, по правому краю, по разделителю и с чертой.
3. Затем оттяните мышкой этот значок на правый край страницы
   
4. Зайдите в параметры абзаца (правая кнопка→Абзац) и в нижнем левом углу жмете кнопку «Табуляция» (либо дважды кликаете по этому загадочному значку). Появится окно для установки табуляции, где уже будет присутствовать один элемент. У меня это выглядело так:
   
5. Кликните мышкой в той последовательности, что на рисунке обозначена красными цифрами.
6. После возвращения в документ перейдите в конец строки и нажмите клавишу TAB. Должно получиться как-то так (непечатные символы ¶, → могут быть у вас выключены):
   

Либо все это можно сделать макросом.

Sub SetTabUntilTheEndOfPage()
  With ActiveDocument.PageSetup
    Selection.ParagraphFormat.TabStops.Add .PageWidth - .LeftMargin - .RightMargin, 0, 3
    Selection.TypeText vbTab
  End With
End Sub

И есть еще один вариант с использованием таблиц. Смотрите здесь

[Busine2009]

Вот так можно подчеркнуть всю строку.

[Qv_1]

viter.alex Спасибо! Ошарашен. Не знал, что такое есть в ворде.

Busine2009. Это знаю. У этого метода один недостаток. Верхняя граница следующего параграфа затирает нижнюю границу текущего.
Я делаю это программно из Аксеса. Очень неудобно.

[Busine2009]

Ну как знаешь, только я не понял про затирание границ.

[Qv_1]

У меня каждая строка это новый параграф. Подчеркиваю строку макросом, рисующим нижнюю или верхнюю границу.

With oWord.ActiveDocument.Paragraphs(10).Borders(wdBorderBottom)
      .LineStyle = 1
      .LineWidth = 8
     .Color = 0
End With

Этот макрос для 10-го параграфа рисует нижнюю границу, но при этом затирает нижнюю границу у 9-го параграфа, поскольку неявно рисует прозрачную верхнюю границу 10-го.

[viter.alex]

Конечно затирает. Если вы хотите иметь нижнюю границу у абзаца, то вам нужно позаботиться, чтобы была верхняя граница у следующего абзаца

[viter.alex]

Qv_1, если вы используете такую конструкцию для установки границ, то делайте так:

  With oWord.ActiveDocument.PageSetup
    oWord.ActiveDocument.Paragraphs(10).Range.ParagraphFormat.TabStops.Add .PageWidth - .LeftMargin - .RightMargin, 0, 3
    oWord.ActiveDocument.Paragraphs(10).Range.InsertAfter vbTab
  End With

[Qv_1]

Спасибо! Это тоже применю.