FDjon PlayerА вот, что мне говорить большому начальству.
Что программист здесь вы.Хорошая шутка. Но не по существу. Нужен патч.
А так ради интереса наваял макрос, который автоматически ставит переносы в тексте ориентируясь на ширину ячейки.
Предварительно он удаляет все переносы в тексте ячейки, заменяя их на пробелы, затем устанавливает все переносы заново, так чтобы влезло максимальное количество целых слов в строку.
Понятно, что если текст в ячейке был как-то правильно структурирован (например там стих), то вся структура потеряется. Так что на самом деле писать макрос для этого дела, дело не благодарное.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
Sub Автоматический_перенос_текста()
Dim a
Dim s As String
Dim s2 As String
Dim t As Boolean
Dim i As Integer
Dim j As Integer
Dim ls As Integer
Dim ch As Range
Dim kol_simvolov_v_stroke As Integer
For Each ch In Selection
If ch.Value <> "" Then
kol_simvolov_v_stroke = Round(ch.ColumnWidth)
If kol_simvolov_v_stroke > ch.ColumnWidth Then
kol_simvolov_v_stroke = kol_simvolov_v_stroke - 1
End If
a = Split(ch.Value, Chr( 10 ))
s = ""
For i = LBound(a) To UBound(a)
s = s & a(i) & " "
Next i
ls = Len(s)
If ls > 1 Then
ls = ls - 1
s = Left(s, ls)
End If
s2 = ""
While Len(s) > 0
t = False
For j = kol_simvolov_v_stroke To 1 Step - 1
If Mid(s, j, 1 ) = " " Then
s2 = s2 & Left(s, j - 1 ) & Chr( 10 )
s = Mid(s, j + 1 )
t = True
Exit For
End If
Next j
If Not t Then
s2 = s2 & Left(s, kol_simvolov_v_stroke) & Chr( 10 )
s = Mid(s, kol_simvolov_v_stroke + 1 )
End If
Wend
ch.Value = Left(s2, Len(s2) - 1 )
End If
Next ch
End Sub
