Приоритет Windows и МЫ

[сфинкс]

Контролируем приоритет Windows7:
Мышкой на Часы: Меню - Запустить диспетчер задач

Вид - Выбрать столбцы...
Включить: Базовый приоритет и ОК

Результат: контролируется приоритет программ
особенно освещаемых на предыдущей странице и далее
и возможна сортировка процессов по приоритетам

[сфинкс]

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

Синтезатор речи Балаболка субтитры Youtube то скачивает то не скачивает
поэтому найдено субтитров онлайн скачивание:

https://dvdvideosoft.com/online-yout...itles-download
dvdvideosoft.com/online-youtube-subtitles-download

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

Sub Balabolka()
'
Dim n(18), y(18) 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) = ". но "
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) = "  ": y(18) = " "

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

For i = 1 To 18
    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 году и включает сотни замен
в т.ч. отдельно форматируя оформление и расставляя знаки препинания

Те же принципы: создан макрос Word транслит:
Te zhe prinzipy: sozdan makros Word translit

[сфинкс]

ежечасно нужная программа: ничего не делает

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

// RunLiveUpd.cs bat csc.exe /target:winexe RunLiveUpd.cs 
using System; namespace danetload
{ class Program { static void Main(string[] args) { Console.WriteLine(""); }}}

предыдущая программа заменитель: калькулятор
особенно прошлой версии WinXP малый главное без вирусов

практически: будильник стартует ежечасно
и оставлен для замены обновления браузеров

сколько террабайт сэкономлено неизвестно

[сфинкс]

Создана таблица Excel создающая макрос замен
из предыдущих сообщений темы
где обычные ячейки интегрирует команда =сцепить

компьютер	комп    N(    25    ) = "    компьютер    ": Y(    25    ) = "    комп    "		

=СЦЕПИТЬ(E25;F25;G25;H25;I25;J25;K25;L25;M25)

Результат:

N(25) = "компьютер": Y(25) = "комп"

и в конце добавлены строки циклов и замен
и остаётся оформить вручную искомые и заменяемые
и макрос готов причём уже был опыт синтеза
qbasic & qb64 & visual basic программ в excel

[сфинкс]

Макрос Word заменяет буквы русские на похожие буквы импортные
что затрудняет интернет поиск на форумах и др.
... разработан в 1998 г. ещё при старом режиме

Sub IMPORTNYE()
'
Dim N(17), y(17) As Variant

N(1) = "у": y(1) = "y"
N(2) = "е": y(2) = "e"
N(3) = "Н": y(3) = "H"
N(4) = "х": y(4) = "x"
N(5) = "а": y(5) = "a"
N(6) = "р": y(6) = "p"
N(7) = "о": y(7) = "o"
N(8) = "с": y(8) = "c"
N(9) = "Е": y(9) = "E"
N(10) = "Х": y(10) = "X"
N(11) = "В": y(11) = "B"
N(12) = "А": y(12) = "A"
N(13) = "Р": y(13) = "P"
N(14) = "О": y(14) = "O"
N(15) = "С": y(15) = "C"
N(16) = "М": y(16) = "M"
N(17) = "Т": y(17) = "T"

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

For i = 1 To 17
    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