1

Тема: Visual basic - удаление второго слова в каждой строке

Небольшой скрипт на языке Visual basic, который заменяет в каждой строке второе слово на ":"

If длина > 10 Then
p1 = InStr(строка, " ")
строка1 = Mid(строка, p1 + 1)
имя = Left(строка, p1)
p2 = InStr(строка1, " ")
строка2 = Mid(строка1, p2 + 1)
строка = имя & ":" & строка2
ActiveDocument.Paragraphs(i).Range.Text = строка
строка = Replace(строка, "_.", "")
строка = Replace(строка, "_", "")
End If

Поделиться