Можно ли такое сделать.

[warrior849]

Допустим есть документ со списком в столбик, можно ли в такой конструкции сделать следующее: есть строки вида <любое слово> спис. , нужно во всех строках со словом "спис." убрать это слово "спис." и впереди поставить допустим "ном.", должно получиться ном. <любое слово> .

Можно ли? )

[pascal65536]

Пример в студию!

[warrior849]

Допустим
из такого:

1 Полевой Пер.
Быховская
Кожара
.....
Волотовская
Ново-Черниговская
Минская
Косарева
3 Полевой Пер.
6 Ильича Пер.

получить такое:

Пер. 1 Полевой
Быховская
Кожара
......
Волотовская
Ново-Черниговская
Минская
Косарева
Пер. 3 Полевой
Пер. 6 Ильича

Количество записей оочень большое вот и нужно как нибудь автоматизировать процес а не ручками каждый случай перебирать

[akokin]

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

Количество записей оочень большое вот и нужно как нибудь автоматизировать процес а не ручками каждый случай перебирать

Попробуйте вот такой макрос (не мой, помогли):

Sub moveCharac()
Dim i As Long
Dim oPrg As Paragraph
For Each oPrg In ActiveDocument.Paragraphs
If Right(oPrg.Range.Text, 5) = "Пер." & Chr(13) Then
   For i = 1 To 4
      oPrg.Range.Characters.Last.Previous.Delete
   Next
   oPrg.Range.InsertBefore "Пер." & " "
End If
Next
End Sub

[warrior849]

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

Попробуйте вот такой макрос (не мой, помогли):

Sub moveCharac()
Dim i As Long
Dim oPrg As Paragraph
For Each oPrg In ActiveDocument.Paragraphs
If Right(oPrg.Range.Text, 5) = "Пер." & Chr(13) Then
   For i = 1 To 4
      oPrg.Range.Characters.Last.Previous.Delete
   Next
   oPrg.Range.InsertBefore "Пер." & " "
End If
Next
End Sub

спасибо большое, очень помогло!