Вычисление длины строки

[Agafon]

Доброго времени суток. Подскажите пожалуйста кто знает, как можно определить длину строки в мм?

Мне это нужно для того, чтобы автоматически изменять размер текста, если он выходит за эти приделы.

[forumWord]

В Wordе нет объекта "Строка".
Можно определить длину выделенного фрагмента (используя Selection) или нужного диапазона (используя Range).
Что-то в этом роде можно попробовать:

Sub Макрос1()
Dim ДлинаСтроки As Double
ДлинаСтроки = Selection.Information(wdHorizontalPositionRelativeToPage) - Selection.PageSetup.LeftMargin
MsgBox ДлинаСтроки
End Sub

[Agafon]

Сообщение от forumWord

В Wordе нет объекта "Строка".
Можно определить длину выделенного фрагмента (используя Selection) или нужного диапазона (используя Range).

Хорошо, а какого формата будет результат? Это будет количество символов, или длина в см, или ещё что-то?

[Вождь]

Сообщение от forumWord

...В Wordе нет объекта "Строка"...

Есть У нее даже свойство "длина" имеется.

Dim objLine As Line

Set objLine = ActiveDocument.ActiveWindow.Panes(1).Pages(1).Rectangles(1).Lines.Item(1)

    MsgBox "Длина строки: " & objLine.Width

[forumWord]

Вождь, можешь расшифровать то, что написал? А то вообще ничего не понятно.

[Вождь]

В Word имеется объект Line, с помощью которого можно получить область и размеры любой строки текста в документе. Другое дело, что это не так просто - надо перебирать все строки, чтобы найти нужную.

Важно понимать, что размер строки в каждом режиме просмотра документа свой. А в режимах просмотра без разбивки на страницы, вообще нет строк. Поэтому советую использовать только режим "Разметка страницы".

Еще размер строки не обязательно соответствует размеру текста в строке. Например, в строке может быть рисунок на пол ее длины.

Вот функция для ширины строки с использованием Information:

Public Function Selection_FirstLineTextWidth() As Single
' возвращает ширину текста в первой выбранной строке, пт
' (-1 при ошибке) (область схлопывается к концу первой строки)

    Selection_FirstLineTextWidth = -1
    On Error Resume Next 
    If Selection Is Nothing Then Exit Function
    
Dim LStart!, LEnd!
    
    ' начало текста строки
    Selection.StartOf Unit:=Word.wdLine, Extend:=Word.wdMove
    LStart = Selection.Information( _
        Type:=Word.wdHorizontalPositionRelativeToTextBoundary)
    ' конец текста строки
    Selection.EndOf Unit:=Word.wdLine, Extend:=Word.wdMove
    LEnd = Selection.Information( _
        Type:=Word.wdHorizontalPositionRelativeToTextBoundary)
    ' ширина текста
    If LEnd >= LStart Then
        Selection_FirstLineTextWidth = LEnd - LStart
    End If
                   
End Function

[forumWord]

Agafon,

Хорошо, а какого формата будет результат?

в единицах длины.

Если абзац не имеет выступов, то длину строки вот так надо определять:

Sub Макрос1()
Dim ДлинаСтроки As Double
ДлинаСтроки = Selection.Information(wdHorizontalPositionRelativeToTextBoundary)
MsgBox ДлинаСтроки
End Sub

Вот ещё вариант, но я не понимаю в нём ничего:

Sub Макрос1()
MsgBox ActiveDocument.ActiveWindow.Panes(1).Pages(1).Rectangles(1).Lines(1).Width
End Sub

Вождь, вот это мне кажется не нужно:

LStart = Selection.Information( _
        Type:=Word.wdHorizontalPositionRelativeToTextBoundary)

[Вождь]

Сообщение от forumWord

...вот это мне кажется не нужно:

LStart = Selection.Information( _
        Type:=Word.wdHorizontalPositionRelativeToTextBoundary)

Это расстояние от края (страницы, столбца, ячейки и т.д.). Если отступ от края нулевой, то да - не нужно. Нужно, когда абзац имеет отступ слева или первой строки, ячейка имеет поле слева и т.д. Вам решать. Моя функция универсальна.

[forumWord]

Вождь,

Нужно, когда абзац имеет отступ слева или первой строки, ячейка имеет поле слева и т.д.

Теперь я понял, зачем это нужно.

[Agafon]

Сообщение от forumWord

в единицах длины.

А в какой пропорции сочетаются Еденицы длины с пикселями?

Просто в ворде это "пункты", и мне бы хотелось понять сколько это в пикселях