Список проголосовавших за комментарий "Синтезатор речи Балаболка скачивает субтитры как текст<br/> и улучшает макрос Word делящий текст на логичные участки<br/> <br/> <br/> <br/> Субтитры Youtube скачивание<br/> <br/> dvdvideosoft.com/online-youtube-subtitles-download<br/> <br/> <br/> Sub Balabolka()<br/> Dim n(27), y(27) As Variant<br/> <br/> n(1)="[музыка]": y(1)=" "<br/> n(2)="[аплодисменты]": y(2)=" "<br/> n(3)="[ __ ]": y(3)=" "<br/> n(4)=" кто ": y(4)=". кто "<br/> n(5)=" где ": y(5)=". где "<br/> n(6)=" когда ": y(6)=". когда "<br/> n(7)="^p": y(7)=" "<br/> n(8)=" и ": y(8)=". и "<br/> n(9)=" но ": y(9)=". ^p^pно "<br/> n(10)=" а ": y(10)=". а "<br/> n(11)=". ": y(11)=". "<br/> n(12)=", ": y(12)=" "<br/> n(13)="/": y(13)=" "<br/> n(14)=«Created on https: <a href="/r.php?u=http%3A%2F%2Fwww.dvdvideosoft.com&s=2907978545">www.dvdvideosoft.com</a> free-youtube-subtitles-download»: y(14)=""<br/> n(15)="[смех]": y(15)=""<br/> n(16)=";": y(16)=". "<br/> n(17)=",.": y(17)=". "<br/> n(18)="… ^p": y(18)=". ^p"<br/> n(19) = ",. ": y(19) = ". "<br/> n(20)=" как. ": y(20)=" как "<br/> n(21)=" так. ": y(21)=" так "<br/> n(22)="…": y(22)=". "<br/> n(23)="—": y(23)=""<br/> n(24) = "… ": y(24) = ". "<br/> n(25)=" ": y(25)=" "<br/> n(26)=" ": y(26)=" "<br/> n(27)=" ": y(27)=" "<br/> <br/> Selection.HomeKey Unit:=wdStory<br/> ActiveWindow.View.Type = wdNormalView<br/> ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit<br/> <br/> For i = 1 To 27<br/> Selection.Find.ClearFormatting<br/> Selection.Find.Replacement.ClearFormatting<br/> With Selection.Find<br/> .Text = n(i)<br/> .Replacement.Text = y(i)<br/> .Forward = True<br/> .Wrap = wdFindContinue<br/> .Format = False<br/> .MatchCase = True<br/> .MatchWholeWord = False<br/> .MatchWildcards = False<br/> .MatchSoundsLike = False<br/> .MatchAllWordForms = False<br/> End With<br/> Selection.Find.Execute Replace:=wdReplaceAll<br/> Next i<br/> <br/> Selection.EndKey Unit:=wdStory<br/> ActiveWindow.View.Type = wdPageView<br/> ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit<br/> End Sub<br/> <br/> <br/> Макрос Word создан в 1998 году и включает сотни замен<br/> в т.ч. отдельно форматируя оформление и расставляя знаки препинания"