Принудительное разбиение строки с помощью макроса

Вопрос от Gojah:

Для этой цели можно воспользоватся следующим макросом:

Sub razmer_stroki_15()
Const chunkSize = 15
Dim oRg As Range
Dim actualSize As Long
Set oRg = ActiveDocument.Range
With oRg
   .Collapse wdCollapseStart
   actualSize = .MoveEnd(Unit:=wdCharacter, Count:=chunkSize)
   Do While actualSize = chunkSize
      .InsertAfter vbCr
      .Collapse wdCollapseEnd
      actualSize = .MoveEnd(Unit:=wdCharacter, Count:=chunkSize)
   Loop
End With
End Sub

Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:

Создание макроса из готового кода

Автоматическая запись макроса