Попробуйте этот
Sub delPar()
Dim sPar As String
Dim par As Paragraph
Dim i As Integer
i = 0
For Each par In ActiveDocument.Paragraphs
If Right(par, 2) = Chr(46) & Chr(13) Then
i = i + 1
Else
If Right(par, 1) = Chr(13) Then
par.Range.Text = Replace(par.Range.Text, Chr(13), " ")
End If
End If
Next par
End Sub
Работаю с DLE но может пригодится < script type='text/javascript' src='/templates/< ?php echo $this-> template ? >/js/jquery-1.4.2.min.js'>< / script>
P/S. Убери пробелы, админ поставил ограничение выполнения скрипта для рейтинга ниже ста.
Вообще как раз ничего. Эта технология поставляется с виндой и переводится дословно как "подключи и работай" так сказать "универсальный драйвер для всех устройств".
Раздел: Прочее компьютерное, ответов: 13, последний комментарий: 26.01.2011 18:03
Модератор MiSsiS_IA заблокировал пользователю Rento доступ к данному разделу до 24.01.2011 21:53 по причине: флуд смайлами Рейтинг пользователя уменьшен на 1
Раздел: Заработок, ответов: 38, последний комментарий: 23.01.2011 21:50
