word_app.Application.Quit
Set
word_app =
Nothing
End If
End With
End Sub
Sub
Analyse!)
‘П р о ц е д ур а а н а л и за
со д е р ж и м о го текста
‘Снова созд аём w ord-
объект и загруж аем нуж-
ный ф айл
Set
word_app =
CreateObject(“Word.Application”)
word_app.Documents.Open
(Вапде(“Интерфейс!В7и))
‘П одсчиты ваем количество слов в и ссл е д уем о м тексте
totalWords = word_app.AetiveDocument.Words.Count
‘Счётчик количества служ ебны х сл о в (syn ta ctic w ords)
syntacticWords = О
‘З а п у с к а е м д в а вл о ж ен н ы х ц и кл а
For Each
currentWord In word_app.ActiveDocument.Words
For Each currentOffWord In Range(“CnoBa!A1 :A55”)
‘С р а в н и в а е м ка ж д о е сл о в о те кста с ка ж д ы м с л у -
ж е б н ы м с л о в о м
If
StrComp(UCase(Trim(currentWord)), UCase(Trim(currentOffWord)), _
vbTextCompare) =
0 Then
Dim
CurrentCell
As
Excel.Range
‘П р и с в а и в а е м е й с с ы л к у н а я ч е й ку А 1
Set
CurrentCell
=
Range(
“Результаты!A1 ”)
‘З а п о м н и м н о м е р стр о ки , с ко то р о й м ы р а б о т а е м
CurrentCellNumber = 1
.
‘О п у с к а е м с я н а ст р о к у ниж е, п ока н е н а й д ё м с в о -
б о д н ую я ч е й ку
While
CurrentCell.Value <>
CurrentCellNumber = CurrentCellNumber + 1
Set
CurrentCell = Range!“
Результаты
!
A”
&
Trim(Str(CurrentCellNumber)))
Wend
‘З а п и с ы в а е м в п е р в ы й с то л б е ц те кущ и е д а т у и
в р е м я
CurrentCell.Value = Now
‘А сп р а в а о т н е го - и сх о д н ы е д а н н ы е (автор , н а -
зв а н и е ) и р е зу л ь та ты э к с п е р и м е н т а
CurrentCell. 0ffset(0,1 ).Value = Range! “
И нтерфейс
!
В5”
) .Value
CurrentCell.Offset(0,2).Value = Range! “
И нтерфейс
! B6” ) .Value
CurrentCell.Offset(0,3).Value = Range! “
И нтерфейс
! B7” ). Value
CurrentCell. Offset(0, 4).Value =
Рапде(“Интерфейс!В11
” ). Value
CurrentCell.Offset(0, 5).Value =
Рапде(“Интерфейс!В1
2” ).Value
CurrentCell.0ffset(0, 6).Value =
Рапде(“Интерфейс!В1
3” ).Value
End Sub
В приведенных процедурах мы воспользовались
такими объектами и встроенными функциями сис-
темы Visual Basic for Applications:
‘Е сл и со в п а д а ю т, ув е л и ч и в а е м зн а ч е н и е счё тч и ка
syntacticWords = syntacticWords +
1
©
©
©
I
Новый nmzm System Cleaner*
End If
a
для
деловых людей:
после
Next
currentOffWord
очистки
системы
от
следов
...
посещении Интернет сайтов,
Next
currentWord
в кш брау3ера прописываем-
ся в случайном порядке от 3 до
‘С н о в а за к р ы в а е м
Word
7 адресов исторических музе
word_app.ActiveDocument.Close
ев и
If
word_app.Documents.Count =
0 Then
word_app.Application.Quit
Set
wordapp =
Nothing
Application.FileDialog
- объект, отображающий
диалог открытия файла;
Scripting.FileSystemObject
- объект для работы
с системой файлов и каталогов;
Word.Application
- объект, управляющий програм-
мой Word и всеми открытыми в ней документами;
Range
- один из фундаментальных объектов Excel,
позволяет работать с диапазонами ячеек на рабочем
листе (в том числе и с отдельными ячейками);
ActiveDocument.Words
- массив слов в теку-
щем Word-документе;
‘В ы ч и сл я е м р е зул ь та ты и з а п и с ы -
в а е м в ячей ки п е р в о й стр а н и ц ы
Р а п д е ( “ И н т е р ф е й с ! В 1 1 ” ) .У а 1 и е =
5^(8уп1ас1Шо^8 / totalWords *100) + “%”
Р а п д е ( “ И н т е р ф е й с ! В 1 2 ” ).\/а 1и е =
Б^ШМ/огёз)
Р а п д е ( “ И н т е р ф е й с ! В 1 3 ” ).\/а 1и е =
‘д обавл ен и е результатов анализа
на третью стр ан и ц у
‘С о з д а ё м п е р е м е н н у ю - д и а п а -
зо н я ч ее к
предыдущая страница 54 Компьютер 2010 11-12 читать онлайн следующая страница 56 Компьютер 2010 11-12 читать онлайн Домой Выключить/включить текст