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

[Алекс14]

Здравствуйте!
Такой вопрос.
Как сделать в word 2003 так, чтобы скажем через каждые 1000 символов, без учета пробела или с учетом пробелов, сделать такую вставку ***
Имеется виду уже готовый текстовый документ, на котором предварительно необходимо удалить все знаки переноса и перевода.
Читал ваш форум более 2 часов, но похожей темы не нашел.

[WordVest]

Вы имеете в виду, после каждой 1000 знаков вставить 3 звездочки (***)?

[Алекс14]

да да именно так

[WordVest]

Какой разделитель ставить после звездочек, абзац, неразрывный пробел, разделитель строки или любой другой знак, отделяющий 1000 знаков

[Алекс14]

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

Какой разделитель ставить после звездочек, абзац, неразрывный пробел, разделитель строки или любой другой знак, отделяющий 1000 знаков

никакой - просто *** и все

[viter.alex]

Пробуйте:

Sub InsertEvery1000()
  Dim i As Long 'счётчик символов
  Dim c As Long 'счётчик замен
  Dim delim As String 'Вставляемый разделитель
  
  delim = "***"
  
  For i = 1000 To ActiveDocument.StoryRanges(wdMainTextStory).Characters.Count Step 1000
    ActiveDocument.Range(i + Len(delim) * c, i + Len(delim) * c).InsertAfter delim
    c = c + 1
  Next
  MsgBox ("Работа завершена. " & "Вставлено " & c & " разделителей")
End Sub

Естественно, это c учётом пробелов.

[Алекс14]

Идет запись, но ничего не происходит.

[viter.alex]

Идёт запись чего?

[Алекс14]

макроса....

[Алекс14]

Может я макрос не правильно записал.