Копипаст | Математика жизни 22 ключевые и МЫ Mathematics of Life 22 keywords & WE

комбинаторика детям: транспортная задача

Синтезатор речи Балаболка скачивает субтитры как текст
и улучшает макрос Word делящий текст на логичные участки

 

Субтитры Youtube скачивание

dvdvideosoft.com/online-youtube-subtitles-download


Sub Balabolka()
Dim n(27), y(27) As Variant

n(1)="[музыка]": y(1)=" "
n(2)="[аплодисменты]": y(2)=" "
n(3)="[ __ ]": y(3)=" "
n(4)=" кто ": y(4)=". кто "
n(5)=" где ": y(5)=". где "
n(6)=" когда ": y(6)=". когда "
n(7)="^p": y(7)=" "
n(8)=" и ": y(8)=". и "
n(9)=" но ": y(9)=". ^p^pно "
n(10)=" а ": y(10)=". а "
n(11)=". ": y(11)=". "
n(12)=", ": y(12)=" "
n(13)="/": y(13)=" "
n(14)=«Created on https:  www.dvdvideosoft.com free-youtube-subtitles-download»: y(14)=""
n(15)="[смех]": y(15)=""
n(16)=";": y(16)=". "
n(17)=",.": y(17)=". "
n(18)="… ^p": y(18)=". ^p"
n(19) = ",. ": y(19) = ". "
n(20)=" как. ": y(20)=" как "
n(21)=" так. ": y(21)=" так "
n(22)="…": y(22)=". "
n(23)="—": y(23)=""
n(24) = "… ": y(24) = ". "
n(25)="   ": y(25)=" "
n(26)="  ": y(26)=" "
n(27)="  ": y(27)=" "

Selection.HomeKey Unit:=wdStory
ActiveWindow.View.Type = wdNormalView
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit

For i = 1 To 27
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = n(i)
.Replacement.Text = y(i)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next i

Selection.EndKey Unit:=wdStory
ActiveWindow.View.Type = wdPageView
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
End Sub
 

Макрос Word создан в 1998 году и включает сотни замен
в т.ч. отдельно форматируя оформление и расставляя знаки препинания

ключевые 27

свои чужие другие
актив пассив экономия
лидер ведомый жертва
жизнь машина язык
цель время контроль
услуга товар качество
экспорт эксплуатация технология
интеграл логарифм производная
элита антиэлита приоритет

keywords 27

ours aliens others
active passive saving
leader slave victim
life machine language
target time control
service goods quality
export exploitation technology
integral logarithm derivative
elite antielite priority

свидетели: ключевое… контроль

и в интернете всё больше тем на тему:
«123 вопроса себе до обеда»

похожих на данную тему