как сделать чтобы в ворде автоматически вставлялись слова в текст, например через каждые пять слов

[kiosaki]

Пример: вася мыла кашу лапа мыла машу петя мыла тору Т.е. здесь через каждые два слова вставляется слово "Мыла" Как сделать это автоматически? Может быть в функции "скопировать-вставить" можно как-то так делать? Или нужен макрос. Если макрос, то кто может скинуть?

[shanemac51]

в уже набитый текст или при вводе?

[kiosaki]

Да, уже набитый текст. Можно пойти и другим путём - противоположным. К примеру, в тексте есть периодически повторяющееся слово - "кот". Оно повторяется, например так: Вася кот маша кот петя кот, толя кот наташа кот юра кот... Так вот нужно например убрать его из каждого третьего повторения, чтобы котов в тексте стало меньше.

В принципе, мне без разницы или вставить периодически слово в текст или убрать его. Задача в том чтобы наполнить текст периодически повторяющемся словом. Было бы интересно узнать как ещё можно наполнять текст периодически повторяющимися рандомными - случайными словами, например из базы.

[alex77755]

Например так:

Sub QWERT()
For w = ActiveDocument.Range.Words.Count To 2 Step -3
ActiveDocument.Range.Words(w) = ActiveDocument.Range.Words(w) & " " & "кот" & " "
Next w
End Sub

С пробелами сам определись
Вместо кота вставляй случайное слово из базы