К "Подорожает или нет: проект решения по повышению цен на проезд в Днепре п..."

а это можно как то предотвратить? Расстрелять их что ли, хотя бы тухлыми яйцами и гнелыми помидорами. Объявляю челендж.  Или нас уже полностью похоронили? Сколько Днепр будет еще терпеть этих ублюдков?! Был Зеленски ..., теперь спасибо нашему херу, ой, меру (уже не стал править опечатки... Теперь он так перепзд... пугался, что закрыл мост. В город не проехать, приходится по часу стоять в пробках. После чего мымр решил - хуйлять так хулять и теперь еще  и цены на проезд поднять. Скоро работающие будут завидовать безработным. Впрочем чего завидовать, скоро всех по сокращают или сами уйдут, т.к. тупо будет не выгодно работать. Все бабки будут уходить на проезд. Я сейчас стою в ЦЗ и думаю куплю себе пальмового масла 20 л. что бы с голоду не сдохнуть. Хотя бы на пол года должно хватить - оно калорийное, и пусть идут они все.... И за коммуналку не буду платить. А полезут в хату буду защищаться. Пусть сажают, в тюрьме макароны.... В общем скоты... у меня слов нет. Бензин не дорожал, доллар упал, а вот проезд с какого то перепуга подняли. И хоть бы кто пикнул, уже молчу за петиции. С нашего народа веревки вить можно, живем кожу сдирать... 0:48 - ох и фейс... в кадр не влазит. Тут на еде экономишь. А они зажрались...  Какое техническое обслуживание? Трамваи 100 летней давности. Да и вообще пусть старые ездят, у меня "зароботная" плата не увеличилась, и пособие по безработице скоро перестанут платить. Так что ждите гостей. Тухлых яиц не обещаю, но вот гнилые помидоры на рынки, думаю не составит труда собрать для машины нашего люБимого мера и его прихлебателей. А так же отправлю это и в соц сети и в личку команде ЗЕ. Они интересно в курсе? Или им уже не до народа - празднуют свою победу, а про нас избирателей забыли. Так скоро напомним.

К "Порошенко спешно бежал из Украины. С собой взял только 340 кг долларов"

а я уже давно писал что сбежит и надо не выпускать. Но увы... Кто меня слушает. И вообще с какой это стати он рассматривается как свидетель аж в 11 делах. Неужели он не достоин "титула" подозреваемого, хотя бы в одном деле. Тогда его можно было бы не выпускать из страны, и даже посадить на время следствия. Опять же увы.... Что делать теперь... Даже не знаю. Снова мы становимся на те же грабли, воры неоднократно обворовавшие Украину просто сбегают. От такой безнаказанности мы никогда не станем жить лучше, нас постоянно будут обворовывать то Порошенко, то Янукович, то Лазаренко то еще кто то. В лучшем случае они будут сидеть в др. странах и тратить награбленные У НАС  деньги там. Поэтому пока не поздно его надо объявить подозреваемым и сотрудничать, и даже требовать его экстрадиции, в какой бы стране он не находился. Он политический преступник устроивший геноцид украинского народа в кровопролитной войне, и не одна страна не должна его покрывать. В противном случае нужно требовать что бы все наши долги списали на эту страну. А то интересные у нас в международном законодательстве правила. Как кредиты отдавать то должны простые украинцы, а как брать эти кредиты и удирать с ними так это Яценюк, Порошенко и др. марионетки. И опять понаберали в парламент фриков. Не факт что завтра они поступят точно так же. 

Записки- заметки Любимые макросы Болгарчук Р.

СОДЕРЖАНИЕ
Любимые макросы 1
Краткое предисловие. 3
Макросы 3
«С возвращением!» или «SHIFT+F5» в один клик. 3
Вставить текущую дату с заморозкой. 3
Вставка гиперссылки внутрь текста названия сайта. 4
Напутствие. 4
Включить вкладку разработчик. 4
Разрешить (включить) макросы в 2010 офисе 5
Добавить макросы. 7
Сам макрос 8
Добавление макрасов в 2010 офисе аналогично 9
Добавление кнопки макросов. 10
Экспорт импорт настроек 13
Перспективы и планы на будущее. 13

Краткое предисловие. 

Давно собирался выложить свои любимые макросы. Но, как уже не однократно писал, до сих пор, на многих сайтах проблематично вставить форматированный текст с ворда вместе с картинками. А добавлять их отдельно — нет ни времени, ни желания. Однако у меня много мануалов по разным темам. Преимущественно делал их для себя, поэтому для кого-то, возможно будет не актуально, не интересно и т.д. и т.п. Тем не менее, надеюсь кому то подобная информация окажется полезной. 

Макросы

Не буду писать тут подробно что такое макросы, кому интересно гуглите. Скажу лишь только что есть макровирусы, т.е. вирусы, написанные на макросах, поэтому будьте осторожны. С другой стороны макрокоманды могут стать незаменимым помощником и мощным инструментом в опытных руках. Ниже приведу лишь пару простеньких макросов, которыми я постоянно пользуюсь. Рассмотрю макросы для ворда. 

«С возвращением!» или «SHIFT+F5» в один клик.

1 – это почти и не макрос, а просто кнопка перехода на последнее место редактирования документа. При её нажатии выполняется условное нажатие сочетания клавиш SHIFT+F5. Аналогичен сообщению «С возвращением!», добавленному в последних версиях ворда, на которое я все время не успеваю нажимать. 
 Очень удобно, когда документ большой, и в нем часто дописывают что-то в середине.  Однако он не всегда корректно работает. Хотелось бы найти, или создать аналогичный, но более проработанный макрос запоминающий несколько мест в документе, с возможностью гибкой навигации и выбора перехода по ним. Но, пока довольствуюсь и активно использую то что есть.
Сам макрос на языке макросов выглядит так: 
Sub вернутся_в_место_документа()
    Application.GoBack
End Sub

Вставить текущую дату с заморозкой.

2 – второй макрос сложнее. Он состоит уже из нескольких комбинаций и действий. Раньше мне постоянно приходилось нажимать их на клавиатуре. Часто забывал. А голова по моему мнению не жесткий диск, она для того что бы думать, а не помнить все наизусть. Поэтому я просто на просто записал постоянно повторяющиеся нажатия в макрос. А именно: Ctrl+Alt +D (вставка текущей даты) и затем стрелка влево а потом Ctrl +F11 (заморозка даты) и стрелка вправо


Sub дата_текущ_замороз()
'
' дата_текущ_замороз Макрос
'
'
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldDate
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.Fields.Locked = True
    Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
Если заморозку даты не поставить, то при обновлении она изменится на текущую. А я часто использую ворд в качестве календаря, записной книжки, днивника и т.д.  (что когда делал…). Поэтому нужно что бы дата оставалась той, которая была создана в момент времени записи (заметки, комментария и т.д., и т.п.) 

Вставка гиперссылки внутрь текста названия сайта.

На первый взгляд звучит не совсем понятно. Но на самом деле очень нужный, на мой взгляд, макрос. Особенно если, кто-то как я, сохраняет ссылки на интересные видео, статьи, странички и т.д. в ворд. А потом еще и слушает их, или пытается найти в ворде, то или иное видео, годичной давности по названию. Этот макрос уже сильно сложный для меня, поэтому, скажу честно, не знаю, как он работает. Делал его не я, только дал идею. Помогли на форуме. Подробно можно почитать перейдя по ссылке ниже. Кстати она как раз-таки сделана именно этим макросом. 
Как сделать макрос вставки гиперссылки в текст в ворде? — VBA — Киберфорум. 
Большое спасибо пользователю под ником fever brain

Напутствие.

Добавить все эти макросы можно в пару кликов. Однако для новичков это может оказаться не простым делом. Да и я часто забываю, как добавлять. И садясь за новый ПК, за которым планирую продолжительно работать, первым делом открываю эту инструкцию.  В целом она не сложная, и думаю осилит даже начинающий. Потратив 10-20 минут в дальнейшем можно не только сэкономить часы, которые накапливаются из секунд тысяч монотонных нажатий; но и освоить азы написания макросов, настройки ворда, для дальнейшей работы, создание своих макросов и многого другого. Поэтому думаю будет весьма полезно. Хотя, не факт, что все получится, т.к. у всех разные возможности, программы, нюансы… Начну с азов для полных… чайников. А те, кто уже умеет включать макросы и хочет скопировать и вставить только сам код, могут воспользоваться «СОДЕРЖАНИЕм» — нажав Ctrl и щелкнув пальцом курсора на нем. 

Включить вкладку разработчик.

Если до этого никто не добавлял макросов, то возможно потребуется в ворде включить вкладку разработчика. 
Это разовое действие. Поэтому не пугайтесь, постоянно его не надо включать. Один раз включите и ворд должен запомнить это на всю жизнь. Часто подобные действия отталкивают ленивых новичков, т.к. они думают, что им придётся совершать такое действие постоянно. ЭТО РАЗОВОЕ ДЕЙСТАИЕ! 
Итак, в разных версиях она может располагаться в разных местах. В 2013 офисе она на вкладке 1 ФАЙЛ → 2 Параметры → 3 настроить ленту

Если скриншот сильно мелкий, удерживая Shift покрутите колесо мыши от себя
В разделе 3 Настройка ленты в списке Основные вкладки. Там установите флажок 4 Разработчик.

Разрешить (включить) макросы в 2010 офисе

Затем разрешить использование макрасов. В офисе 2010 это почти там же, но в разделе безопасность. Т.е. ФАЙЛ → Параметры → Центр управления безопасностью → Параметры центра управления безопасностью → Включить все макросы. 










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

Добавить макросы. 

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

Имя можно задать любое, но без пробелов и разных «экзотических» символов. Вместо пробелов часто используется нижнее подчеркивание между словами: «вот_так». Длинные имена не желательны.

Затем нажать «Создать». Откроется поле. И вот тут, самое главное, не промахнуться и вставить нужный код в это поле. Должно получиться что-то подобное тому что на рисунке. После чего нажать на дискетку (это такой синенький квадратик с белым прямоугольником и еще одним квадратиком внутри). Т.е. сохранить.



Теперь еще раз и по пунктам. Выделяем и копируем все мелким желтым шрифтом. 

Сам макрос

Function UrlTitleXML(ByVal Url$) As String    'Получение заголовка страницы по указанной ссылке классом Microsoft XML
    Dim title As String
    On Error Resume Next    With CreateObject("MSXML2.XMLHTTP")        .Open "GET", Url, False        .Send        UrlTitleXML = Split(.ResponseText, "", 2, 1)(0)    End WithEnd Function
Sub вставка_гиперссылки()
'' вставка_гиперссылки Макрос''    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")     
        .GetFromClipboard        If isUrl(.GetText) Then            ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _                    .GetText, SubAddress:="", ScreenTip:="", _                    TextToDisplay:=UrlTitleXML(.GetText)     
        Else
            MsgBox "Текст буфера не является url"        End If
     
     End With 
 
 End Sub Function isUrl(ByVal Url$) As Boolean    Dim v    For Each v In Array("ftp://", "http://", "https://")        If InStr(1, Url, v, 1) > 0 Then isUrl = 1: Exit For    NextEnd FunctionSub дата_текущ_замороз()
'' дата_текущ_замороз Макрос''    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldDate    Selection.MoveLeft Unit:=wdCharacter, Count:=1    Selection.Fields.Locked = True    Selection.MoveRight Unit:=wdCharacter, Count:=1End Sub Sub вернутся_в_место_документа()'' вернутся_в_место_документа Макрос''    Application.GoBack    End Sub

Добавление макрасов в 2010 офисе аналогично

Переходим на вкладку «Разработчики» → Макросы

В поле «Имя» вверху вводим название макроса. Далее нажимаем «Создать». 
 И в открывшееся поле вставляем скопированный макрос.
Если там уже есть какие-то макросы, то можно вставить ниже, хотя, я не в курсе, возможно будет конфликтовать. Поэтому выделяю все, и вставляю на место того, что там было. Как вариант текст, который там был, можно сохранить отдельно. Но это уже нюансы, они на данном этапе (начинающих) не сильно важны.





Все! Макросы добавлены. Однако вызывать их с панели макросов неудобно. Поэтому настроил и вывел на панель быстрого доступа кнопки, при нажатии на которые будет срабатывать макрос. 

Добавление кнопки макросов. 

Файл→ Параметры→ Настроить ленту


В свитке выбираем Макросы →нужный макрос, например: «Normal.NewMacros.вставить_дату…»



Аналогично можно вставить в верх. Выбрав там же Файл→ Параметры→ но уже не  «Настроить ленту» а  «Панель быстрого доступа». Либо в то же меню можно попасть проще. Нажав на перевернутый треугольник, в самом верху справа, от значков, и выбрав «Другие команды»

Таким образом, выбрать 1 Макросы→ 2 «Normal.NewMacros.название_макроса…» «Добавить >>» → 3 Изменить (внизу, будет активно при выделении, нажатии на добавленный макрос). После чего можно будет переименовать макрос, и выбрать другой значок.  

Еще бы разобраться как вставлять свои значки. Может кто знает напишите. 
Добавление значков и переименование было составлено по мотивам видео  
«Назначение кнопки макросу в Excel»

Экспорт импорт настроек

Что бы постоянно не выводить и не настраивать все эти названия, кнопочки на других машинах, можно просто экспортировать все эти настройки. Садясь за новый ПК добавлять макросы, как описывал выше, и импортировать настройки. 
Файл – «Панель быстрого доступа» — Импорт (если нужно сохранить настройки), или Экспорт (если нужно загрузить ранее сохраненные настройки). 





Аналогично экспортировать и ленту. Т.е. те надписи которые под Файл, Главная, разработчик и т.д. Сохраняет по умолчанию под названием Word.exportedUI

Перспективы и планы на будущее.

Найти как добавлять не просто дату, а дату с определенным форматом заголовка. 
Разбить один файл с разными заголовками на много и обратный процесс – соединить. 
Показывать и прятать все гиперссылки в документе. 
Более гибкие переходы на место редактирования с возможностью как-то запоминать последние места редактирования. 
Выводить весь список гиперссылок из документа в отдельный файл. Где-то у меня такой макрос был, но работает он кривовато, и сложно. 
В общем идей много, а времени мало. Пока опубликую что есть, возможно в будущем, если будут деньги на еду, жилье и не придётся что-то срочно ремонтировать, воевать с аферистами… займусь подробнее как макросами, так и др. своими наработками

Краткий отзыв о книге: "Эволюция всего" (2016)

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

К" ИИ лечит ГРИПП; фото квантовой запутанности и причина ожирения. Главное ..."

9:00 - кто вам тексты пишет? Вы говорите все по тексту совершенно не задумываясь? Откуда будет накопление если еды мало? Из воздуха что ли жир будет синтезироваться. Как мне уже надоело толдычить всем прописные истины. Как сговорились все. Ни одного грамотного популяризатора и ученого в этом направлении нет. Все работают на общество потребителей. Всех зазомбировали. Больше жрать - больше сжигать? А просто напросто меньше жрать не ?! Совсем не вариант. Постоянно привожу примеры с голодающими - где у них накопление жира???!!! А про закон сохранения масс и энергий, который работает и в физике и естественно в биологии вы не слыхали? Дизлайк. Зла не хватает. Никто своей головой думать не может.... (((( Вы меня сильно разочаровали.

К "За кого голосовать на выборах 21 июля. "

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

По поводу - "Леся говорила". - Леся не
представляет какой у наших людей уровень ... Я не перестаю удивляться. Скажу с
личного опыта, многим приходится говорить по 1000 раз одно и то же, они выслушают,
но все равно сделают по-своему. То ли у них память короткая, то ли логика
напрочь отсутствует. Более того, есть и такие которые начинают угрожать
мордобоем и оскорблять собеседников. Когда просто на просто заводишь их
логичными доводами в тупик. Причем (даже не политики) по любой теме. С этим я
тоже буквально недавно столкнулся проходя курсы от ЦЗ в ДЦПТО. На первый
взгляд, особенно если с ними не дискутировать такие люди кажутся вменяемыми. Определить,
что у них что-то с головой не просто. Думал, что таких изолировали, однако
ходят по городу... Поэтому или надо хотя бы справки давать о невменяемости. Я
хотел заняться данным вопросом, подключить руководство, психологов, но
повторюсь пока не до этого. А вы говорите о каких-то выборах…

Вернемся к политике. По поводу того, что Зеленский ничего не
сделал. Хотелось бы по подробнее. Причем акцентировать внимание на том, что он реально
мог сделать, с учетом его полномочий и того, что сейчас у нас не Рада, а Зрада,
и что не мог. Если сделал, то что. Помогло ли это как-то обычным украинцам или навредило.
 Какие у него были мотивы. И т.д. и т.п. Думаю
опять многим просто придётся голосовать за тех кто пройдет и является оппозицией,
как и на президентских. Т.е. по факту многие бы уже давно проголосовали бы 2 руками
с огромной радостью за пункт которого до сих пор нет в бюллетенях – «не поддерживаю
ни одного кандидата». Если на выборах голосовали за Зеленского, т.к. он был самым
ярким пунктом «против Порошенко», то сейчас многие проголосуют за Опо-блок, т.к.
это самый яркий пункт «против Зеленского» - который по факту за 2 месяца, красиво,
резко и правильно говорил, но мало что делал. А вместо формирования социальных лифтов,
понабирал кумов сватов, и все тех же воров. В то же время и за Опо-блок голосовать
не хочется, т.к. если образ самого Зеленского хотя бы кажется адекватным, то в опо-блоке,
такие кадры собрались… что полная опа. К тому же, насколько я понял, чтобы ускорить
посадку Порошенко необходимо что бы солидарность не прошла, поэтому очень важно
все же проголосовать, несмотря на то, что (повторюсь) пункта «не поддерживаю ни
одного кандидата» нет. Можно конечно пойти ва-банк и понадеяться на чудо – проголосовать
за партию Саакашвили, или Шария (как альтернатива неадекватным опоблоковцам). Однако
к сожалению, это может дать шанс пройти Порошенко. Все токи надеюсь, что у Пети
и у Юли не 10, а 5 + соц. погрешность, и они не пройдут. Но для этого надо проголосовать
или за Слугу народа, или Опоблок. Кстати не смотря на объективность, мне кажется,
что Леся неровно дышит и мягко лоббирует именно Опоблок.

14:25  – Зеленский никогда и не был Голобородько, скорее
на образ Голобородько (поднявшегося с ютуба, похож Шарий) но сходство чрезвычайно
условно. Т.к. Шарий тоже за ангажирован, и без ватных ботов был бы никем. Тем
не менее, не устану повторять, что Зеленский показал народу что хотя бы теоретический
возможен другой путь. Путь в политику через популярность, а не только бабки. Вот
основная заслуга Зеленского. Он был сильным политиком, когда был актером и стал
плохим актером, когда пошел в политику. Ему надо было играть по своим правилам,
а не по ихним. Он никогда не станет Голобородько, т.к. никогда им не был. Он может
стать вторым Порошенко, или украинским Путиным, или белорусским Лукашенко. Не думаю,
что это оптимальный вариант для страны. У меня все же надежда на то, что он не
кем не станет, а именно создаст систему социальных лифтов. Без коррупции, без кумовства.
Основанную на реальных действиях людей достойных идти в политику. Но повторюсь,
судя с того насколько у нас низкий уровень развития масс, это чрезвычайно сложно.
Кстати, по этой же причине нас грабят уже не первый год такие воры рецидивисты
как Порошенко, Тимошенко. А у Шария, Саакашвили рейтинг очень низкий. Про других,
на мой взгляд, более достойных – Сергей Лещенко, Портнов и вовсе никто не слышал.
Да и в политику многие грамотные люди, видя все это безобразие, просто не хотят
идти. Потому что понимают, что при таком беспределе и таком уровне образованности
людей они мало что смогут сделать.

К "Лучшее время в истории человечества"

4:40
- не вешайте нос. Скоро проблема станет актуальна не только в Африке. Во многих
странах идет расслоение, и увы, оно не по принципу умные и глупые, а по
принципу подходящие для коррупционно-кумовской капиталистической системы и не
подходящие.