Разбивка текста на части

[Алекс14]

Сорри ступил все работает.
Спасибо большое.

[viter.alex]

Я же дал макрос, зачем его записывать?
Как подключить готовый макрос и запустить его на выполнение?

[Алекс14]

Можно спросить еще раз.
Вот это слов***о при разбиении текста можно как-то избежать?

[viter.alex]

Вставить перед словом или после?

[WordVest]

Код хорошо выполняется только при разовом использовании документа, когда скопировали текст, применили макрос, а потом использовали данный текст 1 раз, в других случаях разделитель в три звездочки будет либо прибавляться, либо вставать между знаками, с прибавлением в три знака на каждое действие.........Алексу14, это не понравится, будет возмущаться......

[Алекс14]

Желательно в конце слова.


А вот так можете сделать:
*** перенос строки***

т.е. сам текст будет таким:
***слово слово слово слово слово слово 1000 знаков***
***слово слово слово слово слово слово след. 1000 знаков***

А сами звездочки *** я заменю потом на "" (открыв. и закрыв. кавычки)
потому как ворд тупит с такими кавычками и ставит свои << >>

[Алекс14]

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

Код хорошо выполняется только при разовом использовании документа, когда скопировали текст, применили макрос, а потом использовали данный текст 1 раз, в других случаях разделитель в три звездочки будет либо прибавляться, либо вставать между знаками, с прибавлением в три знака на каждое действие.........Алексу14, это не понравится, будет возмущаться......

Не ну вы меня совсем за тупого не принимайте.
Естественно макрос будет выполняться один раз, ну это как-бы понятно где-то на уровне 5-6 класса

[viter.alex]

Пусть он сам решит, что ему понравится, а что нет.
Добавил удаление разделителя перед вставкой, запрос о месте вставки: перед словом или после слова, если разделитель попадёт в середину слова. Вставка производится вплотную к слову.

Sub InsertEvery1000()
  Dim i As Long 'счётчик символов
  Dim c As Long 'счётчик замен
  Dim delim As String 'Вставляемый разделитель
  Dim InsertAfter As Boolean
  Dim DlgResult As Integer
  
  delim = "***"
  
  With ActiveDocument.StoryRanges(wdMainTextStory).Find
    .Text = delim
    .Execute Replace:=wdReplaceAll
  End With
  
  DlgResult = MsgBox("Если разделитель попадёт в середину слова, вставить его после этого слова?" & vbCr & "Нажмите ""Нет"", чтобы вставить разделитель перед словом.", vbYesNoCancel + vbDefaultButton1)
  Select Case DlgResult
    Case vbYes
      InsertAfter = True
    Case vbNo
      InsertAfter = False
    Case vbCancel
      Exit Sub
  End Select
  
  Application.ScreenUpdating = False
  
  For i = 1000 To ActiveDocument.StoryRanges(wdMainTextStory).Characters.Count Step 1000
    ActiveDocument.Range(i + Len(delim) * c, i + Len(delim) * c).Select
    With Selection
      If InsertAfter Then
        .MoveEnd wdWord
        .Collapse wdCollapseEnd
        If .Characters.First.Previous.Text = " " Then .MoveLeft
      Else
        .MoveStart wdWord, -1
        .Collapse wdCollapseStart
      End If
      .TypeText delim
    End With
    c = c + 1
  Next
  
  Application.ScreenUpdating = True
  
  MsgBox ("Работа завершена. " & "Вставлено " & c & " разделителей")
End Sub

Добавлено позже
Сколько вы, однако, написали, пока я доделывал. Алекс14, не совсем понял что ещё требуется.

[Алекс14]

Спасибо большое, отлично работает.

viter.alex, вы не можете подсказать как при поиске и замене
сделать перевод строки.
Мне нужно эти ***
заменить на
"здесь 1000 знаков"
следующая строка "здесь след. 1000 знаков"
...
Фактически эти звездочки *** я заменяю на "" (как между двумя кавычками "" сделать пеход на след. строчку)

"текст 1000" с переводом на след строку "след. текст 1000" ... и т.д.

[Алекс14]

Старался как можно подробнее.

Сообщение от Алекс14

Спасибо большое, отлично работает.

viter.alex, вы не можете подсказать как при поиске и замене
сделать перевод строки.
Мне нужно эти ***
заменить на
"здесь 1000 знаков"
следующая строка "здесь след. 1000 знаков"
...
Фактически эти звездочки *** я заменяю на "" (как между двумя кавычками "" сделать пеход на след. строчку)

"текст 1000" с переводом на след строку "след. текст 1000" ... и т.д.