| |
Автоматический увеселитель. |
|
| |
'############COPYRIGHT############
' (c) User Unknown 2004 mailto:user@vbnet.ru
' Этот скрипт был взят с сайта VBNet.ru.
' Все права на макрос принадлежат сайту VBNet.ru
' При перепечатке или размещении на каком-либо ином сайте НЕОБХОДИМО разрешение автора или администрации сайта.
'##############ABOUT##############
'Скормите этому макросу любой текст. Привествуются нетехнические и осмысленные тексты.
'Лучше всего подходят резюме, сопроводительные письма, переписка с друзьями.
'Чем больше текст, тем интереснее.
'Напоминаем, что автор не несет никакой ответственности за причиненный моральный или материальный ущерб.
'Вы используете этот скрипт на свой страх и риск.
'#########RECOMMENDATIONS#########
'В момент временной отлучки сотрудника запустить у него на компьютере.
'Желательно, использовать с комбинацией Ctrl+H ', ' --> ', блин '.
'Дополнительный эффект дает, если это служебная записка или другой документ.
'##############SYSREQ#############
'Для нормальной работы макроса требуется:
'MSWord 2000 и выше с установленным Тезаурусом.
'Текст на русском языке в кодировке Windows-1251.
'##############BUGTRAQ############
'Маленькая скорость работы.
'Один язык распознавания.
Option Explicit
Sub MakeItNasty()
'закомментируйте строчку ниже, что бы наблюдать изменения в реальном времени.
'Application.ScreenUpdating = False
On Error Resume Next
Randomize
'#INT
Dim intMean As Integer
Dim intCounter As Integer
'#OBJ
Dim strSynonymous As Object
'#VAR
Dim varSynonymous As Variant
Dim intStory As Integer
intStory = ActiveDocument.Words.Count
For intCounter = 1 To intStory
Set strSynonymous = ActiveDocument.Words(intCounter).SynonymInfo
If strSynonymous.MeaningCount >= 1 Then
Let intMean = Rnd(2)
If intMean = 0 Then intMean = intMean + 1
varSynonymous = strSynonymous.SynonymList(intMean)
Rem Debug.Print varSynonymous(1)
ActiveDocument.Words(intCounter).Text = varSynonymous(1) & " "
End If
Next
Application.ScreenUpdating = True
End Sub
|
|
| |
|
|
|
|