Генерировать случайные слова в PowerPoint из текстового файла

В этом уроке я собираюсь поделиться с вами удобным ресурсом, который я использую на некоторых уроках в школах, чтобы помочь учащимся изучить конкретные темы, установить связи между темами и стать более беглыми и уверенными в разговоре о ключевых словах и терминах. Презентация PowerPoint, которую я использую, импортирует текстовый файл с ключевыми словами, а затем случайным образом выбирает два слова из списка и отображает их на слайде. Кнопка позволяет пользователю продолжать генерировать случайно выбранные пары слов из текстового файла.

Чтобы переключить темы или темы, все, что вам нужно сделать, это заменить текстовый файл на другой — презентация PowerPoint просто импортирует для вас новый список. Это несколько строк VBA, и, надеюсь, они будут иметь какой-то смысл. Я проведу вас через весь процесс от начала до конца, а также включил код, который использовал ниже.

Если у вас есть какие-либо вопросы или комментарии, пожалуйста, оставьте мне комментарий.

Код VBA

Публичный myArray, Word1, Word2

Sub OnSlideShowPageChange (ByVal SSW As SlideShowWindow)

Если SSW.Presentation.SlideShowSettings.StartingSlide Тогда
Рандомизировать
Label1.Caption /"/"
Label2.Caption /"/"

Тусклый путь
путь ActivePresentation.path & /"//words.txt/"

Открытый путь для ввода как № 1
Ввод содержимого файла (LOF (1), # 1)
Закрыть #1

myArray Split (содержимое файла, vbCrLf)

Конец, если

Конец субтитра

Частная подпрограмма CommandButton1_Click()

Word1 Int((UBound(myArray)) * Rnd)
Word2 Int((UBound(myArray)) * Rnd)

Делай пока Слово1 Слово2
Word2 Int((UBound(myArray)) * Rnd)
Петля

Label1.Caption myArray(Word1)
Label2.Caption myArray(Word2)

Конец субтитра

Пожалуйста, воспользуйтесь возможностью подключиться и поделиться этим видео со своими друзьями и семьей, если вы считаете его полезным.