оффтоп
Доброта айтишников велика, особенно это касается посетителей технета.
Специально для такого случая Dmirk написал вордовский макрос, режущий строки по словам так, что получается не более 40 символов: Sub subtitle_40()
Dim WordDoc
Dim tRange As Range
Dim i, startRange, endRange, n
Dim idPosition As Integer
idPosition = 40
n = 0
Set WordDoc = ActiveDocument
With WordDoc
For i = 1 To .Paragraphs.Count
startRange = .Paragraphs(i + n).Range.Start
endRange = .Paragraphs(i + n).Range.End
Set tRange = .Range(startRange, endRange)
If (tRange.Characters.Count) >= (idPosition + 1) Then
k = 0
Do
k = k + 1
Loop While tRange.Characters.Item(idPosition - k) <> " "
tRange.Characters.Item(idPosition - k).Select
Selection.TypeParagraph
n = n + 1
End If
Next
End With
End Sub
макрос проверен под вордом 2007 - работает Скрыть