Презентация на тему Макросы вmicrosoft word

Содержание

2. ЗаданиеНаписать макрос, выделяющий самые короткие слова среди разделенных знаками препинания и/или пробелами (т. е. любыми разделителями).
3. Стартовая форма
4. Код обработки последовательности словPrivate Sub B1_click() Dim
5. Код обработки последовательности слов…For Each j In
6. Скачать презентацию
7. Похожие презентации

ЗаданиеНаписать макрос, выделяющий самые короткие слова среди разделенных знаками препинания и/или пробелами (т. е. любыми разделителями).

Макросы в Microsoft WordВыделение самых коротких словсреди заданныхПаршиков РоманДавыдов РоманГруппа 2141

Код обработки последовательности словPrivate Sub B1_click() Dim j As Object, j2 As

Код обработки последовательности слов…For Each j In ActiveDocument.Words

Испытание макросаПредлагаемая строка для разбора:Результат:Макрос работает корректно, задание выполнено! 

Слайды презентации

Слайд 2 Задание
Написать макрос, выделяющий самые короткие слова среди разделенных

знаками препинания и/или пробелами (т. е. любыми разделителями).

Слайд 3 Стартовая форма

Слайд 4 Код обработки последовательности слов
Private Sub B1_click()
Dim j

Код обработки последовательности словPrivate Sub B1_click() Dim j As Object, j2

As Object, j2 As Object
Set j2 = ActiveDocument.Words(1) 'запоминаем

первое слово, чтобы было с чем сравнивать
For Each j In ActiveDocument.Words
'если это не один из знаков препинания и не знак абзаца
If InStr(".,^;""`~!@#$%^&?*()-+{}[]()|\/'<>:" & Chr(13), Trim(j)) = 0 Then
If Len(Trim(j)) < Len(Trim(j2)) Then 'если слово короче, чем то, что в памяти
Set j2 = j 'заменить слово в памяти на новое (более короткое)
End If
End If
Next j
…

Слайд 5 Код обработки последовательности слов
…
For Each j In ActiveDocument.Words

Код обработки последовательности слов…For Each j In ActiveDocument.Words 'Если

'Если длина сравниваемого слова равна

длине кратчайшего слова
If Len(Trim(j)) = Len(Trim(j2)) Then
'То выделяем это слово жёлтым цветом
j.HighlightColorIndex = wdYellow
End If
Next j
Beep 'Звуковой сигнал
Unload Form1 'Выгружаем форму
End Sub