На что заменяем известно? Строка как выглядеть будет, на которую заменяем?
-------- Добавлено в 23:28 -------- Предыдущее было в 23:23 --------
Этот блок:
' Tупо пропускаем все символы между ##, включая их самих
i = i + k
|
Меняем на:
' Tупо пропускаем все символы между ##, включая их самих, и вставляем вместо них #нужная строка#
txm = txm + "#нужная строка#"
i = i + k
|
Либо, в начале где-то определяем переменную:
Dim r, txm, ins
Set r = aDoc.Content
txm = ""
ins = "#нужная строка#"
|
А вышепреведенный код примет вид:
' Tупо пропускаем все символы между ##, включая их самих, и вставляем вместо них #нужная строка#
txm = txm + ins
i = i + k
|
________________
If you're playing Rock 'n' Roll, play It without lies.
Always be as brave and proud, like an eagle in the sky!
If you want to be remembered, there is one thing you should do:
When you play your music, gotto keep It true! © "Majesty"
Последний раз редактировалось Duke_Cheb; 30.06.2014 в 00:35.
|