Математика жизни 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 году и включает сотни замен
в т.ч. отдельно форматируя оформление и расставляя знаки препинания